如何合并具有重復測量的資料集

我有兩個要 MERGE/JOIN 的資料集。

df1

      ID     Grup   pretest
 1     1     A      2  
 2     1     A      1   
 3     1     A      3   
 4     2     B      NA  
 5     2     B      1   
 6     2     B      3  
 7     3     A      2   
 8     3     A      1  
 9     3     A      NA   
 10    4     B      2   
 11    4     B      1   
 12    4     B      3  

df2

      ID     Grup   posttest  
 1     1     A      NA 
 2     1     A      5   
 3     1     A      4  
 4     2     B      2   
 5     2     B      4  
 6     2     B      3  
 7     3     A      5 
 8     3     A      6
 9     3     A      3   
 10    4     B      4 
 11    4     B      2  
 12    4     B      NA

我一直在嘗試merge()，full_join()但最終都創建了我不想要的重復項。

它不會將 the 識別ID為一個獨立的值，它會ID為每個ID值創建 9 s。

New <- merge(df1, df2, by= 'ID')  

New <- full_join(df1, df2, By = "ID")

設定all = TRUE沒有幫助。

我需要資料集看起來像這樣

     ID     Grup   pretest posttest 
 1     1     A      2        NA
 2     1     A      1         5
 3     1     A      3         4
 4     2     B      NA        2
 5     2     B      1         4
 6     2     B      3         3
 7     3     A      2         5
 8     3     A      1         6
 9     3     A      NA        3
 10    4     B      2         4
 11    4     B      1         2
 12    4     B      3         NA

uj5u.com熱心網友回復：

由于您依賴于幀的順序，因此您可以簡單地使用cbind()

cbind(df1,df2[,3,F])

輸出：

   ID Grup pretest posttest
1   1    A       2       NA
2   1    A       1        5
3   1    A       3        4
4   2    B      NA        2
5   2    B       1        4
6   2    B       3        3
7   3    A       2        5
8   3    A       1        6
9   3    A      NA        3
10  4    B       2        4
11  4    B       1        2
12  4    B       3       NA

uj5u.com熱心網友回復：

您可以添加輔助列iid來分隔條目。

df1 <- cbind(iid = 1:nrow(df1), df1)
df2 <- cbind(iid = 1:nrow(df2), df2)

和dplyr

library(dplyr)

left_join(df1, df2, c("iid", "ID", "Grup"))[,-1]
   ID Grup pretest posttest
1   1    A       2       NA
2   1    A       1        5
3   1    A       3        4
4   2    B      NA        2
5   2    B       1        4
6   2    B       3        3
7   3    A       2        5
8   3    A       1        6
9   3    A      NA        3
10  4    B       2        4
11  4    B       1        2
12  4    B       3       NA

帶基 R merge

merge(df1, df2, c("iid", "ID", "Grup"))[,-1]
   ID Grup pretest posttest
1   1    A       2       NA
2   4    B       2        4
3   4    B       1        2
4   4    B       3       NA
5   1    A       1        5
6   1    A       3        4
7   2    B      NA        2
8   2    B       1        4
9   2    B       3        3
10  3    A       2        5
11  3    A       1        6
12  3    A      NA        3

資料

df1 <- structure(list(ID = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L,
4L, 4L), Grup = c("A", "A", "A", "B", "B", "B", "A", "A", "A",
"B", "B", "B"), pretest = c(2L, 1L, 3L, NA, 1L, 3L, 2L, 1L, NA,
2L, 1L, 3L)), class = "data.frame", row.names = c("1", "2", "3",
"4", "5", "6", "7", "8", "9", "10", "11", "12"))

df2 <- structure(list(ID = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L,
4L, 4L), Grup = c("A", "A", "A", "B", "B", "B", "A", "A", "A",
"B", "B", "B"), posttest = c(NA, 5L, 4L, 2L, 4L, 3L, 5L, 6L,
3L, 4L, 2L, NA)), class = "data.frame", row.names = c("1", "2",
"3", "4", "5", "6", "7", "8", "9", "10", "11", "12"))

uj5u.com熱心網友回復：

另一種選擇是通過行名加入，例如。行號：

library(tibble)
library(dplyr)

left_join(rownames_to_column(df1), df2 %>% rownames_to_column() , by="rowname") %>% 
  select(ID = ID.x, Grup = Grup.x, pretest, posttest)

   ID Grup pretest posttest
1   1    A       2       NA
2   1    A       1        5
3   1    A       3        4
4   2    B      NA        2
5   2    B       1        4
6   2    B       3        3
7   3    A       2        5
8   3    A       1        6
9   3    A      NA        3
10  4    B       2        4
11  4    B       1        2
12  4    B       3       NA

標籤：r合并左连接

上一篇：如何在R中使用stringr檢測1？[復制]

下一篇：從另一列中找到符合條件的最大值