0

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。我需要为大量数据执行此操作,因此我需要一个执行上述操作之一的代码。

有人能帮我吗?

谢谢!

4

1 回答 1

4

一种选择是使用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"
于 2018-09-16T22:00:07.220 回答