r - apply() 到 data.frame 的列

Question

我不太明白 apply() 的行为在 data.frame 列的情况下:

apply(mtcars, 2, is.numeric)
# mpg  cyl disp   hp drat   wt qsec   vs   am gear carb 
# TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE 

apply(iris,   2, is.numeric)
# Sepal.Length  Sepal.Width Petal.Length  Petal.Width      Species 
# FALSE        FALSE        FALSE        FALSE        FALSE 

在两个表中我们都有数字数据，那么为什么结果不同呢？
此外，如果我向 mtcars 添加一列，它会更改所有列的结果:

mtcars$colA <- 'charA'
apply(mtcars, 2, is.numeric)
# mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb  colA 
# FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE 

出于我的目的(确定列的类型)， lapply做这项工作( lapply(mtcars, is.numeric) ) - 但我仍然想弄清楚在 apply(df,2,myfunc) 的情况下发生了什么

Answer 1

来自 apply 的文档,

Details

If X is not an array but an object of a class with a non-null dim value (such as a data frame), apply attempts to coerce it to an array via as.matrix if it is two-dimensional (e.g., a data frame) or via as.array.

由于这些对象只能容纳一个类，那么您将得到所有都是数字的或如果至少有一个非数字列，那么您将得到 FALSE对所有人。我们可以将其与 sapply 的结果进行比较,

apply(iris, 2, is.numeric)
#Sepal.Length  Sepal.Width Petal.Length  Petal.Width      Species 
#       FALSE        FALSE        FALSE        FALSE        FALSE 

sapply(iris, is.numeric)
#Sepal.Length  Sepal.Width Petal.Length  Petal.Width      Species 
#        TRUE         TRUE         TRUE         TRUE        FALSE