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

Question

我转换秒至DD:HH:MM:SS使用R包Lubridate的功能格式seconds_to_period 。 现在我有一个巨大的时间列表，看起来像这样 -> 2d 7H 1M 5.31500000000233S 。 我需要将秒四舍五入到小数点后两位。
我尝试使用round_date和ymd_hms但我error in as.POSIXct.numeric(x) : 'origin' must be supplied收到此error in as.POSIXct.numeric(x) : 'origin' must be supplied 。 我尝试过是否可以单独访问秒数并编写一个函数来更改它们，但不能。 我该如何解决这个问题？

附上一个duration.RData文件和durdata.R文件供参考数据。 这两个文件具有相同的数据，但一个使用 dput()，另一个使用 save()。 链接： 链接到文件

Answer 1

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

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"