如何依据Flextable同列其他行值设置第5行文本颜色？

实现思路 #

针对每一列提取第2、3、4行的数值，按以下规则设置第5行文本颜色：

• 若第2行值<4，第5行文本设为灰色
• 若第2行值在4-10之间、第3行值>2且第4行值<0.25，第5行文本设为红色

完整代码 #

# 加载所需包
library(flextable)

# 示例数据
SalesData <- data.frame(V1 = c("A", 1, 0, 1.0, "Some text"), 
                        V2 = c("B", 14, 0, 0.8, "Some text"), 
                        V3 = c("C", 4, 3, 0.20, "Some text"))

# 创建flextable对象
ft <- flextable(SalesData)

# 遍历每一列设置文本颜色
for(col in seq_along(SalesData)){
  # 提取对应行的数值并转换为数值类型
  val_row2 <- as.numeric(SalesData[2, col])
  val_row3 <- as.numeric(SalesData[3, col])
  val_row4 <- as.numeric(SalesData[4, col])
  
  # 按条件设置颜色
  if(val_row2 < 4){
    ft <- ft %>% color(i = 5, j = col, color = "gray")
  } else if(val_row2 >= 4 && val_row2 <= 10 && val_row3 > 2 && val_row4 < 0.25){
    ft <- ft %>% color(i = 5, j = col, color = "red")
  }
}

# 输出结果
ft

代码说明 #

1. 将原始数据转为flextable对象，为格式设置提供基础
2. 循环处理每一列，提取目标行数值并转为数值型，避免字符类型导致判断错误
3. 调用color()函数，指定第5行对应列的文本颜色，严格匹配预设条件

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