R正在修剪我的参考输出

我希望这个问题还没有解决，但我找不到任何答案

下面的R将给我一个输出“6.783333小时的时差”，这正是我想要看到的

Start = "2013-04-19 16:42"
End =  "2013-04-19 23:29"


dtm <- strptime(c(Start), format = "%Y-%m-%d %H:%M", tz = "CET")
dtms <- strptime(c(End), format = "%Y-%m-%d %H:%M", tz = "CET")


t_time = dtms - dtm

t_time

---

值的显示模式由值的类控制

类（t_time）

是

difftime

；因此，显示这样的值将调用函数

print.difftime

<另一方面，代码>类（DateCorrection$TimeDiff）是数值的。但是，您可以简单地重新指定列的类：

class(DateCorrection$TimeDiff) <- 'difftime'

---

class（DateCorrection$TimeDiff）您可以使用
as.difftime
将变量强制为difftime

as.difftime（tim，format=“%X”，units=“auto”）

以下是示例：

(dd <- data.frame(TimeDiff = 1))
  TimeDiff
1        1
## you coerce it now 
dd$TimeDiff <- as.difftime(dd$TimeDiff,units='hours')
dd
  TimeDiff
1  1 hours

（dd
x <- capture.output(print.difftime(dtms-dtm))
#[1] "Time difference of 6.783333 hours"

difftime(dtms, dtm, units = "hours")
#Time difference of 6.783333 hours
difftime(dtms, dtm, units = "days")
#Time difference of 0.2826389 days

class(DateCorrection$TimeDiff) <- 'difftime'

(dd <- data.frame(TimeDiff = 1))
  TimeDiff
1        1
## you coerce it now 
dd$TimeDiff <- as.difftime(dd$TimeDiff,units='hours')
dd
  TimeDiff
1  1 hours