12

在以 POSIXCT 格式转换因子然后应用 datetime 格式后，我想取 2 pos1 和 pos2 之间的 datetime 差异。

但是，当我为特定项目执行此操作时，我会在控制台中得到正确的答案，但是当我对整个集合进行操作时，控制台仅输出数字，并且日期帧也反映了这些数字，如您所见。

当我尝试获取差异时，如何获取数据框中的小时数？我正在使用 lubridate 包，有什么功能可以这样做吗？

这是 RStudio 中描述它的数据的一些示例代码/图片

CR_Date <- data.frame(
  pos1="2014-07-01 00:00:00",
  pos2=c("2014-07-01 00:00:00","2014-07-01 10:15:00")
)
CR_Date[] <- lapply(CR_Date,as.POSIXct)
CR_Date

#        pos1                pos2
#1 2014-07-01 2014-07-01 00:00:00
#2 2014-07-01 2014-07-01 10:15:00

CR_Date$pos2[2] - CR_Date$pos1[2]
#Time difference of 10.25 hours
CR_Date$hours <- CR_Date$pos2 - CR_Date$pos1

在此处输入图像描述

4

2 回答 2

23

首先，这与 lubridate 无关。

其次，RStudio 通过在显示窗口中打印变量让您失望了。如果您CR_Date$hours在命令行窗口中输入，您将看到它打印

#Time differences in secs
#[1]     0 36900

并head(CR_Date)给出：

#        pos1                pos2      hours
#1 2014-07-01 2014-07-01 00:00:00     0 secs
#2 2014-07-01 2014-07-01 10:15:00 36900 secs

其中任何一个都会让你知道它正在显示什么。

正如@Victorp 建议difftime的那样，解决这个问题的方法是：

CR_Date$hours <- with(CR_Date, difftime(pos2,pos1,units="hours") )
CR_Date

#        pos1                pos2       hours
#1 2014-07-01 2014-07-01 00:00:00  0.00 hours
#2 2014-07-01 2014-07-01 10:15:00 10.25 hours
于 2014-07-30T10:41:51.943 回答
11

您也可以使用“as.double方法”及其units参数（参见 参考资料?diffime）：

as.double方法 [ as.double(x, units = "auto", ...)] 返回以指定单位表示的数值

...在x哪里

从类继承的对象"difftime"

应用于您的示例，其中pos2 - pos1将产生一个difftime对象：

CR_Date$hours <- as.double(CR_Date$pos2 - CR_Date$pos1, units = "hours")
CR_Date

#        pos1                pos2 hours
#1 2014-07-01 2014-07-01 00:00:00  0.00
#2 2014-07-01 2014-07-01 10:15:00 10.25

或其他units：

as.double(CR_Date$pos2 - CR_Date$pos1, units = "mins")
#[1]   0 615

as.double(CR_Date$pos2 - CR_Date$pos1, units = "days")
#[1] 0.0000000 0.4270833
于 2018-10-18T08:12:04.587 回答