根据与 R 中另一个数据框的匹配，按组更新数据框列

Question

我有两个数据框：

df1
ID    Date           Value
A     2017-01-01     3
B     2017-01-01     3
C     2017-01-01     3
C     2017-01-02     3
C     2017-01-03     3
D     2017-01-01     3

df2
ID    Date           Ratio
C     2017-01-01     3    

如果满足以下两个条件，我想从 df2 中的相应条目更新 df1 中的值，使得 Value = Value * Ratio：

1. df1 中的 ID 与 df2 中的 ID 匹配
2. df1 中的日期在 df2 中的日期之后

这是我想要的输出：

df1
ID    Date           Value
A     2017-01-01     3
B     2017-01-01     3
C     2017-01-01     3
C     2017-01-02     9
C     2017-01-03     9
D     2017-01-01     3

有什么帮助吗？我正在考虑使用聚合和匹配，但不知道如何将它们拼凑在一起。

Answer 1

使用data.table非等连接；使用 := 更新匹配行的 Value 列：

library(data.table)
setDT(df1); setDT(df2);

df1[df2, on = .(ID = ID, Date > Date), Value := Value * Ratio]

df1
#   ID       Date Value
#1:  A 2017-01-01     3
#2:  B 2017-01-01     3
#3:  C 2017-01-01     3
#4:  C 2017-01-02     9
#5:  C 2017-01-03     9
#6:  D 2017-01-01     3

---

感谢@Frank，这是ID = ID 的语法糖：

df1[df2, on = .(ID, Date > Date), Value := Value * Ratio]

Answer 2

通过ID合并df1和df2，仅在满足条件时更改Value，取消选择副作用列，将列重命名为原始名称

library(dplyr)
desired <- left_join(df1, df2, by="ID") %>%
             mutate(Value=ifelse(is.na(Date.x > Date.y), Value, Value*Ratio)) %>%
             select( -Date.y, Ratio ) %>%
             setNames( c("ID","Date","Value") )