收集tidyr后意外的子集行为

Question

这里发生了什么？

设置

创建y1和y2，等效的data.frames。使用y1生成gather，直接读取y2。

library(tidyr)
x <- data.frame(id = 1:2,
                 day_01 = as.POSIXct(c('2015-03-09', '1989-02-11')),
                 day_02 = as.POSIXct(c('1985-09-11', '2000-08-15')),
                 gender = factor(c("M", "F")))
y1 <- gather(x, key, value, day_01, day_02)

y2 <- read.table(text="id gender    key      value
 1      M day_01 2015-03-09
 2      F day_01 1989-02-11
 1      M day_02 1985-09-11
 2      F day_02 2000-08-15", header=TRUE)
y2 <- within(y2, value<-as.POSIXct(as.character(value)))

y1和y2相等

all.equal(y1, y2)
# [1] TRUE

问题

子集y1会将POSIXct列删除为数字，但以相同方式对y2进行子集则不会。

y1[y1$gender == 'M', ]
#   id gender    key     value
# 1  1      M day_01 1.426e+09
# 3  1      M day_02 4.953e+08

y2[y2$gender == 'M', ]
#  id gender    key      value
#1  1      M day_01 2015-03-09
#3  1      M day_02 1985-09-11

会话信息

R版本3.1.2（2014-10-31） 平台：i386-w64-mingw32 / i386（32位）

tidyr 0.2.0.9000