當我應用於包含字符串的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