Cómo enlazar solo las columnas comunes de dos conjuntos de datos

Question

Tengo 2 marcos de datos con diferente número de columnas cada uno. Algunas de las columnas son comunes entre los 2 marcos de datos. ¿Cómo puedo vincular solo las columnas comunes de los dos marcos de datos a un nuevo marco de datos?

probé con library(plyr);rbind.fill(A,B) sin embargo, establece valores de NA en las columnas que no coinciden, y esto no me ayuda.

Muchas gracias CE

Answer 1

Uso intersect para recuperar las columnas comunes.

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) 
) 

Como se señaló en los comentarios, puede reemplazar la última línea con

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

para un pequeño rendimiento y la tipificación de mejora.

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

también funciona, pero creo que es un poco menos claro.

Answer 2

Aquí está mi solución esperanza de que consiguiera su pregunta correcta

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)