如何基于字符串检测修改flextable单元格文本颜色？

要实现你需要的效果，得修正代码里的几个问题：

1. 指定目标列：你只需要修改score列，所以要在color()里用j = score明确指定列，避免对age列（数值型）执行字符串检测操作。
2. 转义正则特殊字符："+"是正则表达式的特殊字符，直接用会导致匹配错误，需要用fixed("+")或者转义为"\\+"来匹配字面意义的加号。
3. 公式语法修正：在color的公式里，要明确引用目标列（score），而不是用.，因为.在flextable的公式语境中不是指代当前单元格内容。

修正后的代码如下：

library(flextable)
library(tidyverse)

sample_data <- tibble(
  age = c(20, 40, 30, 50),
  score = c("+5pp", "-4pp", "+7pp", "-10pp")
)

sample_data %>%
  flextable() %>%
  color(
    part = "body",
    j = score, # 指定只处理score列
    color = ~ case_when(
      str_detect(score, fixed("+")) ~ "green", # 用fixed匹配字面加号
      str_detect(score, fixed("-")) ~ "red",   # 用fixed匹配字面减号
      TRUE ~ "black"
    )
  )

关键说明 #

• 使用fixed()可以让str_detect按照字面匹配字符，不用考虑正则特殊字符的影响，适合你的场景。
• 明确指定j = score后，只会对目标列应用颜色规则，age列和表头保持默认的黑色，符合你的预期。
• 如果有些单元格不含数字（比如只有"+"或"-"），这个逻辑依然有效，因为是直接检测字符串中的符号，和数值无关。

内容的提问来源于stack exchange，提问作者J.Sabree