如何在R中为空数据框自动加列且保留非空数据框数据？

推荐方案：用列表统一管理数据（更规范易维护） #

先把所有Excel文件读入列表，再批量处理，最后合并，避免全局环境变量混乱。

1. 读取所有Excel文件到列表

library(readxl)
library(dplyr)

# 获取所有xlsx文件路径
file_list <- list.files(pattern = "*.xlsx")
# 批量读取文件，存储为列表
df_list <- lapply(file_list, read_excel)
# 给列表元素命名（对应原文件名，去掉.xlsx后缀）
names(df_list) <- sub(".xlsx", "", file_list)

2. 批量处理空/非空数据框
   定义目标列名，对空表创建指定列的空数据框，对非空表对齐列结构（补全缺失列、移除多余列）：

target_cols <- c("A", "B", "C", "D", "E")

processed_list <- lapply(df_list, function(df) {
  # 判断是否为0行0列的空表
  if (nrow(df) == 0 && ncol(df) == 0) {
    # 创建带指定列的空tibble
    tibble(!!!set_names(rep(list(logical()), length(target_cols)), target_cols))
  } else {
    # 对齐目标列：保留目标列，缺失的列补NA
    df %>%
      select(all_of(target_cols)) %>%
      mutate(across(all_of(setdiff(target_cols, colnames(df))), ~ NA))
  }
})

3. 合并所有数据

# 合并所有处理后的数据框，可选添加来源文件名标识
combined_df <- bind_rows(processed_list, .id = "source_file")

备选方案：直接修改全局环境中的现有对象 #

如果已经把文件导入到全局环境，可直接遍历修改：

library(dplyr)

target_cols <- c("A", "B", "C", "D", "E")
# 筛选全局环境中的所有数据框对象
files_list <- ls(envir = .GlobalEnv)
files_list <- files_list[sapply(files_list, function(x) is.data.frame(get(x, envir = .GlobalEnv)))]

# 遍历修改每个数据框
for (df_name in files_list) {
  df <- get(df_name, envir = .GlobalEnv)
  if (nrow(df) == 0 && ncol(df) == 0) {
    new_df <- tibble(!!!set_names(rep(list(logical()), length(target_cols)), target_cols))
  } else {
    new_df <- df %>%
      select(all_of(target_cols)) %>%
      mutate(across(all_of(setdiff(target_cols, colnames(df))), ~ NA))
  }
  assign(df_name, new_df, envir = .GlobalEnv)
}

# 合并所有数据框
combined_df <- mget(files_list) %>% bind_rows(.id = "source_file")

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