如何用openxlsx2为指定行添加填充色并调整Excel窗口大小

1. 先构造带color列的数据集 #

给mtcars加个color列，这里用mpg分组举例子，你可以根据自己的需求改分组规则：

library(openxlsx2)
library(dplyr)

mtcars_color <- mtcars %>%
  mutate(color = case_when(
    mpg > 20 ~ "lightgreen",
    mpg >= 15 & mpg <= 20 ~ "lightyellow",
    mpg < 15 ~ "lightcoral"
  ))

2. 生成带样式的Excel文件 #

核心步骤： #

• 只导出不含color列的数据
• 按color列的值给对应整行加填充色
• 调整窗口显示，解决打开时窗口过小的问题

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

# 添加工作表，写入剔除color列的数据
wb <- wb_add_worksheet(wb, sheet = "mtcars_data")
wb <- wb_write_data(wb, sheet = "mtcars_data", x = mtcars_color %>% select(-color))

# 先定义好不同颜色的填充样式
fill_styles <- list(
  lightgreen = create_fill(fgFill = "lightgreen"),
  lightyellow = create_fill(fgFill = "lightyellow"),
  lightcoral = create_fill(fgFill = "lightcoral")
)

# 循环给每一行加对应颜色（注意：Excel里表头是第1行，数据从第2行开始，所以行号要+1）
for (row_num in 1:nrow(mtcars_color)) {
  current_color <- mtcars_color$color[row_num]
  wb <- wb_add_style(
    wb, 
    sheet = "mtcars_data",
    style = fill_styles[[current_color]],
    rows = row_num + 1,  # 对应Excel里的行
    cols = 1:(ncol(mtcars_color)-1)  # 所有数据列
  )
}

# 解决窗口过小问题：自动列宽+设置缩放比例+冻结首行
# 自动适配列宽，避免内容挤在一起
wb <- wb_set_col_widths(wb, sheet = "mtcars_data", cols = 1:(ncol(mtcars_color)-1), widths = "auto")
# 设置行高统一，看起来更规整
wb <- wb_set_row_heights(wb, sheet = "mtcars_data", rows = 1:(nrow(mtcars_color)+1), heights = 15)
# 设置打开时的缩放比例为100%，同时冻结首行，滚动时表头不会消失
wb <- wb_set_view(wb, sheet = "mtcars_data", zoom = 100, freeze_panes = "A2")

# 最后导出文件
wb_save(wb, "mtcars_styled.xlsx")

踩坑提醒 #

• 之前设置窗口没生效？大概率是没用到wb_set_view的zoom参数，这个参数直接控制Excel打开时的显示比例，配合自动列宽，就能解决窗口过小的问题。
• 行着色时一定要注意行号对应：R里的第1行数据，对应Excel里的第2行（因为表头占了第1行），别写错行号导致样式加错地方。

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