R：如何处理没有约会的时间？

Question

我的数据包括Date以及Time enter和Time exit。后两者包含以下数据：08:02，12:02，23:45等。

我想操纵Time eXXX数据 - 例如，从Time enter减去Time exit来计算持续时间，或绘制Time enter和{{1}的分布例如查看大部分参赛作品是在10:00之前，还是大多数作品是在17:00之后。

我看过的所有套餐都要求在时间之前加上日期，例如Time exit。

这是可能的，还是我应该为了计算而每次只添加一个相同的日期？这看起来有点乱！

Answer 1

使用chron package中的"times"课程：

library(chron)

Enter <- c("09:12", "17:01")
Enter <- times(paste0(Enter, ":00"))

Exit <-  c("10:15", "18:11")
Exit <- times(paste0(Exit, ":00"))

Exit - Enter # durations

sum(Enter < "10:00:00") # no entering before 10am
mean(Enter < "10:00:00") # fraction entering before 10am

sum(Exit >  "17:00:00") # no exiting after 5pm
mean(Exit >  "17:00:00") # fraction exiting after 5pm

table(cut(hours(Enter), breaks = c(0, 10, 17, 24))) # Counts for indicated hours   
 ## (0,10] (10,17] (17,24] 
 ##      1       1       0 

table(hours(Enter))  # Counts of entries each hour
## 9 17 
## 1  1

stem(hours(Enter), scale = 2)
## The decimal point is at the |

##   9 | 0
##  10 | 
##  11 | 
##  12 | 
##  13 | 
##  14 | 
##  15 | 
##  16 | 
##  17 | 0

图形：

tab <- c(table(Enter), -table(Exit))  # Freq at each time.  Enter is pos; Exit is neg.
plot(times(names(tab)), tab, type = "h", xlab = "Time", ylab = "Freq")
abline(v = c(10, 17)/24, col = "red", lty = 2) # vertical red lines
abline(h = 0)  # X axis

Answer 2

这样的事情会起作用吗？

SubstracTimes <-  function(TimeEnter, TimeExit){
  (as.numeric(format(strptime(TimeExit, format ="%H:%M"), "%H")) + 
  as.numeric(format(strptime(TimeExit, format ="%H:%M"), "%M"))/60) -
  (as.numeric(format(strptime(TimeEnter, format ="%H:%M"), "%H")) + 
   as.numeric(format(strptime(TimeEnter, format ="%H:%M"), "%M"))/60)
}

测试：

TimeEnter <- "08:02"
TimeExit <- "12:02"
SubstracTimes(TimeEnter, TimeExit)
> SubstracTimes(TimeEnter, TimeExit)
[1] 4

Answer 3

感谢您的反馈，对于造成的混乱，我进行了一些编辑以弄清楚。

新编辑：

首先，固定格式的chron包和strptime都可以正常工作，如其他答案所示。我只想介绍一下lubridate，因为它更易于使用，并且具有时间格式的灵活性。

示例数据

df <- data.frame(TimeEnterChar = c(rep("07:58", 10), "08:02", "08:03", "08:05", "08:10", "09:00"),
                 TimeExitChar  = c("16:30", "16:50", "17:00", rep("17:02", 10), "17:30", "18:59"),
                 stringsAsFactors = F)

如果只想计算晚于8:00的输入时间，则可以直接比较字符。下面应该是5个进入时间。

sum(df$TimeEnterChar > "08:00")

如果您个人想要更多，我更喜欢lubridate包，用于处理时间数据，尤其是带有日期的时间戳，尽管这根本不是本文的重点。

library(lubridate)
# Convert character to a "Period" class by lubridate, shows in form of H M S
df$TimeEnterTime <- hm(df$TimeEnterChar)
df$TimeExitTime  <- hm(df$TimeExitChar)
head(df)

sum(df$TimeEnterTime > hm("08:00"))

您仍然可以比较时间。

有关将其用作数字的更多信息： 我假设只需要分钟级的时间。因此，我将秒数除以60得到分钟数。

df$DurationMinute <- as.numeric( df$TimeExitTime - df$TimeEnterTime )/60
hist(df$DurationMinute, breaks = seq(500, 600, 5))

head(df)
  TimeEnterChar TimeExitChar TimeEnterTime TimeExitTime DurationMinute
1         07:58        16:30     7H 58M 0S   16H 30M 0S            512
2         07:58        16:50     7H 58M 0S   16H 50M 0S            532
3         07:58        17:00     7H 58M 0S    17H 0M 0S            542
4         07:58        17:02     7H 58M 0S    17H 2M 0S            544
5         07:58        17:02     7H 58M 0S    17H 2M 0S            544
6         07:58        17:02     7H 58M 0S    17H 2M 0S            544

您可以简单地绘制直方图以查看进入和退出之间的持续时间分布。

您还可以查看进/出时间的分布。但是需要进行一些转换才能转换轴。

df$TimeEnterNumMin <- as.numeric(df$TimeEnterTime) / 60
df$TimeExitNumMin  <- as.numeric(df$TimeExitTime) / 60

hist(df$TimeEnterNumMin, breaks = seq(0, 1440, 60), xaxt = 'n', main = "Whole by 1hr")
axis(side = 1, at = seq(0, 1440, 60), labels = paste0(seq(0, 24, 1), ":00"))

hist(df$TimeEnterNumMin, breaks = seq(420, 600, 15), xaxt = 'n', main = "Morning by 15min")
axis(side = 1, at = seq(420, 600, 60), labels = paste0(seq(7, 10, 1), ":00"))

我没有完善绘图，也没有使轴灵活。请根据您的需要来做。希望它会有所帮助。

以下是旧的无用帖子 ：（无需阅读。请保留，以免评论看起来怪异）

遇到类似问题，并受到这篇文章的启发。 @G。 Grothendieck和@David Arenburg为改变时间提供了很好的答案。

为进行比较，我觉得将时间花在数字帮助上。与将"11:22:33"与"9:00:00"（as.numeric(hms("11:22:33"))秒）和40953（as.numeric(hms("9:00:00"))）进行比较相比，要容易得多。< / p>

32400

上面的示例显示11:22:33在9AM和5PM之间。

要从日期或POSIXct对象中仅提取时间，as.numeric(hms("11:22:33")) > as.numeric(hms("9:00:00")) & as.numeric(hms("11:22:33")) < as.numeric(hms("17:00:00")) [1] TRUE 应该可以工作，尽管将时间对象更改为字符串/字符并再次返回到时间看起来很愚蠢。

将时间转换为数字应该可以将其绘制为@G。格罗腾迪克（Gothendieck）想要。您可以根据需要将数字转换回x轴标签的时间。