不带任何键并排粘贴 2 个数据框

Paste 2 data frames side by side without any key

我有两个数据框

A   B    E   H  
x1  x2  x3  x6  
x1  x2  x4  x7  
x1  x2  x5  x8  

A   B     
y1  y2    
y1  y2     

这就是我想用 dplyr 或 reshape2 实现的

A   B    E   H  A   B   
x1  x2  x3  x6  y1  y2  
x1  x2  x4  x7  y1  y2   
x1  x2  x5  x8      

谢谢

如果行数相同使用

cbind(df1, df2)
#   A  B  E  H  A  B
#1 x1 x2 x3 x6 y1 y2
#2 x1 x2 x4 x7 y1 y2
#3 x1 x2 x5 x8 y1 y2

或在dplyr

library(dplyr)
library(stringr)
df2 %>% 
       rename_all(~ str_c(., ".1")) %>%
       bind_cols(df1, .)

dplyr的某些版本中(0.8.5),当有重复的列名时,它会正确重命名

bind_cols(df1, df2)

注意:不建议在 data.frame 中使用相同的列名,因此我们可以将列名更改为 make.unique


如果我们有两个行数不相等的数据集

library(rowr)
cbind.fill(df1, df2new, fill = NA)
#   A  B  E  H    A    B
#1 x1 x2 x3 x6   y1   y2
#2 x1 x2 x4 x7   y1   y2
#3 x1 x2 x5 x8 <NA> <NA>

或者用base R

mxn <- max(nrow(df1), nrow(df2new))
df2new[(nrow(df2new)+1):mxn,] <- NA
cbind(df1, df2new)
#   A  B  E  H    A    B
#1 x1 x2 x3 x6   y1   y2
#2 x1 x2 x4 x7   y1   y2
#3 x1 x2 x5 x8 <NA> <NA>

数据

df1 <- structure(list(A = c("x1", "x1", "x1"), B = c("x2", "x2", "x2"
), E = c("x3", "x4", "x5"), H = c("x6", "x7", "x8")),
    class = "data.frame", row.names = c(NA, 
-3L))

df2 <- structure(list(A = c("y1", "y1", "y1"), B = c("y2", "y2", "y2"
)), class = "data.frame", row.names = c(NA, -3L))

df2new <- structure(list(A = c("y1", "y1"), B = c("y2", "y2")), class = "data.frame", row.names = c(NA, 
-2L))