将三个数据帧中的列一一组合

Posted 2023-03-31

【中文标题】将三个数据帧中的列一一组合

【英文标题】：Combining columns one by one from three dataframes

【发布时间】：2020-01-11 18:59:15

【问题描述】：

我有三个数据框，例如，第一个有变量x1、x2、x3。第二个有y1、y2、y3，最后一个有z1、z2、z3 列。我想用这样的顺序创建一个数据框：

x1 y1 z1 x2 y2 z2 x3 y3 z3

x1 <- c(1:10)
x2 <- c(1:10)
x3 <- c(11:20)
x <- data.frame(cbind(x1,x2,x3))

y1 <- c(1:10)
y2 <- c(1:10)
y3 <- c(11:20)
y <- data.frame(cbind(y1,y2,y3))

z1 <- c(1:10)
z2 <- c(1:10)
z3 <- c(11:20)
z <- data.frame(cbind(z1,z2,z3))

三个数据框有更多的列（15），我想要一个有那些，第二个有秒......

【问题讨论】：

你能把你的数据和你的代码放在你尝试的地方吗

请让您的问题可重现。数据帧的长度是多少？它们是否具有可用于合并它们的公共键（ID 列）？如果没有，rbind他们。还包括您尝试过的内容

【参考方案1】：

假设您在每个数据框中有相同数量的行，您可以cbind 他们，删除字符并使用order

df <- cbind(df1, df2, df3)
df[, order(gsub("[A-Za-z]", "", names(df)))]

#  x1 y1 z1 x2 y2 z2 x3 y3 z3
#1  1  1  1  6  6  6 11 11 11
#2  2  2  2  7  7  7 12 12 12
#3  3  3  3  8  8  8 13 13 13
#4  4  4  4  9  9  9 14 14 14
#5  5  5  5 10 10 10 15 15 15

数据

df1 <- data.frame(x1 = 1:5, x2 = 6:10, x3 = 11:15)
df2 <- data.frame(y1 = 1:5, y2 = 6:10, y3 = 11:15)
df3 <- data.frame(z1 = 1:5, z2 = 6:10, z3 = 11:15)