シーケンスに基づく一覧の要素のペアの結合

Question

私は2つの時点で回答者から収集したデータを使用しています。各回答者の各データセットは別々のファイルとして保存されます。私は42人の回答があるので、私は合計84ファイルを持っています。私は、これらのファイルのすべてを84要素リストにまとめました。リストの各要素はデータフレームです。

ファイルの名前付け方法のため、リストの最初の要素には回答者Aの最初の時点からのデータが含まれ、2番目の要素には応答者Aの2番目の時点のデータが含まれます。応答者Bの第1の時点からのデータであり、第4の要素は、応答者Bの第2の時点のデータである。

第1の時点をマージするループを作成する方法を理解しようとしている第2要素、第3要素、第4要素などがあり、84要素のリストは42要素のリストになります。

ここにいくつかのコード例を示します。この例では、各回答者はベクトル「ID」の値で表され、回答者の運動パートナーはベクトル「名前」にリストされ、これらの運動パートナーの体重はベクトル「体重」および「体重2」に表示されます。

Names <- c("Kevin", "Rich", "Frank") 
ID <- c("A1", "A1", "A1") 
Weight <- c(159, 200, 186) 
df1 <- data.frame(ID, Names, Weight) 

Names <- c("Kevin", "Rich", "Frank", "Kip", "Earl") 
ID <- c("A1", "A1", "A1", "A1", "A1") 
Weight2 <- c(170, 180, 190, 240, 255) 
df2 <- data.frame(ID, Names, Weight2) 

Names <- c("Sam", "Tim", "Bill", "Bobby") 
ID <- c("B2", "B2", "B2", "B2") 
Weight <- c(105, 155, 177, 310) 
df3 <- data.frame(ID, Names, Weight) 

Names <- c("Sam", "Eric", "Donald") 
ID <- c("B2", "B2", "B2") 
Weight2 <- c(120, 100, 205) 
df4 <- data.frame(ID, Names, Weight2) 

example_list <- list(df1, df2, df3, df4) 

example_merge1 <- merge.data.frame(df1, df2, by.x = "Names", by.y = "Names", all = TRUE) 

example_merge2 <- merge.data.frame(df3, df4, by.x = "Names", by.y = "Names", all = TRUE) 

私のリストは、「example_list」と表示された上記のコードで作成したリストに似ていますし、私はそれがマージされたデータフレームを作成するように、リストオブジェクトの上にマージループを実行する方法を把握しようとしていますその"example_merge1"と "example_merge2"に表示されます。ここで

Answer 1

は、与える、ベースRを経由して

m1 <- matrix(seq_along(example_list), ncol = 2, byrow = TRUE) 

lapply(split(m1, seq(nrow(m1))), function(i) 
        merge(example_list[i[1]], example_list[i[2]], by = 'Names', all = TRUE)) 

アイデアです

$`1` 
    Names ID.x Weight ID.y Weight2 
1 Frank A1 186 A1  190 
2 Kevin A1 159 A1  170 
3 Rich A1 200 A1  180 
4 Earl <NA>  NA A1  255 
5 Kip <NA>  NA A1  240 

$`2` 
    Names ID.x Weight ID.y Weight2 
1 Bill B2 177 <NA>  NA 
2 Bobby B2 310 <NA>  NA 
3 Sam B2 105 B2  120 
4 Tim B2 155 <NA>  NA 
5 Donald <NA>  NA B2  205 
6 Eric <NA>  NA B2  100