如何将含数千个数据框的列表中各数据框列合并为单列并转数据框？

步骤说明 #

R语言的标准数据框要求所有列长度一致，因此处理时需要先将每个数据框的列堆叠为单列，再将短列补全NA至最长列的长度，最终合并为数据框。

代码实现 #

方法一：Base R原生实现 #

# 示例数据
df1 = data.frame(
  X1 = c(1, 2, 3),
  X1.2 = c(4, 5, 6)
)
df2 = data.frame(
  X2 = c(7, 8, 9),
  X2.2 = c(1, 4, 6)
)
df3 = data.frame(
  X3 = c(3, 4, 1),
  X3.2 = c(8, 3, 5),
  X3.3 = c(3, 1, 9)
)
 
listOfDataframe = list(df1, df2, df3)

# 1. 堆叠每个数据框的所有列
stacked_list <- lapply(listOfDataframe, function(df) unlist(df, use.names = FALSE))

# 2. 提取并设置最终列名（从原数据框列名中提取前缀）
col_names <- sapply(listOfDataframe, function(df) gsub("\\..*", "", names(df)[1]))
names(stacked_list) <- col_names

# 3. 确定最长列的长度
max_length <- max(sapply(stacked_list, length))

# 4. 补全短列至最长长度，缺失值用NA填充
filled_list <- lapply(stacked_list, function(vec) {
  c(vec, rep(NA, max_length - length(vec)))
})

# 5. 合并为最终数据框
df_final <- as.data.frame(filled_list)

方法二：使用plyr包简化操作 #

如果安装了plyr包，可以用cbind.fill自动处理不等长列的补全：

install.packages("plyr") # 首次使用需安装
library(plyr)

# 堆叠每个数据框为单列数据框
stacked_dfs <- lapply(listOfDataframe, function(df) {
  data.frame(col = unlist(df, use.names = FALSE))
})

# 设置列名
col_names <- sapply(listOfDataframe, function(df) gsub("\\..*", "", names(df)[1]))
names(stacked_dfs) <- col_names

# 合并并自动补NA
df_final <- cbind.fill(stacked_dfs)

输出结果 #

执行后得到的df_final符合R数据框规范，短列自动补NA：

> df_final
  X1 X2 X3
1  1  7  3
2  2  8  4
3  3  9  1
4  4  1  8
5  5  4  3
6  6  6  5
7 NA NA  3
8 NA NA  1
9 NA NA  9

关键说明 #

• unlist(df, use.names = FALSE)：将数据框的所有列按顺序纵向拼接为一个向量，use.names=FALSE避免保留原列名的干扰。
• 补NA的必要性：R数据框要求所有列长度严格一致，因此必须将短列补全至最长列的长度，缺失值用NA表示。

内容的提问来源于stack exchange，提问作者LB.