Question

我用小时创建了一些日期向量并对其进行了排序：

h <- c(16, 12, 21, 8)
m <- c(42, 24, 58, 19)
s <- c(1, 15, 56, 45)

   hours <- mapply(function(i){
      time <- paste(h[i], m[i], s[i], sep=":")
      time <- strptime(time, "%H:%M:%S")
      time <- strftime(time)
   }, 1:length(h))
   asc <- sort(hours)
   asc <- as.POSIXct(asc, format="%Y-%m-%d %H:%M:%S")

现在我想计算事件之间的差异，但结果应该是第二个（实际上，只有几小时，几分钟和第二个问题）。当我使用difftime时，我得到的结果如下：

> asc[1]-asc[2]

Time difference of -4.075 hours

但我希望结果是第二个和确切的。有什么想法吗？

Answer 1

明确调用difftime，您可以在其中指定单位：

difftime(asc[1],asc[2],units="secs")
Time difference of -14670 secs

在其他单位输出difftime

1 个答案: