R中导出保留条件格式的分部门/团队Excel工作簿问题咨询

现有一份包含人员调研资格、所属部门及部门内团队信息的数据集，因数据敏感性无法提供真实数据，样例结构如下：

待实现需求 #

• 为数据添加条件格式：Survey Status取值为1的行设置为黑色粗体文本，取值为0的行设置为红色非粗体文本，提升阅读效率
• 导出为Excel文件时完整保留上述设置的条件格式
• 按照Department与Team的组合分组，为每个分组生成独立的Excel工作簿

当前卡点 #

目前已在R环境中完成数据的条件格式设置，也可正常实现按Department/Team分组生成独立工作簿，但导出Excel后条件格式全部丢失。已尝试使用xlsx、openxlsx、formattable、condformat等多个R包，均无法实现导出后Excel文件内保留预设的条件格式。
此前使用SAS可无障碍实现该需求，当前团队正从SAS迁移至R，因此需要在R中复现该文档生成流程，同时确认R是否适合实现该类操作，是否切换Python实现效果更优。

R完全可以稳定实现该需求，不需要切换到Python。之前导出格式丢失的核心原因是：你在R数据框对象层面设置的格式属于R侧的自定义属性，没有任何Excel导出包会自动将这类属性转换为Excel原生单元格样式，自然导出后格式会全部失效。
正确实现逻辑是：不要先给R中的数据框加格式再导出，而是在创建Excel工作簿对象的环节，直接调用导出包提供的样式接口，给对应单元格写入Excel原生样式即可。
以下是基于openxlsx包的可直接运行的实现代码：

1. 加载依赖包，替换为自己的真实数据集即可

library(openxlsx)
library(dplyr)

# 样例数据，实际使用时替换为你的真实数据集
df <- data.frame(
  Survey_Status = c(1,0,1,1),
  Department = c("Budget Off", "Budget Off", "Sales", "Public Rel"),
  Team = c("Acts", "Acts", "Local", "Social")
)

2. 提前定义两种需要的单元格样式

# Survey Status=1 对应黑色粗体样式
style_valid <- createStyle(
  fontColour = "#000000",
  textDecoration = "bold"
)
# Survey Status=0 对应红色非粗体样式
style_invalid <- createStyle(
  fontColour = "#FF0000",
  textDecoration = NULL
)

3. 按部门+团队分组，逐组生成独立工作簿并写入样式

# 生成分组标识
df <- df %>% mutate(group_id = paste(Department, Team, sep = "_"))
all_groups <- unique(df$group_id)

for(g in all_groups){
  # 提取当前分组数据
  current_data <- df %>% filter(group_id == g) %>% select(-group_id)
  # 新建工作簿和工作表
  wb <- createWorkbook()
  addWorksheet(wb, sheetName = "调研数据")
  # 先写入基础数据和表头
  writeData(wb, "调研数据", current_data, startRow = 1, colNames = TRUE)
  
  # 逐行匹配状态写入对应样式，注意表头占第1行，数据从第2行开始
  for(row_idx in 1:nrow(current_data)){
    excel_row <- row_idx + 1
    if(current_data$Survey_Status[row_idx] == 1){
      addStyle(wb, "调研数据", style = style_valid, rows = excel_row, 
               cols = 1:ncol(current_data), gridExpand = TRUE)
    }else{
      addStyle(wb, "调研数据", style = style_invalid, rows = excel_row, 
               cols = 1:ncol(current_data), gridExpand = TRUE)
    }
  }
  
  # 保存为独立Excel文件
  saveWorkbook(wb, file = paste0(g, ".xlsx"), overwrite = TRUE)
}

补充说明 #

• 如果需要实现和Excel手动添加完全一致的动态条件格式（即打开Excel后在条件格式菜单可看到规则，后续修改单元格值样式自动更新），可以把上述逐行加固定样式的逻辑替换为openxlsx包的conditionalFormatting()函数，直接写入Excel原生条件格式规则即可
• 之前测试的包中，xlsx依赖Java环境，样式写入兼容性差不推荐使用；formattable、condformat主要面向R环境内的表格渲染场景，导出Excel时的样式转换能力非常有限，不适合用于生成正式交付的Excel文件
• 该方案支持十万行级别的数据导出，性能完全满足日常办公需求，不需要额外切换技术栈

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