如何在弹性表中为分类值而不是数字设置背景颜色[重复]

Question

我的数据框有 2 个分类列。我找到的所有示例都是数值

library(flextable)

data <- data.frame( MCP = c("Y", "N", "Y", "N", "Y"),
                    RCP = c("N", "Y", "N", "Y", "N"))
# Create flextable
ft <- flextable(data)

如果值为 y，我想将单元格的背景着色为绿色；如果值为 N，则将单元格的背景着色为红色：我找不到方法来做到这一点，包文档仅适用于连续数据

Answer 1

library(dplyr)
ft %>% 
  bg(~ MCP == "N", ~ MCP, bg="red") %>% 
  bg(~ RCP == "N", ~ RCP, bg="red") %>% 
  bg(~ MCP == "Y", ~ MCP, bg="green") %>% 
  bg(~ RCP == "Y", ~ RCP, bg="green")