匹配数据帧时的标识符范围答案

【问题标题】：Range for identifier, when matching data frames匹配数据帧时的标识符范围
【发布时间】：2018-04-09 19:12:14
【问题描述】：

在下面的示例中，我需要根据两个不同的标识符（即 date 和 id）来匹配两个数据帧。但是，我需要设置“标识符范围”：new_df <- merge(df1 , df2 , by = c(id , date +-1 day interval) 这个新数据框应该包含在[-1, +1] 区间内发生的所有观察结果。

下面的第一个数据具有每天的值，我只需要删除不在上述区间内的观察值。 “零”天将在第二个数据框中 (df2)。

//第一个数据：

id <- c(a56 , a56 , a56 ,a56 ..., a1782)
date <-(1990-04-07 , 1990-04-08 , 1990-04-09 , 1990-04-10, ... , 1994-08-19)
value <- (0.003 , 0.023 , 0.127 , 0.278 , 0.378, ... ,0.378)
df1 <- data.frame(id ,date)

//第二个数据：

 id <- c(a56 , a78 , a99 , a101, a1893 , a167 , a1782)
 date <-c(1990-04-10 , 1990-08-18 , 1990-10-17, 1991-04-10 , 1994-08-18 ,1995-10-17)
 df2 <- data.frame(id , date)

期望的输出如下：

1. a56  1990-04-09  0.278
2. a56  1990-04-10  0.378
3. a56  1990-04-11  0.444 .....
9999. a1782 1994-08-18  0.345
1000. a17882 1994-08-19 0.378

提前致谢！

【问题讨论】：

当我完全按照上面的方式运行您的代码行时，它会生成一个df1，其中没有任何内容，并且不会生成df2。您能否包括此示例所需的其他数据，以便问题可重现？谢谢:)

标签： r merge range intervals

【解决方案1】：

所以我有点猜测您的数据是什么样的，因为您提供的示例代码并不完全有效（请下次仔细检查）。

请注意，我将日期转换为 Date。

我在这里所做的只是在id 上仅加入两个数据框，因此我保留了两个日期列。我过滤来自df1 的日期，使其在来自df2 的日期的+/-1 间隔内，然后删除df1 日期列。

id <- c('a56', 'a56', 'a56', 'a56', 'a1782')
date <- as.Date(c('1990-04-07' , '1990-04-08' , '1990-04-09' , '1990-04-10', '1994-08-19'))
value <- c(0.003 , 0.023 , 0.127 , 0.278, 0.378)
df1 <- data.frame(id ,date, value)
id <- c('a56' , 'a78' , 'a99' , 'a101', 'a1893' , 'a167')
date <- as.Date(c('1990-04-10' , '1990-08-18' , '1990-10-17', '1991-04-10' , '1994-08-18' ,'1995-10-17'))
df2 <- data.frame(id , date)

df = merge(df1, df2, by = 'id', suffixes = c('', '.y'))
df = df[df$date >= df$date.y - 1 & df$date <= df$date.y +1, 1:3]

我明白了：

   id       date value
3 a56 1990-04-09 0.127
4 a56 1990-04-10 0.278

【讨论】：