使用R包lubridate的seconds_to_period函数时，如何将秒数舍入到2位？

Question

我使用R软件包Lubridate的函数DD:HH:MM:SS将秒转换为seconds_to_period格式。现在，我有很多类似的时间列表-> 2d 7H 1M 5.31500000000233S。我需要将秒取整到小数点后两位。我尝试使用round_date和ymd_hms，但收到此error in as.POSIXct.numeric(x) : 'origin' must be supplied。我尝试过是否可以分别访问秒并编写函数来更改秒，但不能。我该如何解决？

为参考数据附加了duration.RData文件和durdata.R文件。这两个文件具有相同的数据，但一个使用dput（），另一个使用save（）。链接：link to files

Answer 1

我们可以使用round格式化“句点”对象中的小数位。

head(round(time, 2))
#[1] "2d 7H 1M 5.32S"   "1d 9H 20M 37.49S" "7H 39M 37.95S" "2d 5H 0M 41.01S" 
#    "1d 8H 32M 2.8S"   "6H 36M 25.19S"