私は2つのデータフレームを持っている（値を更新し、ドロップ）Rで

Question

を2つのデータフレームをマージ：

data <- data.frame(ID1 = c("D1","D1","D1","D1","D2","D2"), 
       ID3 = c("A","A","D","D","B","C"), 
       Attribute = c("KL","KM","KL","KM","AB","AB"), 
       Value = c(2,2,3,3,5,7)) 


data_new <- data.frame(ID1 = c("D1","D1","D2","D2"), 
       ID2 = c("D1-1","D1-1","D2-1","D2-1"), 
       Attribute = c("KL","TA","AB","AA")) 

今、私は私の新しいデータフレームのデータからValuesとID3を組み込むしたいと思います。また、いくつかの属性を削除して新しい属性を追加したいと考えています。出力は次のようになります。

expected_output <- data.frame(ID1 = c("D1","D1","D1","D1","D2","D2","D2","D2"), 
          ID2 = c("D1-1","D1-1","D1-1","D1-1","D2-1","D2-1","D2-1","D2-1"), 
          ID3 = c("A","A","D","D","B","B","C","C"), 
          Attribute = c("KL","TA","KL","TA","AB","AA","AB","AA"), 
          Value = c(2,2,3,3,5,5,7,7)) 

誰でもこのことを教えてください。

私がこれまでに試したのは単純なマージです。

mergeddata <- merge(data_new,data, 
       by.x = c("ID1"), 
       by.y = c("ID1")) 

結果は、私はちょうど「列Attribute.xをドロップしなければならないID1 = D2のために有望に見える。しかしID = D1は、私が欲しいものではありません。行5-8はもう新しいテーブルであってはならない。

任意の助け

Answer 1

私はあなたが次のことを試みることができると思う：？

mergeddata <- merge(data_new ,unique(data[, c("ID1", "ID3", "Value")]), by = "ID1")