具有tidyverse dplyr类sql-update的通用数据帧更新功能

Question

我搜索一个通用的数据帧更新函数，比如sql-update，它更新第一个数据帧中的值，以防键与第二个数据帧中的键匹配。是否有一个更通用的方法，如我的例子，也许也通过考虑值的名称？类似于泛型dplyr::update(df1，df2，by = "key")函数？

library(tidyverse)
# example data frame
df1 <- as_data_frame(list(key = c(1,2,3,4,5,6,7,8,9),
                          v1 = c(11,12,13,14,15,16,17,18,19),
                          v2 = c(21,22,23,24,25,26,27,28,29),
                          v3 = c(31,32,33,34,35,36,37,38,39),
                          v4 = c(41,42,43,44,45,46,47,48,49)))
df2 <- as_data_frame(list(key = c(3,5,9),
                          v2 = c(231,252,293),
                          v4 = c(424,455,496)))

# update df1 with values from df2 where key match
org_names <- df1 %>% names()
df1 <- df1 %>% 
  left_join(df2, by = "key") %>% 
  mutate(v2 = ifelse(is.na(v2.y), v2.x, v2.y),
         v4 = ifelse(is.na(v4.y), v4.x, v4.y)) %>% 
  select(org_names)

> df1
# A tibble: 9 x 5
key    v1    v2    v3    v4
<dbl> <dbl> <dbl> <dbl> <dbl>
1     1    11    21    31    41
2     2    12    22    32    42
3     3    13   231    33   424
4     4    14    24    34    44
5     5    15   252    35   455
6     6    16    26    36    46
7     7    17    27    37    47
8     8    18    28    38    48
9     9    19   293    39   496
> 

Answer 1

1) %<>% Magrittr有一个复合赋值管道：

library(magrittr)

df1 %>% 
    { keys <- intersect(.$key, df2$key)
    .[match(keys, .$key), names(df2)] %<>% { df2[match(keys, df2$key), ] }
    .
}

由于df2中的所有键都在df1中，所以对于正在考虑的问题，它简化为此。

df1 %>% { .[match(df2$key, .$key), names(df2)]  %<>% { df2 }; . }

2) <-基本的R赋值运算符也可以用同样的方式使用，实际上，代码比(1)短：

df1 %>% 
    { keys <- intersect(.$key, df2$key)
    .[match(keys, .$key), names(df2)] <- df2[match(keys, df2$key), ]
    .
}

但是，对于正在考虑的问题，df2中的所有键都在df1中，因此它简化为：

df1 %>% { .[match(df2$key, .$key), names(df2)] <- df2; . }

3) mutate_cond使用在this SO post中定义的mutate_cond，我们可以编写以下内容。

df1 %>% mutate_cond(.$key %in% df2$key, v2 = df2$v2, v4 = df2$v4)

注意:如果df1和df2中的键都是唯一的，那么前两种方法都可以工作。第三种方法还要求密钥按相同的顺序排列，df2中的每个键都使用df1。问题中的问题满足了这些要求。

更新：在(1)和(2)中对代码进行了一些概括。