如何将R中带颜色编码的长格式数据导出为宽格式带色Excel？

要实现长格式转宽格式并保留颜色编码导出Excel，可按以下步骤操作：

1. 加载依赖包
   需要用到tidyr做格式转换，openxlsx处理Excel格式：

   library(tidyr)
   library(openxlsx)
   

2. 转换为宽格式数据
   使用pivot_wider将长数据转为宽格式：

   # 转换为宽格式
   wide_data <- pivot_wider(long_data, 
                            id_cols = digits, 
                            names_from = category, 
                            values_from = value)
   

3. 建立颜色映射关系
   从原始长数据中提取每个digits-category组合对应的颜色编码：

   # 创建颜色映射表
   color_map <- long_data %>% 
     select(digits, category, color_code) %>% 
     unique()
   

4. 创建Excel并设置单元格颜色
   先写入宽格式数据，再根据颜色映射逐个设置单元格背景色：

   # 颜色名称转RGB编码（openxlsx识别的格式）
   color_rgb <- c(red = "#FF0000", blue = "#0000FF", green = "#00FF00")
   
   # 创建工作簿和工作表
   wb <- createWorkbook()
   addWorksheet(wb, "wide_data")
   writeData(wb, "wide_data", wide_data)
   
   # 遍历映射表设置颜色
   for (i in 1:nrow(color_map)) {
     digit_val <- color_map$digits[i]
     cat_val <- color_map$category[i]
     color <- color_rgb[color_map$color_code[i]]
   
     # 定位单元格行号（数据从第2行开始，第1行是表头）
     row_num <- which(wide_data$digits == digit_val) + 1
     # 定位单元格列号
     col_num <- which(colnames(wide_data) == cat_val)
   
     # 创建样式并应用
     style <- createStyle(fgFill = color)
     addStyle(wb, "wide_data", style, rows = row_num, cols = col_num)
   }
   
   # 保存文件
   saveWorkbook(wb, "wide_data_with_colors.xlsx", overwrite = TRUE)
   

说明 #

• 转宽后通过原始长数据的颜色映射，精准匹配每个宽格式单元格的颜色
• 使用openxlsx的createStyle和addStyle直接设置单元格背景色，而非依赖条件格式，确保颜色完全保留原始编码

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