小编Jac*_*one的帖子

我想运行以下函数

count_greater_than <- function(x){
  ret <- sum(x > 1);
  return(ret);
}

将虹膜数据集作为数据表。但是，我只想对 iris 中具有数值的所有列（除“物种”之外的所有列）运行该函数。我的方法是

dt <- as.data.table(iris);
gr_1 <- dt[, sapply(.SD,count_greater_than, is.numeric)];
names(gr_1) <- colnames(iris);
gr_1;

这给了我；

Sepal.Length  Sepal.Width Petal.Length  Petal.Width      Species 
         150          150          149           93           NA 

但我想要的是；

Sepal.Length  Sepal.Width Petal.Length  Petal.Width 
150          150          149           93 

有没有办法排除具有非数字值的列？或者至少指定我想要涵盖的列？