如何用R的openxlsx包基于Line列高亮Excel中S1:S5单元格

要实现当S1:S5区域的单元格值等于对应行Line列的值时高亮，可借助openxlsx包的conditionalFormatting()函数，结合R1C1格式的相对行引用来完成，核心是让每个单元格都与本行的Line列值做比较。

以下是完整可运行代码：

df <- structure(list(ID = c(1001, 1001, 1001, 1001, 1001, 1001, 1001, 
1001, 1001), Line = c(98, 79, 25, 88, 66, 87, 25, 36, 99), S1 = c(99, 
66, 25, NA, NA, NA, NA, 36, 99), S2 = c(98, 27, NA, 88, 77, NA, 
58, NA, NA), S3 = c(98, 99, 49, NA, 66, NA, NA, 36, 89), S4 = c(88, 
79, NA, NA, NA, NA, 25, NA, 55), S5 = c(99, NA, NA, NA, 89, 87, 
NA, NA, 96)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-9L))

library(openxlsx)

# 创建工作簿并添加工作表
wb <- createWorkbook()
addWorksheet(wb, sheetName = "Q1")

# 写入数据到工作表
writeData(wb, sheet = "Q1", x = df, colNames = TRUE)

# 定义高亮样式：黄色单元格填充
highlight_style <- createStyle(fgFill = "#FFFF00")

# 确定目标区域：S1-S5对应第3至第7列，数据行从第2行到最后一行（表头在第1行）
target_cols <- 3:7
data_rows <- 2:(nrow(df) + 1)

# 循环每行设置条件格式
for (row in data_rows) {
  conditionalFormatting(
    wb,
    sheet = "Q1",
    cols = target_cols,
    rows = row,
    rule = "=RC=R[0]C2",  # R[0]C2表示当前行的第2列（Line列），RC表示当前单元格
    style = highlight_style,
    type = "expression"
  )
}

# 保存工作簿到指定路径
saveWorkbook(wb, "C:/Users/Documents/df.xlsx", overwrite = TRUE)

关键说明： #

1. R1C1格式引用：=RC=R[0]C2是Excel公式的R1C1写法，RC代表当前单元格，R[0]C2代表当前行的第2列（即Line列），确保每行的S1-S5单元格都和本行Line值对比。
2. 样式定义：通过createStyle()设置高亮样式，这里用黄色填充（#FFFF00），可根据需求修改颜色或添加其他样式（如字体加粗）。
3. 区域定位：target_cols指定S1-S5的列索引（原数据框中第3到第7列），data_rows指定数据行范围（跳过表头第1行）。

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