如何在弹性表中为分类值设置背景颜色

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")