合并入口为NA的数据帧

Question

我有两个数据帧，并希望通过id合并它们，以便将目标数据帧“df1”中的NA值替换为“df2”的值。直到现在我用

df1<-data.frame(id=1:3,a=c(NA,"A","B")) 
df2<-data.frame(id=1:3,a=LETTER[1:3]) 
idx<-is.na(df1) 
df1[idx]<-df2[idx] 

但是，如果数据帧具有不同的尺寸，这将无法正常工作。

Answer 1

在使用merge和ifelse 2个步骤：

df1<-data.frame(id=1:3,a=c(NA,"A","B"),stringsAsFactors=FALSE) 
df2<-data.frame(id=1:3,a=LETTERS[1:3],stringsAsFactors=FALSE) 
mm <- merge(df1,df2,by=1,all.y=TRUE,al.x=FALSE) 
mm$a.x <- ifelse(is.na(mm$a.x),mm$a.y,mm$a.x) 
mm 
    id a.x a.y 
1 1 A A 
2 2 A B 
3 3 B C 

矿石一个衬里溶液使用data.table：

library(data.table) 
DT1 <- data.table(df1,key='id') 
DT2 <- data.table(df2,key='id') 
DT1[DT2][,list(id,ifelse(is.na(a),a.1,a))] 
    id V2 
1: 1 A 
2: 2 A 
3: 3 B