当我应用于包含字符串的data.frames时，为什么所有元素都会被字符串化？

Question

当调用包含字符串一个data.frame apply，所有其他元素似乎被传递给提供的功能之前，必须强制转换为字符串：

> x<-data.frame(a=1:3,b=6:8) 
> apply(x,1,function(y){y["b"]}) 
[1] 6 7 8 
> x<-data.frame(a=1:3,b=6:8,d=c("a","bc","def")) 
> apply(x,1,function(y){y["b"]}) 
[1] "6" "7" "8" 
> 

这究竟是为什么？我怎样才能避免它？

Answer 1

一种解决方案是为y转换为data.frame

apply(x,1,function(y){as.data.frame(y)[2,]}) 

[1] 6 7 8

Answer 2

出现这种情况是，apply函数胁迫您data.frame成矩阵的原因然后执行操作。如果你看一下apply的代码，你会发现：

if (is.object(X)) 
    X <- if (dl == 2L) 
     as.matrix(X) 
    else as.array(X) 

矩阵只能存储一个数据类型，当有多个，它强制转换到一个最高水平。在你的情况下，角色。那么你能做什么呢？从plyr使用aaply。 有轻微的修改运行代码（使用[[代替[所以它返回一个矢量，而不是一个数据帧）：

x<-data.frame(a=1:3,b=6:8,d=c("a","bc","def")) 
library(plyr) 
aaply(x, 1, function(y){y[["b"]]}, .expand=FALSE) 

1 2 3 
6 7 8