R语言导出Dataframe至Excel：工作表命名与列居中问题修复

需求 #

• 将Dataframe保存至Excel工作簿，通过wb_add_list函数为Dataframe添加子表头
• 循环处理多个输入值，每个输入值对应的数据表需保存至同名工作表
• 除第一列外，其余列需设置为居中对齐

当前问题 #

• 运行代码后仅能生成Excel文件，但工作表未按输入值命名
• 所有列均未实现除第一列外居中的格式要求

1. 工作表命名失效：循环中调用wb_add_list处理工作簿后，没有将返回的修改后工作簿重新赋值给wb，导致每次循环的修改都未被保留，最终工作簿仅保留了最后一次添加的空工作表
2. 缺少居中对齐逻辑：原代码完全没有设置单元格对齐方式的代码，无法实现指定列的居中需求

wb_add_list <- function(wb, x) {
  wb <- wb$clone()
  row <- 1
  # 获取输入数据的列名
  col_names <- colnames(x[[1]])
  col_count <- length(col_names)
  
  # 定义居中对齐格式
  center_style <- create_style(halign = "center")
  
  # 添加主表头
  wb$add_data(startRow = row, x = t(col_names), colNames = FALSE)
  dims_header <- paste0("A", row, ":", letters[col_count], row)
  wb$add_fill(dims = dims_header, color = wb_color("#8EA9DB"))
  wb$add_font(dims = dims_header, color = wb_color("white"))
  # 主表头除第一列外居中
  wb$add_style(dims = paste0("B", row, ":", letters[col_count], row), style = center_style)
  row <- row + 1L
  
  # 循环处理每个分组
  for (i in seq_along(x)) {
    # 添加子表头
    wb$add_data(startRow = row, x = names(x[i]), colNames = FALSE)
    wb$merge_cells(rows = row, cols = 1:col_count)
    dims_subheader <- paste0("A", row)
    # 设置子表头填充色
    if (grepl(" ", names(x[i]))) {
      wb$add_fill(dims = dims_subheader, color = wb_color("#E7E6E6"))
    } else {
      wb$add_fill(dims = dims_subheader, color = wb_color("white"))
    }
    row <- row + 1L
    
    # 添加分组数据
    data_row_start <- row
    wb$add_data(startRow = row, x = x[[i]], colNames = FALSE)
    data_row_end <- row + nrow(x[[i]]) - 1
    # 数据列除第一列外居中
    wb$add_style(
      dims = paste0("B", data_row_start, ":", letters[col_count], data_row_end),
      style = center_style
    )
    row <- data_row_end + 1L
  }
  wb
} 

# 创建新工作簿
wb <- wb_workbook()

for (i in seq_along(input_values)) {
  # 生成当前输入值对应的Dataframe
  df <- write_to_excel(input_values[i])
  
  # 添加同名工作表
  wb <- wb$add_worksheet(name = input_values[i])
  
  # 处理Group列并拆分数据
  df$Group <- paste0(" ", df$Group)
  out <- split(df[-5], f = df$Group)
  
  # 关键：将处理后的工作簿重新赋值，保留修改
  wb <- wb_add_list(wb, out)
}

# 保存Excel文件
wb_save(wb, "result.xlsx")

• 保留工作簿修改：在循环中执行wb <- wb_add_list(wb, out)，确保每次对工作簿的修改都被保留
• 添加居中格式：定义center_style样式，分别为主表头、分组数据的除第一列外的列应用居中对齐
• 动态列范围：使用letters[col_count]动态获取最后一列的列标，避免硬编码列名（原代码中的D列）

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