我有一个包含时间(例如:10.24)和分钟(例如:31)列的数据框。
我想添加这两列。结果列将为 10.24+31(min)=10.55。我尝试过 lubridate但它给出的时间是错误的。
dput(stack_data)
structure(list(time = c("10:24", "10:40"), timeInMin = c(31L,
23L)), row.names = c(19L, 23L), class = "data.frame")
我尝试过这样的:
stack_data$time <- (hm(stack_data$time))
stack_data$timeInMin <- hms((stack_data$time) + (stack_data$timeInMin))
输出:
time timeInMin
10H 24M 0S 10:24:31
10H 40M 0S 10:40:23
我得到了错误的答案。你能建议我该怎么做吗?谢谢。
最佳答案
我们可以使用data.table
中的as.ITime
library(data.table)
stack_data$time <- as.ITime(paste0(stack_data$time, ":00"))
stack_data$timeInMin <- stack_data$time +
as.ITime(paste0("00:", stack_data$timeInMin, ":00"))
stack_data$timeInMin
#[1] "10:55:00" "11:03:00"
或者使用hm
library(lubridate)
hm(stack_data$time) + minutes(stack_data$timeInMin)
#[1] "10H 55M 0S" "10H 63M 0S"
关于r - 如何在R中添加分钟到时间,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/60354977/