Rデータフレームでデータが重複している列を結合する

Question

a<-data.frame(cbind("Sample"=c("100","101","102","103"),"Status"=c("Y","","","partial"))) 
b<-data.frame(cbind("Sample"=c("100","101","102","103","106"),"Status"=c("NA","Y","","","Y"))) 

desired<-data.frame(cbind("Sample"=c("100","101","102","103","106"),"Status"=c("Y","Y","","partial","Y"))) 

複数のソースにサンプル処理データがあり、それらを結合してマスターリストにしたいと思います。各サンプルに対して "Y"と "partial"を照合するために、2つのデータフレームの間で "ステータス"列を結合することができますか？前もって感謝します。

Answer 1

require(data.table)  

a<-data.table(cbind("Sample"=c("100","101","102","103"),"Status"=c("Y","","","partial"))) 
b<-data.table("Sample"=c("100","101","102","103","106"),"Status"=c("NA","Y","","","Y")) 

c <- merge(a, b, by = "Sample", all=TRUE) 
c[,Status := ifelse(!is.na(Status.x), Status.x, Status.y)] 
c[,`:=` (Status.x=NULL, Status.y = NULL)] 

Answer 2

aとbの値を優先順位で維持したいとします.Yは何もカバーしていないNAを部分的にカバーします。

d <- merge(a,b,by="Sample",all=TRUE) 
d$Status <- "" 
d$Status[apply(c,1,function(x){any(is.na(x))})] <- "" # cleaning the NAs I introduced with the merge 
d$Status[apply(c,1,`%in%`, x = "NA")] <- NA # or "NA" if you want to keep it this way, or "" if you want to get rid of them 
d$Status[apply(c,1,`%in%`, x = "partial")] <- "partial" 
d$Status[apply(c,1,`%in%`, x = "Y")] <- "Y" 
d <- d[,c(1,4)] 

# Sample Status 
# 1 100  Y 
# 2 101  Y 
# 3 102   
# 4 103 partial 
# 5 106  Y