R将具有相反值和NA值的两列合并为一列，并删除现有的

Question

我有一个像这样的数据文件：

structure(list(RFM_Score_Meaning.x = c("Dropped", "Dropped", 
"Dropped", "Dropped", "Dropped", "Dropped", "Dropped", NA, NA, 
NA, NA, NA, NA, NA, NA, NA), RFM_Score_Meaning.y = c(NA, NA, 
NA, NA, NA, NA, NA, "Need Encouragement", "Need Encouragement", 
"Need Encouragement", "Need Encouragement", "Need Encouragement", 
"Need Encouragement", "Need Encouragement", "Need Encouragement", 
"Need Encouragement")), row.names = c(NA, -16L), class = c("tidytable", 
"data.table", "data.frame"), .internal.selfref = <pointer: 0x000002470fabbfe0>)


RFM_Score_Meaning.x
<chr>
RFM_Score_Meaning.y
<chr>
Dropped NA          
Dropped NA          
Dropped NA          
Dropped NA          
Dropped NA          
Dropped NA          
Dropped NA          
NA  Need Encouragement          
NA  Need Encouragement          
NA  Need Encouragement

此数据为两列。第一列中NA的位置在第二列中有值，反之亦然。

我如何摆脱这两列，而不是有一个列，它有所有的值，没有任何NA值？

Answer 1

我们可以用coalesce

library(dplyr)
df %>% 
  transmute(RFM_Score_Meaning = coalesce(RFM_Score_Meaning.x, RFM_Score_Meaning.y))

     RFM_Score_Meaning
 1:            Dropped
 2:            Dropped
 3:            Dropped
 4:            Dropped
 5:            Dropped
 6:            Dropped
 7:            Dropped
 8: Need Encouragement
 9: Need Encouragement
10: Need Encouragement
11: Need Encouragement
12: Need Encouragement
13: Need Encouragement
14: Need Encouragement
15: Need Encouragement
16: Need Encouragement