Как применить этот код ко всем ячейкам данных в R

Question

Эта строка кода применяется к столбцу f_name в моем фрейме данных и удаляет все ячейки столбца f_name, но я хочу применить его ко всем столбцам.
Как мне это сделать?

subset(m, nchar(as.character(f_name)) <=  100

Answer 1

Если ваш data.frame называется dat, попробуйте следующее.
Сначала он создает логический индекс inx со значениями TRUE, если все элементы столбца имеют менее 100 символов. Затем он помещает в исходный файл data.frame только те столбцы.

inx <- sapply(dat, function(x) all(nchar(x) < 100))
new_dat <- dat[which(inx)]