r - 比较R中的时间

Question

我有两列，分别是A和B（HH：MM格式的时间）

  A       B
00:00   06:00

str（A）和str（B）给出“字符”。

我想做一个比较，例如

Comment <- ifelse(hour_part(A) < hour_part(B), "Dead","NONE")

我想在R中做。

如何在R中完成此操作？

Answer 1

使用此测试数据：

DF <- data.frame(A = "00:00", B = "06:00", stringsAsFactors = FALSE) # test data

1）字符类这适用于原始字符表示形式：

hour_part <- function(x) as.numeric(sub(":.*", "", x)) # can optionally omit as.numeric
Comment <- ifelse(hour_part(DF$A) < hour_part(DF$B), "Dead", "NONE")

2）times class如果这不是您唯一想对 DF进行的操作，那么最好先将它们转换为 "times"类。

library(chron)

to.times <- function(x) times(paste0(x, ":00"))
DF2 <- transform(DF, A = to.times(A), B = to.times(B))
Comment <- ifelse(hours(DF2$A) < hours(DF2$B), "Dead", "NONE")

注意：下一次，请以可复制的形式提供测试数据。