如何将此代码应用于R中数据帧的所有单元

Question

此行代码适用于我的数据框上的f_name列，并删除了f_name列的所有单元格，但我想将其应用于所有列。
我该怎么办？

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

Answer 1

如果您的data.frame名为dat，请尝试以下操作。
如果列的所有元素都少于100个字符，则它首先使用值inx创建一个逻辑索引TRUE。然后，它将原始data.frame的子集保留为仅这些列。

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