我m trying to find a way to create a column of the hours of arrival of different individuals from 18:30, by adding the hours and minutes to 18:30, but it doesn不起作用，每次我尝试将要添加的小时和分钟的列格式从"因子"转换为时间格式(例如 chron 或 POSIXct(它添加了今天的日期，我只想添加小时和分钟而不考虑日期。
例如，我想将 03：38 小时添加到 18：30，这将是 22：08。所以，我想找到一种方法来有一个列，其中包含所有最后的时间(每个人到达的时间(。另一个示例是将 00：47 小时添加到 18：30，即 19：17。
我试图通过将小时+分钟转换为数字格式并将其添加到 18.5(即 18：30，仅采用数字格式(来做到这一点，我到达了最后几个小时，但它们是数字格式，我希望它们是小时格式。例如：
我将 3.6425980(即 03：38(添加到 18.5(即 18：30(，最后一小时是 22.14260(即 22：08(，但我不知道如何将 22.14260 转换为 22：08。 我需要为大量数据执行此操作，因此我需要执行上述操作之一的代码。
有人可以帮助我吗？
谢谢！
一种选择是使用lubridate
time <- c("18:30", "18:30")
duration <- c("3:38", "00:47")
library(lubridate)
hms(hm(time) + hm(duration), roll = T)
#[1] "22H 8M 0S" "19H 17M 0S"