有没有一种矢量化的方式来使用is.numeric？

Question

我在SO上阅读了this question，想知道是否有任何方法可以以矢量化的方式使用is.numeric。重点是，如果你有一个矢量化的方法来检查一个变量是否是数值的，那么任何依赖于变量是数值的函数都可以被矢量化。否则，它不能被矢量化。

Answer 1

根据评论：

如果您希望使用as.numeric测试data.frame的列，请使用apply

> dat <- data.frame(v1=1:5,v2=letters[1:5],v3=rnorm(5),v4=c(1,2,'c','d',5))

> sapply(dat,is.numeric)
   v1    v2    v3    v4 
 TRUE FALSE  TRUE FALSE 

或者，为了实现多样性，您可以使用plyr包中的colwise：

> colwise(is.numeric)(dat)
    v1    v2   v3    v4
1 TRUE FALSE TRUE FALSE

Answer 2

这应该会得到所需的结果：

rep(is.numeric(x), length(x))