दो डेटा सेटों के केवल सामान्य स्तंभों को कैसे रेबिंड करें

Question

मेरे पास प्रत्येक डेटा कॉलम के साथ 2 डेटा फ्रेम हैं। कुछ कॉलम 2 डेटा फ्रेम के बीच आम हैं। मैं दो डेटा फ्रेम के केवल सामान्य कॉलम को एक नए डेटा फ्रेम में कैसे रेबिंड कर सकता हूं?

मैंने library(plyr);rbind.fill(A,B) के साथ प्रयास किया हालांकि यह उन स्तंभों में एनए मान सेट करता है जो मेल नहीं खाते हैं, और यह मेरी मदद नहीं करता है।

धन्यवाद एक बहुत चुनाव आयोग

Answer 1

उपयोग intersect आम स्तंभों को पुनः प्राप्त करने।

dfr1 <- data.frame(x = 1:5, y = runif(5), z = rnorm(5)) 
dfr2 <- data.frame(w = letter[1:5], x = 6:10, y = runif(5)) 
common_cols <- intersect(colnames(dfr1), colnames(dfr2)) 
rbind(
    subset(dfr1, select = common_cols), 
    subset(dfr2, select = common_cols) 
) 

के रूप में टिप्पणी में कहा, यदि आप एक छोटे प्रदर्शन और टाइपिंग में सुधार के लिए

rbind(
    dfr1[, common_cols], 
    dfr2[, common_cols] 
) 

साथ अंतिम पंक्ति बदल सकते हैं।

rbind(
    dfr1[common_cols], 
    dfr2[common_cols] 
) 

भी काम करता है लेकिन मुझे लगता है कि यह थोड़ा सा स्पष्ट है।

Answer 2

यहाँ मेरी समाधान आशा है मैं सही

अपने प्रश्न मिला

df1 <- data.frame(a=rnorm(100), b=rnorm(100), not=rnorm(100)) 
df2 <- data.frame(a=rnorm(100), b=rnorm(100)) 

bind1 <- bind1 <- df1[, names(df1) %in% names(df2)] 
bind2 <- bind1 <- df1[, names(df2) %in% names(df1)] 

rbind(bind1, bind2)