r - 与 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

问题

子集将POSIXcty1列删除为数字，但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