有沒有辦法將兩個資料集同時連接到第三個？

我有一個看起來像這樣的資料集（df1）

ID     |New York Athletes
Base001 Aaron Judge 
Bask001 Kevin Durant
Bask002 Julius Randle
Base002 Max Scherzer

我想同時合并其他兩個資料集而不添加額外的列

ID     |TEAM
Bask001 Nets
Bask002 Knicks

ID     |TEAM
Base001 Yankees
Base002 Mets

df1<- df1 %>%
mutate(merge(df1,Base,by="ID",all.x = TRUE))%>%
mutate(merge(.,Base,by="ID",all.x = TRUE))

但是，當我這樣做時，我得到

ID     |New York Athletes|Teams   |Teams.x|Team.y
Base001 Aaron Judge       Yankees  Yankees 
Bask001 Kevin Durant                       Nets
Bask002 Julius Randle                      Knicks
Base002 Max Scherzer      Mets     Mets

我想得到這樣的東西

ID     |New York Athletes|Teams   
Base001 Aaron Judge       Yankees  
Bask001 Kevin Durant      Nets
Bask002 Julius Randle     Knicks
Base002 Max Scherzer      Mets     

uj5u.com熱心網友回復：

在基礎 R

merge(df1, rbind(df2, df3))

       ID New.York.Athletes    TEAM
1 Base001       Aaron Judge Yankees
2 Base002      Max Scherzer    Mets
3 Bask001      Kevin Durant    Nets
4 Bask002     Julius Randle  Knicks

uj5u.com熱心網友回復：

我認為@KU99 的答案可能是最簡單的，但這是另一個使用coalesce.

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
df1 <- tibble::tribble(
  ~ID, ~`New York Athletes`, 
"Base001", "Aaron Judge", 
"Bask001", "Kevin Durant",
"Bask002", "Julius Randle",
"Base002", "Max Scherzer")

df2 <- tibble::tibble(ID = c("Bask001", "Bask002"), 
                      TEAM = c("Nets", "Knicks"))

df3 <- tibble::tibble(ID = c("Base001", "Base002"), 
                      TEAM = c("Yankees", "Mets"))

df1 <- df1 %>%
  mutate(merge(.,df2,by="ID",all.x = TRUE))%>%
  mutate(merge(.,df3,by="ID",all.x = TRUE)) %>% 
  select(-TEAM) %>% 
  mutate(TEAM  = coalesce(TEAM.x,TEAM.y )) %>% 
  select(-c(TEAM.x, TEAM.y))

df1
#> # A tibble: 4 × 3
#>   ID      `New York Athletes` TEAM   
#>   <chr>   <chr>               <chr>  
#> 1 Base001 Aaron Judge         Yankees
#> 2 Base002 Max Scherzer        Mets   
#> 3 Bask001 Kevin Durant        Nets   
#> 4 Bask002 Julius Randle       Knicks

^{由reprex 包于 2022-04-15 創建(v2.0.1)}

uj5u.com熱心網友回復：

編輯后的答案：您實際上需要為此進行兩個單獨的連接。如果您想一次加入多個資料幀，請離開第一次嘗試，以供將來參考。

library(tidyverse)

df1 <- tribble(~ID, ~`New York Athletes`,
               "Base001", "Aaron Judge",
               "Bask001", "Kevin Durant",
               "Bask002", "Julius Randle",
               "Base002", "Max Scherzer")
df2 <- tribble(~ID,~TEAM,
               "Bask001", "Nets",
               "Bask002", "Knicks")
df3 <- tribble(~ID, ~TEAM,
               "Base001", "Yankees",
               "Base002", "Mets")


df1_1 <- full_join(df2, df3, by = c("ID", "TEAM"))
final_df <- left_join(df1, df1_1, by = "ID"); final_df
#> # A tibble: 4 × 3
#>   ID      `New York Athletes` TEAM   
#>   <chr>   <chr>               <chr>  
#> 1 Base001 Aaron Judge         Yankees
#> 2 Bask001 Kevin Durant        Nets   
#> 3 Bask002 Julius Randle       Knicks 
#> 4 Base002 Max Scherzer        Mets

^{由reprex 包于 2022-04-15 創建(v2.0.1)}

是的，您可以使用該purrr功能一次進行多個連接，如下所示：

library(tidyverse)

df1 <- tibble(x = c("A1", "A2", "B1", "B2"), y = c(1, 2, 3, 4))
df2 <- tibble(x = c("A1", "A2", "B1", "B2"), z = c(4, 5, 6, 7))
df3 <- tibble(x = c("A1", "A2", "B1", "B2"), delta = c(8, 9, 10, 11))

list_of_dataframes <- list(df1, df2, df3)

purrr::reduce(list_of_dataframes, left_join, by = "x")
#> # A tibble: 4 × 4
#>   x         y     z delta
#>   <chr> <dbl> <dbl> <dbl>
#> 1 A1        1     4     8
#> 2 A2        2     5     9
#> 3 B1        3     6    10
#> 4 B2        4     7    11

^{由reprex 包于 2022-04-15 創建(v2.0.1)}

uj5u.com熱心網友回復：

您可以使用 {powerjoin}

library(powerjoin)
power_left_join(df1, list(df2, df3), by = "ID", conflict = coalesce_xy)
#> # A tibble: 4 × 3
#>   ID      `New York Athletes` TEAM   
#>   <chr>   <chr>               <chr>  
#> 1 Base001 Aaron Judge         Yankees
#> 2 Bask001 Kevin Durant        Nets   
#> 3 Bask002 Julius Randle       Knicks 
#> 4 Base002 Max Scherzer        Mets

^{由reprex 包創建于 2022-04-16 (v2.0.1)}

標籤：r 加入

上一篇：產生所需輸出的三重連接問題

下一篇：BigQuery中的非重復值