条件绑定-根据其他2个数据框中的值创建新数据框

问题描述

我有两个数据帧，例如

df1 <- data.frame(Company = c('A','B','C','D','E','F'),`X1980` = c(21,NA,53,57,11,26),`X1981` = c(35,33,45,12))
df2 <- data.frame(Company = c('A',`X1980` = c(1,1,0),`X1981` = c(1,0))

我想创建一个新的数据框（df3），将company列保持原样。 1980年和1981年的值应取决于df2中的值：如果值1，则从df1中插入值，否则插入“ NA”。结果数据框应表示以下内容：

result df3
        Company  1980  1981
           A      21    35
           B      NA    33
           C      NA    45
           D      57    NA
           E      11    NA
           F      NA    NA

感谢您的帮助！ 如果我有什么办法可以改善这个问题，那就告诉我。

解决方法

将0中的df2更改为NA并相乘：

df2[df2 == 0] = NA
df2[-1] = df1[-1] * df2[-1]
df2
#   Company X1980 X1981
# 1       A    21    35
# 2       B    NA    33
# 3       C    NA    45
# 4       D    57    NA
# 5       E    11    NA
# 6       F    NA    NA

之所以有效，是因为NA * x = NA和1 * x = x。如果df1和df2依赖于相同的列顺序，但是如果需要可以很容易地进行调整。