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

时间:2020-10-19 15:19:40

标签: r rbind sqldf cbind

我有两个数据帧,例如

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

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

1 个答案:

答案 0 :(得分:2)

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 = NA1 * x = x。如果df1df2依赖于相同的列顺序,但是如果需要可以很容易地进行调整。