3

我有一个包含事件开始和结束时间的数据集（称为 df_time），以及另一个包含事件发生时间的数据集（df_val）。我想使用 df_time 将 df_val 过滤到仅在记录的时间间隔内发生的事件。

不过，我对如何做到这一点有点迷茫。

start = c(1, 5, 7, 4)
end = c(2, 7, 11, 7)
df_time = data.frame(start, end)

time = c(3, 6, 2, 10, 11)
val = c(100, 20, 30, 40, 50)
df_val = data.frame(time, val)

df_val %>% select_all() %>%
  filter(time >= df_time$start & time <= df_time$end)

输出：

  time val
1    6  20
Warning messages:
1: In time >= df_time$start :
  longer object length is not a multiple of shorter object length
2: In time <= df_time$end :
  longer object length is not a multiple of shorter object length

以上将运行警告消息（上），并给我错误的输出（忽略等于值时间戳的开始/结束）。上面，应该打印除 3 之外的所有值。

我不确定如何解决这个问题，如果有任何帮助/资源，我将不胜感激！

4

2 回答 2

1

这是你想要完成的吗？ 

library(tidyverse)
start = c(1, 5, 7, 4)
end = c(2, 7, 11, 7)
df_time = data.frame(start, end)

time = c(3, 6, 2, 10, 11)
val = c(100, 20, 30, 40, 50)
df_val = data.frame(time, val)

# return one row for each start/end pair that time falls between
map2_dfr(start, end, ~filter(df_val, time >= .x, time <= .y) %>% mutate(start = .x, end = .y))
#>   time val start end
#> 1    2  30     1   2
#> 2    6  20     5   7
#> 3   10  40     7  11
#> 4   11  50     7  11
#> 5    6  20     4   7

#return unique pairs
map2_dfr(start, end, ~filter(df_val, time >= .x, time <= .y)) %>% unique()
#>   time val
#> 1    2  30
#> 2    6  20
#> 3   10  40
#> 4   11  50

#simpler method, probably
df_val %>% filter(map_lgl(time, ~any((.x >= start) & .x <= end)))
#>   time val
#> 1    6  20
#> 2    2  30
#> 3   10  40
#> 4   11  50

由reprex 包（v0.2.1）于 2019 年 7 月 25 日创建

编辑：添加了一些替代品

于 2019-07-25T19:18:22.010 回答
0

这是使用非 equi 内连接的另一个选项data.table：

library(data.table)
setDT(df_time)
setDT(df_val)

df_time[df_val, on=.(ID, start<time, end>time), nomatch=0L, 
    c(mget(paste0("x.", names(df_time))), mget(paste0("i.", names(df_val))))]

输出：

   x.ID x.start x.end i.ID i.time i.val
1:    1       5     7    1      6    20
2:    1       4     7    1      6    20
3:    1       7    11    1     10    40
于 2020-03-23T07:50:49.947 回答