如何按值频率从高到低为R语言生成的表格单元格上色并导出至Excel？

可以用openxlsx包实现按频率着色并导出Excel，步骤如下：

1. 加载依赖包并生成交叉表数据
   先把table()生成的表格转为数据框，方便后续处理：

   library(carData)
   library(openxlsx)
   
   # 生成交叉表并转为数据框
   salary_table <- as.data.frame.matrix(table(Salaries$rank, Salaries$discipline))
   

2. 定义颜色映射规则
   根据单元格值的大小（频率从高到低）设置渐变颜色，这里用蓝色系渐变：

   # 获取所有单元格的值，排序后确定颜色梯度
   value_vec <- as.vector(salary_table)
   color_palette <- colorRampPalette(c("#e6f2ff", "#1a53ff"))(length(unique(value_vec)))
   # 按值从低到高匹配颜色
   color_mapping <- setNames(color_palette, sort(unique(value_vec)))
   

3. 创建Excel工作簿并设置单元格格式
   创建工作簿后，先写入数据，再逐个单元格设置背景色：

   # 创建新工作簿
   wb <- createWorkbook()
   addWorksheet(wb, "Salary_Rank_Discipline")
   
   # 写入表格数据
   writeData(wb, sheet = 1, x = salary_table)
   
   # 遍历单元格设置背景色
   for (i in 1:nrow(salary_table)) {
     for (j in 1:ncol(salary_table)) {
       cell_value <- salary_table[i, j]
       # 匹配对应的颜色
       cell_color <- color_mapping[as.character(cell_value)]
       # 设置单元格格式
       addStyle(wb, sheet = 1, style = createStyle(fgFill = cell_color),
                rows = i + 1, cols = j + 1) # +1是因为表头占了第一行/列
     }
   }
   

4. 导出Excel文件

   saveWorkbook(wb, "salary_table_colored.xlsx", overwrite = TRUE)
   

补充说明 #

• 如果想要更灵活的格式控制（比如表头样式、字体调整），可以扩展createStyle()的参数；
• 也可以用flextable包实现，先创建带颜色的表格再导出，代码逻辑类似：

  library(flextable)
  ft <- flextable(salary_table)
  ft <- color(ft, bg = color_mapping[as.character(values)], part = "body")
  save_as_xlsx(ft, path = "salary_table_colored.xlsx")
  

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