如何在R中从数据框列表生成含指定列的独立Excel文件

1. 准备依赖包 #

确保安装并加载所需的R包：

# 首次运行需执行安装
install.packages(c("readxl", "openxlsx"))

# 加载包
library(readxl)
library(openxlsx)

2. 读取原始Excel数据（复用并优化你的代码） #

保留读取逻辑，同时确保原始列名匹配：

# 获取所有工作表名称
sheet_names <- excel_sheets("./Data.xlsx")

# 读取所有工作表到列表，修正列名确保匹配原始数据
list_all <- lapply(sheet_names, function(x) {
  df <- as.data.frame(read_xlsx("./Data.xlsx", sheet = x, range = "K2:M200"))
  colnames(df) <- c("Date/Time", "Depth", "Pressure")
  return(df)
})

# 为列表元素命名（对应采集位置）
names(list_all) <- sheet_names

3. 定义目标列结构 #

创建包含30列的目标列名，前3列对应原始数据字段，其余列留空：

# 定义30列的目标列名，剩余列可根据需求修改命名规则
target_cols <- c("DateTime", "Depth", "Pressure", paste0("Col", 4:30))

4. 批量处理并导出Excel文件 #

遍历列表中的每个数据框，转换为目标格式后自动保存为独立文件：

# 遍历处理每个数据框
lapply(names(list_all), function(well_name) {
  df <- list_all[[well_name]]
  
  # 创建空的目标数据框（30列）
  target_df <- data.frame(matrix(nrow = nrow(df), ncol = length(target_cols)))
  colnames(target_df) <- target_cols
  
  # 映射原始数据到指定列
  target_df$DateTime <- df$`Date/Time`
  target_df$Depth <- df$Depth
  target_df$Pressure <- df$Pressure
  
  # 清理文件名（替换空格为下划线，避免保存报错）
  clean_filename <- gsub(" ", "_", well_name)
  # 自动导出Excel文件，无需手动保存
  write.xlsx(target_df, file = paste0(clean_filename, ".xlsx"), rowNames = FALSE)
})

关键说明 #

• 使用openxlsx的write.xlsx方法可自动完成文件保存，解决手动保存的问题
• 文件名做了特殊字符清理，避免因空格或特殊符号导致保存失败
• 未映射的列会自动填充为NA，满足数据库上传的空格式要求

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