dplyr का उपयोग कर एकाधिक डेटा फ्रेम में कैसे शामिल हों?

Question

मैं left_join से अधिक डेटा फ्रेम करना चाहते हैं:

dfs <- list(
    df1 = data.frame(a = 1:3, b = c("a", "b", "c")), 
    df2 = data.frame(c = 4:6, b = c("a", "c", "d")), 
    df3 = data.frame(d = 7:9, b = c("b", "c", "e")) 
) 
Reduce(left_join, dfs) 
# a b c d 
# 1 1 a 4 NA 
# 2 2 b NA 7 
# 3 3 c 5 8 

यह काम करता है क्योंकि वे सभी एक ही b स्तंभ है, लेकिन Reduce मुझे अतिरिक्त तर्क है कि मैं left_join को पारित कर सकते हैं निर्दिष्ट नहीं देता। क्या इस तरह के लिए कुछ काम है?

dfs <- list(
    df1 = data.frame(a = 1:3, b = c("a", "b", "c")), 
    df2 = data.frame(c = 4:6, d = c("a", "c", "d")), 
    df3 = data.frame(d = 7:9, b = c("b", "c", "e")) 
) 

अद्यतन

काम करता है इस तरह की: Reduce(function(...) left_join(..., by = c("b" = "d")), dfs) लेकिन जब by एक तत्व की तुलना में अधिक है, यह इस त्रुटि देता है: Error: cannot join on columns 'b' x 'd': index out of bounds

Answer 1

मुझे बहुत देर हो चुकी है मुझे पता है .... आज मुझे अनुत्तरित प्रश्न अनुभाग में पेश किया गया है। परेशान करने के लिए क्षमा करें।

merge() का उपयोग left_join()

dfs <- list(
       df1 = data.frame(b = c("a", "b", "c"), a = 1:3), 
       df2 = data.frame(d = c("a", "c", "d"), c = 4:6), 
       df3 = data.frame(b = c("b", "c", "e"), d = 7:9) 
     ) 

func <- function(...){ 
    df1 = list(...)[[1]] 
    df2 = list(...)[[2]] 
    col1 = colnames(df1)[1] 
    col2 = colnames(df2)[1] 
    xxx = left_join(..., by = setNames(col2,col1)) 
    return(xxx) 
} 
Reduce(func, dfs) 
# b a c d 
#1 a 1 4 NA 
#2 b 2 NA 7 
#3 c 3 5 8 

का उपयोग करना:

func <- function(...){ 
    df1 = list(...)[[1]] 
    df2 = list(...)[[2]] 
    col1 = colnames(df1)[1] 
    col2 = colnames(df2)[1] 
    xxx=merge(..., by.x = col1, by.y = col2, , all.x = T) 
    return(xxx) 
} 

Reduce(func, dfs) 
# b a c d 
#1 a 1 4 NA 
#2 b 2 NA 7 
#3 c 3 5 8 

Answer 2

क्या आप के लिए यह काम करता है?

jnd.tbl <- df1 %>% 
    left_join(df2, by='b') %>% 
    left_join(df3, by='d')