我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。因此，我想找到一种方法来列出所有最后的小时数（每个人的到达时间）。另一个示例是将18:30的00:47小时加到19:17。
我尝试通过将小时+分钟转换为数字格式，然后将其添加到18.5（这是18:30，只是数字格式）来做到这一点，但我达到了最终小时数，但是它们是数字形式格式，我希望它们采用小时格式。例如：
我将3.6425980（即03:38）添加到18.5（即18:30），最后一小时是22.14260（即22:08），但是我不知道如何将22.14260转换为22:08 。 我需要对大量数据进行处理，因此需要执行上述操作之一的代码。
有人可以帮我吗？
谢谢！
答案 0 :(得分：2)
一种选择是使用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"