R语言数据框列表列转置为行生成新数据框及apply报错解决

你之前写的代码报dim(X) must have positive length，核心问题有两个：

• apply() 仅适配矩阵/数组结构，传入普通列表dat时根本无法按行维度遍历，函数内拿到的x是整个子数据框对象，不是列表索引，后续用dat[[x]]索引自然会取到空值，触发维度错误
• 你单列转置拼接的思路本身没问题，只是遍历普通列表必须用支持列表结构的循环函数，不能硬套apply的矩阵逻辑

你需要的最终输出是4个独立数据框，每个的规模为500行、100列——本质是把500个子数据框里位置相同的列抽出来，把每个列原本的100行向量转成1行，再把500个这样的行纵向拼接成单个结果表。
两种常用写法跑500个子表的规模完全没有性能压力：

基础R实现 #

全程不依赖第三方扩展包，逻辑透明可复现：

# 加载示例代码用到的mvrnorm依赖
library(MASS)
# 复刻你的模拟数据
mat <- as.matrix(diag(c(1,2,3,4)))
dat <- list()
for (i in 1:500){
  dat[[i]] <- as.data.frame(mvrnorm(100, rep(0,4), mat))
}

# 批量生成4列对应的结果表
# 遍历4个列的索引，逐列拼接所有子表的转置结果
result_list <- lapply(1:4, function(col_idx) {
  # 遍历500个子数据框，抽出对应列的向量做转置（从100行1列转成1行100列）
  each_row <- lapply(dat, function(sub_df) t(sub_df[, col_idx]))
  # 把所有转置后的行纵向拼接
  do.call(rbind, each_row)
})

# 拆分得到你需要的4个独立数据框，分别对应原列表中每一列的转置结果
dat_col1 <- result_list[[1]]
dat_col2 <- result_list[[2]]
dat_col3 <- result_list[[3]]
dat_col4 <- result_list[[4]]

# 校验每个结果的维度：均为500行100列
sapply(result_list, dim)

Tidyverse生态实现 #

如果日常用purrr工具链，代码可以写得更简洁，逻辑和基础R版本完全一致：

library(purrr)
result_list <- map(1:4, function(col_idx) {
  # 遍历所有子表，抽出对应列转置后直接纵向绑定
  map(dat, ~t(.x[, col_idx])) |> list_rbind()
})

你可以手动拼接前3个子表的结果，和自动生成的结果做对比，确认输出符合预期：

# 手动实现的前3个表的第1列拼接结果
manual_result <- rbind(t(dat[[1]][,1]), t(dat[[2]][,1]), t(dat[[3]][,1]))
# 对比自动生成结果的前3行
identical(manual_result, result_list[[1]][1:3, ])
# 输出为TRUE就代表结果完全匹配

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