使用条件语句(case_when)跨多列更改kableExtra中的单元格颜色

基础概念

case_when 是一种条件语句，通常用于数据处理和数据可视化中，根据不同的条件返回不同的值。在 R 语言的 dplyr 包中，case_when 函数允许你根据多个条件对数据进行转换。

kableExtra 是一个用于美化 R Markdown 表格的包，提供了丰富的表格格式化和样式设置功能。

类型

case_when 主要有以下几种类型：

简单条件：基于单个条件进行判断。
多重条件：基于多个条件进行判断，每个条件可以有不同的返回值。
嵌套条件：在一个 case_when 语句中嵌套另一个 case_when 语句。

应用场景

在数据分析和报告中，经常需要对表格数据进行条件格式化，以突出显示特定的数据。例如，在财务报告中，可能需要将亏损的单元格标记为红色，盈利的单元格标记为绿色。

示例代码

以下是一个使用 case_when 和 kableExtra 跨多列更改单元格颜色的示例：

library(dplyr)
library(kableExtra)

# 创建示例数据
data <- data.frame(
  Name = c("Alice", "Bob", "Charlie"),
  Revenue = c(100, -50, 200),
  Expenses = c(80, 60, 150)
)

# 使用 case_when 进行条件格式化
data <- data %>%
  mutate(
    Revenue_Color = case_when(
      Revenue > 0 ~ "green",
      Revenue < 0 ~ "red",
      TRUE ~ "black"
    ),
    Expenses_Color = case_when(
      Expenses > 0 ~ "green",
      Expenses < 0 ~ "red",
      TRUE ~ "black"
    )
  )

# 使用 kableExtra 创建表格并应用颜色
kable(data, escape = FALSE) %>%
  kable_styling(full_width = FALSE) %>%
  rowwise() %>%
  add_column(
    Revenue = ~ cell_spec(.$Revenue, color = .$Revenue_Color),
    Expenses = ~ cell_spec(.$Expenses, color = .$Expenses_Color)
  ) %>%
  column_spec(1, width = "10em") %>%
  column_spec(2, width = "10em") %>%
  column_spec(3, width = "10em")