r - 如何通过系统地重新排列现有 data.frames 列表中的列来创建新的 data.frames 列表

Question

我有一个包含大约 100 个数据框的列表。我想创建一个新的数据框列表，其中第一个数据框由所有现有数据框的第一列组成，第二个数据框由第二列组成，依此类推...

请参阅下面的代码以了解我想要执行的操作的示例。

a <- c(0, 0, 1, 1, 1)
b <- c(0, 1, 0, 0, 1)
c <- c(1, 1, 0, 0, 1)
df1 <- data.frame(a, b, c)
df2 <- data.frame(c, b, a)
df3 <- data.frame(b, a, c)
my_lst <- list(df1, df2, df3)

new_df1 <- data.frame(df1[,1], df2[,1], df3[,1])
new_df2 <- data.frame(df1[,2], df2[,2], df3[,2])
new_df3 <- data.frame(df1[,3], df2[,3], df3[,3])

new_lst <- list(new_df1, new_df2, new_df3)

对于包含大型数据框的大型列表，是否有更紧凑的方法？提前致谢。

Answer 1

这是一个选项:

cols <- ncol(my_lst[[1]])

lapply(1:cols, function(x) do.call(cbind, lapply(my_lst, `[`, x)))

[[1]]
  a c b
1 0 1 0
2 0 1 1
3 1 0 0
4 1 0 0
5 1 1 1

[[2]]
  b b a
1 0 0 0
2 1 1 0
3 0 0 1
4 0 0 1
5 1 1 1

[[3]]
  c a c
1 1 0 1
2 1 0 1
3 0 1 0
4 0 1 0
5 1 1 1