我可以使用lubridate在％间隔内使用％来获取大量实例吗？

Question

我正在尝试创建一个可视化，显示一些前任/后续操作，有多少员工通过24小时计时。

我创建了一个实例向量，彼此相距两个小时。我将劳动记录表（时钟输入和时钟输出）转换为间隔的数据帧。当我在％函数中使用％时，我只返回第一个矢量实例的T / F.

graph.instants <- seq( ymd("2014-05-12"), by= "2 hours", len= 120) #Make vector of instants in 2 hour intervals
ln205intervals <- data.frame(ints = interval(Frame206$LaborOn, Frame206$LaborOff)) #Make intervals with LN205 data

graph.instants %within% ln205intervals$ints

有没有办法根据间隔矢量检查瞬间矢量？

以下是我的问题图片：

Answer 1

作为替代存档：dplyr定义between

library(lubridate)
library(dplyr)

dat <- data.frame(time = seq( ymd("2015-01-01"), by= "2 hours", len= 1000))  

dat %>%  filter(between(time, ymd("2015-01-10"), ymd("2015-01-11")))