R语言：将列表子列表首元素设为数据框列名时遇错求解

你遇到的错误是因为空数据框my_df的行数为0，但赋值NA时，R默认将其视为长度为1的向量（对应1行数据），导致行数不匹配，从而抛出Replacement has 1 row, data have 0的错误。

这里提供几种简洁高效的解决方式：

方法1：直接构建带目标列名的空数据框 #

先提取所有需要的列名，再直接创建对应结构的空数据框：

# 提取每个子列表的第一个元素作为列名
col_names <- sapply(my_list, function(x) x[[1]])
# 创建0行、对应列数的空数据框
my_df <- data.frame(matrix(nrow = 0, ncol = length(col_names)))
# 设置列名
colnames(my_df) <- col_names

方法2：修改循环逻辑适配空数据框 #

如果坚持用循环，可以通过cbind添加列，自动适配空数据框的结构：

my_df <- data.frame()
for (i in 1:length(my_list)) {
  # 提取当前列名
  col_name <- my_list[[i]][[1]]
  # 绑定新列（空数据框会自动适配）
  my_df <- cbind(my_df, NA)
  # 给新列设置名称
  colnames(my_df)[ncol(my_df)] <- col_name
}

方法3：用dplyr批量添加列（可选） #

如果你习惯用dplyr工具包，可以用add_column函数批量操作：

library(dplyr)

col_names <- sapply(my_list, function(x) x[[1]])
# 批量添加所有列，值为NA，初始数据框为空
my_df <- data.frame() %>% add_column(!!!set_names(rep(list(NA), length(col_names)), col_names))

执行上述任意方法后，查看数据框结构：

str(my_df)

会得到一个0行、列名为1、2、3的空数据框，完全符合需求。

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