使用 R 中的特定条件将值从一个 dataframe 复制并重复到另一个 dataframe

Question

我有两个数据框，它们之间有不同的列，如下所示：

DF1
    month      mbs   rec_n     vol_n      rec_indice  rec_mm
    2021-05-01 hsp   164.84724 102.44143  1.5         0.6
    2021-05-01 tvc   106.2428  81.89729   16.4        2.9
    2021-07-01 tvc   111.51844 90.37325   -3.1       -3.4
    2022-01-01 outro 74.33283  70.90493   0.8         1.2

DF2
    month      mbs  prod_n     prod_n_mm
    2021-05-01 inds 164.84724  102.44143
    2021-05-01 indf 106.2428   81.89729
    2021-07-01 inds 111.51844  90.37325
    2022-01-01 indf 74.33283   70.90493

我想复制 DF1 和 2 各自列的列和值，比较列月和mbs是否相等。 月份列只能与月份进行比较，而不是与日期进行比较。 如果“月”列的月份相同，mbs 列的值也相同，则复制该值。 如果不满足这些条件，则将值设置为零，如 DF3 所示

DF3
    month      mbs   x     y     rec_n     vol_n     rec_indice  rec_mm prod_n    pro_n_mm
    2021-05-06 hsp   value value 164.84724 102.44143 1.5         0.6    0         0
    2021-05-30 hsp   value value 164.84724 102.44143 1.5         0.6    0         0
    2021-05-18 tvc   value value 106.2428  81.89729  16.4        2.9    0         0
    2022-01-21 outro value value 74.33283  70.90493  0.8         1.2    0         0
    2022-01-30 outro value value 74.33283  70.90493  0.8         1.2    0         0
    2021-05-06 inds  value value 0         0         0           0      164.84724 102.44143
    2021-07-30 idnf  value value 0         0         0           0      0         0
    2021-07-22 inds  value value 0         0         0           0      111.51844 90.37325
    2022-01-21 indf  value value 0         0         0           0      74.33283 70.90493

请记住列 x 和 y 是 DF3 中已经存在的列。 所以我只想用 DF1 和 DF2 的列来完成 DF3。

Answer 1

听起来您正在寻找完全加入：

library(tidyverse)

full_join(DF1, DF2, by = c('month', 'mbs'))
#>        month   mbs     rec_n     vol_n rec_indice rec_mm    prod_n prod_n_mm
#> 1 2021-05-01   hsp 164.84724 102.44143        1.5    0.6        NA        NA
#> 2 2021-05-01   tvc 106.24280  81.89729       16.4    2.9        NA        NA
#> 3 2021-07-01   tvc 111.51844  90.37325       -3.1   -3.4        NA        NA
#> 4 2022-01-01 outro  74.33283  70.90493        0.8    1.2        NA        NA
#> 5 2021-05-01  inds        NA        NA         NA     NA 164.84724 102.44143
#> 6 2021-05-01  indf        NA        NA         NA     NA 106.24280  81.89729
#> 7 2021-07-01  inds        NA        NA         NA     NA 111.51844  90.37325
#> 8 2022-01-01  indf        NA        NA         NA     NA  74.33283  70.90493

如果你真的想要零而不是NA （这可能会导致以后出现问题），那么你可以这样做：

full_join(DF1, DF2, by = c('month', 'mbs')) %>%
  replace_na(list(rec_n = 0, vol_n = 0, rec_indice = 0, rec_mm = 0, 
                  prod_n = 0, prod_n_mm = 0))
#>        month   mbs     rec_n     vol_n rec_indice rec_mm    prod_n prod_n_mm
#> 1 2021-05-01   hsp 164.84724 102.44143        1.5    0.6   0.00000   0.00000
#> 2 2021-05-01   tvc 106.24280  81.89729       16.4    2.9   0.00000   0.00000
#> 3 2021-07-01   tvc 111.51844  90.37325       -3.1   -3.4   0.00000   0.00000
#> 4 2022-01-01 outro  74.33283  70.90493        0.8    1.2   0.00000   0.00000
#> 5 2021-05-01  inds   0.00000   0.00000        0.0    0.0 164.84724 102.44143
#> 6 2021-05-01  indf   0.00000   0.00000        0.0    0.0 106.24280  81.89729
#> 7 2021-07-01  inds   0.00000   0.00000        0.0    0.0 111.51844  90.37325
#> 8 2022-01-01  indf   0.00000   0.00000        0.0    0.0  74.33283  70.90493

^{使用reprex v2.0.2创建于 2022-09-27}