Rbind抛出错误：无效值

Question

我的数据帧如下：

> t 
    Day TestID VarID 
1 2013-04-27 Total Total 

> str(t) 
'data.frame': 1 obs. of 3 variables: 
$ Day : Date, format: "2013-04-27" 
$ TestID: factor [1, 1] Total 
    ..- attr(*, "levels")= chr "Total" 
$ VarID : Factor w/ 3 levels "0|0","731|18503",..: 3 

当我尝试做一个rbind我收到以下错误

​​

但是当我尝试直接重新创建数据帧我没有得到这个错误：

> t <- data.frame(Day = as.Date("2013-04-27"),TestID = "Total", VarID = "Total") 
> t 
    Day TestID VarID 
1 2013-04-27 Total Total 
> str(t) 
'data.frame': 1 obs. of 3 variables: 
$ Day : Date, format: "2013-04-27" 
$ TestID: Factor w/ 1 level "Total": 1 
$ VarID : Factor w/ 1 level "Total": 1 
> rbind(t,t) 
    Day TestID VarID 
1 2013-04-27 Total Total 
2 2013-04-27 Total Total 

谁能帮助我弄清楚是怎么回事，我怎么能避免THI错误。 谢谢。

Answer 1

的主要区别我看到的是，在第一版本的TestID变量是factor [1, 1]（矩阵），而不是Factor（载体）

第一版：

t1 <- data.frame(Day = as.Date("2013-04-27"), 
       TestID = "Total", VarID = "Total") 
rbind(t1,t1) 

转换到第二版本：

t2 <- t1 
dim(t2$TestID) <- c(1,1) 
str(t2$TestID) 
## factor [1, 1] Total 
## - attr(*, "levels")= chr "Total" 
rbind(t2,t2) 
## Error in NextMethod() : invalid value 

修复错位版本：

t3 <- t2 
t3$TestID <- drop(t3$TestID) 
rbind(t3,t3) ## works