如何用kableExtra基于统计显著性条件高亮表格单元格？

报错原因分析 #

你遇到的rescale方法错误，是因为spec_color()函数需要接收数值向量作为输入，但你传入了整个数据框（d[1:5,7:11]），函数无法对数据框执行缩放操作，因此抛出该错误。

实现方案 #

要实现按_stat_sig列的值进行条件高亮，需要用cell_spec()函数逐个处理单元格，结合自定义的颜色映射规则来设置背景色和字体颜色。具体步骤如下：

1. 定义颜色映射规则 #

根据需求，为不同统计显著性类别指定对应样式：

• Positive类：
  • positive, large：深绿色（#2E7D32），白色字体
  • positive, medium：中绿色（#66BB6A），黑色字体
  • positive, small：浅绿色（#C8E6C9），黑色字体
• Negative类：
  • negative, large：深红色（#C62828），白色字体
  • negative, medium：中红色（#EF5350），黑色字体
  • negative, small：浅红色（#FFCDD2），黑色字体
• no change：无背景色，黑色字体

2. 编写处理代码 #

library(dplyr)
library(kableExtra)

# 定义颜色映射函数
get_cell_style <- function(stat_val) {
  case_when(
    stat_val == "positive, large" ~ list(background = "#2E7D32", color = "white"),
    stat_val == "positive, medium" ~ list(background = "#66BB6A", color = "black"),
    stat_val == "positive, small" ~ list(background = "#C8E6C9", color = "black"),
    stat_val == "negative, large" ~ list(background = "#C62828", color = "white"),
    stat_val == "negative, medium" ~ list(background = "#EF5350", color = "black"),
    stat_val == "negative, small" ~ list(background = "#FFCDD2", color = "black"),
    TRUE ~ list(background = "transparent", color = "black")
  )
}

# 逐行处理每个国家列的单元格，应用对应样式
d_formatted <- d %>%
  rowwise() %>%
  mutate(
    albania = cell_spec(albania, 
                        background = get_cell_style(albania_stat_sig)$background,
                        color = get_cell_style(albania_stat_sig)$color),
    georgia = cell_spec(georgia, 
                        background = get_cell_style(georgia_stat_sig)$background,
                        color = get_cell_style(georgia_stat_sig)$color),
    croatia = cell_spec(croatia, 
                        background = get_cell_style(croatia_stat_sig)$background,
                        color = get_cell_style(croatia_stat_sig)$color),
    slovakia = cell_spec(slovakia, 
                         background = get_cell_style(slovakia_stat_sig)$background,
                         color = get_cell_style(slovakia_stat_sig)$color),
    czechia = cell_spec(czechia, 
                        background = get_cell_style(czechia_stat_sig)$background,
                        color = get_cell_style(czechia_stat_sig)$color)
  ) %>%
  ungroup() %>%
  select(dimension, albania, georgia, croatia, slovakia, czechia) # 保留前6列

# 生成带样式的表格
d_formatted %>%
  kbl(escape = FALSE) %>% # 必须关闭转义，否则样式代码无法生效
  kable_paper(full_width = FALSE)

代码说明 #

• get_cell_style()：根据统计显著性文本返回对应的背景色和字体颜色配置。
• rowwise()+mutate()：逐行处理每个国家列的单元格，调用cell_spec()生成带样式的单元格内容。
• escape = FALSE：必须在kbl()中设置该参数，否则cell_spec()生成的HTML样式代码会被转义，无法显示高亮效果。

内容的提问来源于stack exchange，提问作者C.Robin