使用openxlsx实现数值介于两值的条件格式失效问题求助

问题根源 #

你通过label_percent()把SUPPLY_RATE列转换成了百分比格式的字符串（比如0.017452变成了"1.7%"），但条件格式规则用的是纯数值（0.015、0.020）。Excel无法对字符串和数值进行跨类型的区间比较，直接导致第一条between规则失效。

解决方案 #

保留SUPPLY_RATE的数值类型，用openxlsx的样式功能设置单元格的百分比显示格式，而非将数值转成字符串。这样既能让单元格显示为百分比样式，又能保留原始数值用于条件格式的逻辑判断。

修改后的完整代码 #

library(openxlsx)
library(scales)

## 构建数据框
cost_table <- read.table(text = "FRUIT  COST  SUPPLY_RATE
1  APPLE   15   0.026377
2  ORANGE   14  0.01122
3  KIWI   13  0.004122
5  BANANA   11  0.017452
6  AVOCADO   10   0.008324       "  , header = TRUE)

## 创建工作簿与工作表
Fruits_Table <- createWorkbook()
addWorksheet(Fruits_Table,"List 1")

# 定义百分比显示样式（仅修改显示格式，保留底层数值）
percentStyle <- createStyle(numFmt = "0.0%")

# 写入数据时为SUPPLY_RATE列应用百分比样式
writeData(Fruits_Table, "List 1", cost_table, 
          colStyles = list(SUPPLY_RATE = percentStyle))

## 定义条件格式样式
posStyle <- createStyle(fontColour = "#006100", bgFill = "#C6EFCE")
negStyle <- createStyle(fontColour = "#9C0006", bgFill = "#FFC7CE")

## 设置条件格式（基于原始数值判断，规则正常生效）
conditionalFormatting(Fruits_Table, "List 1",
                      cols = 3,
                      rows = 2:6, rule = c(0.015, 0.020), style = posStyle, type='between'
)

conditionalFormatting(Fruits_Table, "List 1",
                      cols = 3,
                      rows = 2:6, rule = ">0.020", style = negStyle
)

# 保存工作簿
saveWorkbook(Fruits_Table, "Fruits_Table.xlsx", overwrite = TRUE)

关键修改说明 #

• 移除cost_table$SUPPLY_RATE <- label_percent(...)代码，避免将数值转为字符串类型
• 使用createStyle(numFmt = "0.0%")创建百分比显示样式，通过writeData的colStyles参数绑定到目标列，实现"数值存底、百分比显示"的效果
• 条件格式规则直接基于原始数值逻辑判断，可正常触发样式匹配

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