Rmarkdown中使用Kable的特定单元格颜色

# 安装和加载kableExtra包
install.packages("kableExtra")
library(kableExtra)

# 创建一个数据框
df <- data.frame(
  Name = c("John", "Jane", "Alice"),
  Age = c(25, 30, 35),
  Salary = c(50000, 60000, 70000)
)

# 使用kable函数创建表格，并使用add_header_above函数添加表头
kable(df, "html") %>%
  add_header_above(c("Personal Information" = 2, "Salary" = 1))

cat('<style>
    .red-cell {
        background-color: #ff0000;
    }
</style>')

df <- data.frame(
  Name = c("John", "Jane", "Alice"),
  Age = c(25, 30, 35),
  Salary = c(50000, 60000, 70000)
)

kable(df, "html") %>%
  add_header_above(c("Personal Information" = 2, "Salary" = 1)) %>%
  mutate_if(is.numeric, cell_spec, color = spec_color(df$Salary, end = 0, option = "plasma"), 
            bold = spec_bold(df$Salary > 60000), italic = spec_italic(df$Salary < 55000))