如何在R中基于其他DataFrame条件设置单元格字体颜色

你可以通过以下几种常用工具实现需求，根据你的输出场景选择合适的方法：

方法1：用formattable包（适合RStudio预览或导出HTML） #

这个包能快速给表格添加条件格式，适合在R环境内查看或者导出成网页格式。

1. 先安装并加载包：

install.packages("formattable")
library(formattable)

2. 创建条件格式化函数，然后应用到sales_value_test：

# 定义格式化规则：满足条件则字体红色，否则默认
color_rule <- function(x) {
  # 提取对应位置的均值和标准差（排除第一列branch）
  mean_vals <- mean_df[, -1]
  std_vals <- std_dev_df[, -1]
  # 生成逻辑判断向量
  cond <- x < mean_vals - 2*std_vals
  # 返回格式化样式
  style(color = ifelse(cond, "red", "black"))
}

# 批量获取所有数值列名，生成格式化规则
num_cols <- colnames(sales_value_test)[-1]
format_rules <- lapply(num_cols, function(col) color_rule)
names(format_rules) <- num_cols

# 应用规则到表格
formattable(sales_value_test, format_rules)

方法2：用openxlsx包（适合导出到Excel文件） #

如果需要把带格式的表格导出到Excel，这个包是最佳选择。

1. 安装加载包：

install.packages("openxlsx")
library(openxlsx)

2. 创建工作簿、设置样式，然后添加条件格式：

# 创建新工作簿并添加工作表
wb <- createWorkbook()
addWorksheet(wb, "sales_alert")
# 写入原始数据
writeData(wb, "sales_alert", sales_value_test)

# 创建红色字体样式
red_style <- createStyle(fontColour = "red")

# 遍历所有数值列，添加条件格式
for (j in 2:ncol(sales_value_test)) {
  # 判断当前列哪些单元格满足条件
  cond <- sales_value_test[, j] < mean_df[, j] - 2*std_dev_df[, j]
  # 转换为Excel行号（表头占1行，数据行从2开始）
  target_rows <- which(cond) + 1
  # 对满足条件的单元格应用样式
  if (length(target_rows) > 0) {
    addStyle(wb, "sales_alert", style = red_style, rows = target_rows, cols = j, gridExpand = TRUE)
  }
}

# 保存Excel文件
saveWorkbook(wb, "sales_alert_formatted.xlsx", overwrite = TRUE)

方法3：用gt包（适合生成美观的可导出表格） #

gt能生成高质量的表格，支持导出HTML、Word、PDF格式，样式自定义性更强。

1. 安装加载包：

install.packages("gt")
library(gt)

2. 构建表格并添加条件格式：

# 创建gt表格对象
sales_gt <- gt(sales_value_test)

# 给数值列添加条件字体颜色
sales_gt <- sales_gt %>%
  data_color(
    columns = 2:13,
    colors = function(x) {
      # 转换为矩阵方便逐元素判断
      mean_vals <- mean_df[, -1] %>% as.matrix()
      std_vals <- std_dev_df[, -1] %>% as.matrix()
      # 满足条件返回红色，否则黑色
      ifelse(x < mean_vals - 2*std_vals, "red", "black")
    },
    apply_to = "text"
  )

# 在RStudio中查看表格
sales_gt

# 导出为HTML/Word文件
gtsave(sales_gt, "sales_alert_gt.html")
gtsave(sales_gt, "sales_alert_gt.docx")

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