R - 过滤具有来自 DF2 的时间戳条件的第一个数据帧答案

【问题标题】：R - Filter 1st Dataframe with conditions of timestamp from DF2R - 过滤具有来自 DF2 的时间戳条件的第一个数据帧
【发布时间】：2018-12-08 09:52:02
【问题描述】：

DF1：

      X        Y        DateTime
1 113.8591 22.25272 2016-01-07 10:37:33
2 113.8585 22.25276 2016-01-07 10:37:43
3 113.8578 22.25270 2016-01-07 10:37:53
4 113.8572 22.25265 2016-02-01 11:34:03
5 113.8565 22.25260 2016-02-18 12:20:13
6 113.8559 22.25251 2016-02-18 12:20:23

structure(list(Date = c("2016-10-27", "2016-10-27", "2016-10-27", 
"2016-10-27", "2016-10-27", "2016-10-27", "2016-10-27", "2016-10-27", 
"2016-10-27", "2016-10-27", "2016-10-27", "2016-10-27", "2016-10-27", 
"2016-10-27", "2016-10-27", "2016-10-27", "2016-10-27", "2016-10-27", 
"2016-10-27", "2016-10-27"), DateTime = structure(c(1477560813, 
1477560823, 1477560833, 1477560843, 1477560853, 1477560863, 1477560873, 
1477560883, 1477560893, 1477560903, 1477560913, 1477560923, 1477560933, 
1477560943, 1477560953, 1477560963, 1477560973, 1477560983, 1477560993, 
1477561003), class = c("POSIXct", "POSIXt"), tzone = "UTC")), row.names = c(NA, 
20L), class = "data.frame", .Names = c("Date", "DateTime"))

DF2：

        DateTimeStart         DateTimeEnd
1 2016-01-07 10:37:00 2016-01-07 10:51:00
2 2016-01-07 10:57:00 2016-01-07 11:14:00
3 2016-01-07 11:36:00 2016-01-07 11:40:00
4 2016-01-07 11:49:00 2016-01-07 12:04:00
5 2016-01-08 12:19:00 2016-01-08 12:35:00
6 2016-02-18 11:51:00 2016-02-18 12:26:00

structure(list(DateTimeStart = structure(c(1477560960, 1477568880, 
1477569780, 1477570500, 1477571460, 1477572240, 1477572720, 1477574700, 
1477575300, 1477575960, 1477579260), tzone = "UTC", class = c("POSIXct", 
"POSIXt")), DateTimeEnd = structure(c(1477561560, 1477569360, 
1477570260, 1477571100, 1477572000, 1477572660, 1477573920, 1477575180, 
1477575840, 1477576680, 1477579920), tzone = "UTC", class = c("POSIXct", 
"POSIXt"))), row.names = c(NA, -11L), class = "data.frame", .Names = c("DateTimeStart", 
"DateTimeEnd"))

我想根据 DF1 中的 GPS 点是否介于 DF2 DateTimeStart 和 DateTimeEnd 的时间之间进行过滤。对于上述情况，我想过滤掉 DF1 第 4 行，因为它不在 DF2 中的任何 StartTime 和 EndTime 之间。

如何使用 R 中的 tidyverse/lubridate 做到这一点？非常感谢！

【问题讨论】：

for(DateTime in DF1$DateTime){ DF2 %>% filter(DateTime > DF2$DateTimeStart & DateTime
我可以这样做：DF2 %>% filter(DateTime >= as.POSIXct("2016-10-27 09:36:00") & DateTime
您能提供一些示例数据吗？尝试使用dput()。
在上面的 dput 代码中，它与我在 DF1 和 DF2 中键入的内容有点不同。在 Dput 代码中，DF2 中只有最后几行位于 > 09:36:00 时间戳内，但它不起作用
我收到此错误：警告消息：1：在 >.default(DateTime, DF2$DateTimeStart) 中：较长的对象长度不是较短对象长度的倍数 2：在 <.default(DateTime, DF2$DateTimeEnd) : 较长的对象长度不是较短对象长度的倍数

标签： r tidyverse lubridate

【解决方案1】：

定义一个辅助函数

library(tidyverse)
is_in_interval <- function(x,interval_df){
  (x >= pull(interval_df,1) & x <= pull(interval_df,2)) %>% any()
}

然后过滤

DF1 %>% filter(unlist(map(DateTime, ~ unlist(is_in_interval(.x,DF2)))))

【讨论】：

【解决方案2】：

稍微方便一点

DF1 %>% filter(map_lgl(DateTime, ~ unlist(is_in_interval(.x,DF2))))

map 总是返回一个列表，因此我们需要unlist 来获取一个向量。 map_lgl 返回一个布尔向量。

【讨论】：

对不起，我有一个后续问题。如果我在 DF2 中有一些相关数据，假设我有类似在该时间段内观察到的动物数量。 unlist 函数不能中继这些数据，因为它返回一个布尔值。如何匹配相关数据？非常感谢！
或者我可以简单地使用匹配函数来找到我猜的最近的时间戳
更新：如果 DF2 时间戳彼此太接近，匹配函数到最近的时间戳将不起作用