前言：
我在 difftime 值的 data.table 中有一个列，其单位设置为天。我正在尝试创建另一个 data.table 总结值
dt2 <- dt[, .(AvgTime = mean(DiffTime)), by = Group]
打印新的 data.table 时，我看到诸如
1.925988e+00 days
1.143287e+00 days
1.453975e+01 days
我只想限制此列的小数位值（即不设置options()，除非我可以通过这种方式专门针对 difftime 值执行此操作）。当我尝试使用上述方法执行此操作时，已修改，例如
dt2 <- dt[, .(AvgTime = round(mean(DiffTime)), 2), by = Group]
我留下了 NA 值，基数round()和format()函数都返回警告：
在 mean(DiffTime) 中：参数不是数字或逻辑的。
奇怪的是，如果我对数字字段执行相同的操作，它运行没有问题。此外，如果我运行两行单独的代码，我可以完成我想做的事情：
dt2 <- dt[, .(AvgTime = mean(DiffTime)), by = Group]
dt2[, AvgTime := round(AvgTime, 2)]
可重现的例子：
library(data.table)
set.seed(1)
dt <- data.table(
Date1 =
sample(seq(as.Date('2017/10/01'),
as.Date('2017/10/31'),
by="days"), 24, replace = FALSE) +
abs(rnorm(24)) / 10,
Date2 =
sample(seq(as.Date('2017/10/01'),
as.Date('2017/10/31'),
by="days"), 24, replace = FALSE) +
abs(rnorm(24)) / 10,
Num1 =
abs(rnorm(24)) * 10,
Group =
rep(LETTERS[1:4], each=6)
)
dt[, DiffTime := abs(difftime(Date1, Date2, units = 'days'))]
# Warnings/NA:
class(dt$DiffTime) # "difftime"
dt2 <- dt[, .(AvgTime = round(mean(DiffTime), 2)), by = .(Group)]
# Works when numeric/not difftime:
class(dt$Num1) # "numeric"
dt2 <- dt[, .(AvgNum = round(mean(Num1), 2)), by = .(Group)]
# Works, but takes an additional step:
dt2<-dt[,.(AvgTime = mean(DiffTime)), by = .(Group)]
dt2[,AvgTime := round(AvgTime,2)]
# Works with base::mean:
class(dt$DiffTime) # "difftime"
dt2 <- dt[, .(AvgTime = round(base::mean(DiffTime), 2)), by = .(Group)]
问题：
当班级是 时，difftime为什么我无法一步完成此转换（均值四舍五入）？我在执行过程中遗漏了什么吗？这是某种data.table无法正确处理的错误difftime吗？
在github上添加了问题。
更新：从 data.table 版本1.10.4更新到1.12.8后，问题似乎已消除。