Просто используйте функцию toupper:
toupper
R> toupper(c("a", "ab")) [1] "A" "AB"
Для вашего фрейма данных у вас будет:
dat[,4] = toupper(dat[,4])