如何将R语言df导出至Excel并按Name值为隔组行填充灰色

你可以借助openxlsx包的样式功能，通过识别每个Name组的行范围，为交替组（每隔一组）设置灰色背景，具体修改如下：

首先确保加载openxlsx包，然后创建灰色填充样式，接着定位每个组的行区间，最后为奇数位置的组（或偶数，按需调整）应用样式：

library(openxlsx)

df<-structure(list(Name = c("Tom", "Tom", "Tom", "Jerry", "Jerry", "Amy", "Amy", "Amy", "Amy", "Ema", "Ema", "Ema"), Subject = c("PE", "ART", "ELA", "ELA", "MATH", "ELA", "MATH", "ART", "PE", "ART", "MATH", "ELA"), Score = c(98, 86, 75, 88, 100, 90, 86, 95, 78, 88, 68, 95)), row.names = c(NA, -12L), class = c("tbl_df", "tbl", "data.frame"))

wb <- createWorkbook()
addWorksheet(wb, sheetName = "TEST")
writeData(wb, sheet = "TEST", x = df, startRow = 1)

# 创建灰色背景样式
gray_style <- createStyle(fgFill = "#D3D3D3") # 浅灰色，可根据需求更换色号

# 获取每个Name组的行范围（数据从第2行开始）
name_rle <- rle(df$Name)
start_rows <- c(2, cumsum(name_rle$lengths)[-length(name_rle$lengths)] + 2)
end_rows <- start_rows + name_rle$lengths - 1

# 为奇数位置的组（第1、3...组）填充灰色背景
for (i in seq_along(name_rle$values)) {
  if (i %% 2 == 1) {
    addStyle(wb, sheet = "TEST", style = gray_style, 
             rows = start_rows[i]:end_rows[i], 
             cols = 1:ncol(df),
             gridExpand = TRUE)
  }
}

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

关键说明： #

• 使用rle()函数识别连续的Name组，计算每组的起始和结束行号（注意表头占第1行，数据行从第2行开始）
• createStyle()定义填充样式，fgFill参数可替换为其他灰色系色号（如#F0F0F0更浅）
• 循环中通过i %% 2 == 1选择奇数组，若要选择偶数组改为i %% 2 == 0即可
• addStyle()的gridExpand = TRUE确保样式应用到指定行的所有列

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