R使用condformat实现条件格式导出Excel的颜色与日期格式问题

问题1：条件格式填充颜色与设定规则不符 #

原因：你使用rule_fill_discrete()时，函数默认会将expression返回的颜色字符串识别为离散类别，自动匹配默认调色板，不会直接使用你返回的颜色值；同时原color_pick()函数未覆盖value=80的边界场景，也可能导致返回值异常。

修正代码 #

1. 优化颜色判断逻辑，覆盖所有边界值：

color_pick <- function(column){
  sapply(column, FUN = function(value) {
    if (value >= 90) {
      return("green")
    } else if (value >= 80) {
      return("orange")
    } else {
      return("red")
    }
  })
}

2. 手动指定颜色映射，取消自动调色：

cf <- condformat(as.data.frame(d)) %>%
  rule_fill_discrete(
    PERCENT,  
    expression = color_pick(PERCENT),
    palette = c("green" = "green", "orange" = "orange", "red" = "red")
  )

问题2：导出Excel时POSIXct类型字段转为数值格式 #

原因：condformat2excel底层调用的openxlsx默认不会自动识别POSIXct类型的数字格式，会直接导出为时间戳数值。

解决方案 #

如果需要在Excel中保留可计算的日期时间格式，导出后用openxlsx手动设置列格式即可：

library(openxlsx)
# 读取生成的Excel文件
wb <- loadWorkbook("RESULT_2021.xlsx")
# 定义日期时间格式样式，可根据需求调整格式字符串
datetime_style <- createStyle(numFmt = "yyyy-mm-dd hh:mm:ss")
# 请根据实际情况替换cols（日期列序号）、rows（数据行范围）参数
addStyle(
  wb, 
  sheet = "18", 
  style = datetime_style,
  cols = 2, 
  rows = 2:(nrow(d)+1),
  gridExpand = TRUE
)
# 保存修改后的文件
saveWorkbook(wb, "RESULT_2021.xlsx", overwrite = TRUE)

如果对日期格式没有计算要求，也可以提前将POSIXct列转换为字符串，导出后直接显示为可读文本：

# 替换datetime_col为你的实际日期列名
d$datetime_col <- as.character(d$datetime_col)

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