如何在R语言的gt表格中添加类似ggplot的颜色刻度图例？

gt原生没有内置的连续颜色刻度图例功能，但可以通过以下两种实用方法实现：

方法1：使用gtExtras包快速生成匹配的图例 #

gtExtras扩展包提供了gt_color_legend()函数，能直接和gt_color_rows()的调色板、值域匹配，生成和ggplot风格一致的连续颜色图例。

示例代码 #

library(gt)
library(gtExtras)
library(dplyr)

# 构造示例数据
set.seed(123)
product_data <- tibble(
  产品 = paste0("产品", 1:5),
  月销量 = sample(100:500, 5),
  同比增长率 = sample(-10:30, 5)/100
)

# 创建带颜色刻度图例的gt表格
product_data %>%
  gt() %>%
  # 给数值列添加颜色填充
  gt_color_rows(
    columns = c(月销量, 同比增长率),
    palette = "viridis", # 和ggplot常用调色板一致
    domain = c(min(product_data$月销量, product_data$同比增长率), 
               max(product_data$月销量, product_data$同比增长率))
  ) %>%
  # 添加颜色刻度图例
  gt_color_legend(
    palette = "viridis",
    domain = c(min(product_data$月销量, product_data$同比增长率), 
               max(product_data$月销量, product_data$同比增长率)),
    title = "数值刻度",
    orientation = "horizontal", # 水平/垂直方向
    location = "bottom" # 图例位置：底部/顶部/侧边
  ) %>%
  tab_options(legend.position = "bottom")

方法2：手动构建自定义图例（无需额外包） #

如果不想依赖扩展包，可以通过HTML（Quarto HTML格式）或LaTeX（Quarto PDF格式）手动构建渐变颜色条，插入到表格的备注或额外行中。

HTML自定义图例示例（适合Quarto HTML输出） #

library(gt)
library(dplyr)

# 构造示例数据
set.seed(123)
product_data <- tibble(
  产品 = paste0("产品", 1:5),
  月销量 = sample(100:500, 5),
  同比增长率 = sample(-10:30, 5)/100
)

# 手动编写HTML颜色图例
custom_legend <- '<div style="display:flex; align-items:center; margin-top:10px;">
  <span style="font-size:0.9em;">低</span>
  <div style="width:220px; height:18px; margin:0 10px; background:linear-gradient(to right, #440154, #21918c, #fde725); border-radius:4px;"></div>
  <span style="font-size:0.9em;">高</span>
  <span style="margin-left:15px; font-weight:bold; font-size:0.9em;">数值刻度</span>
</div>'

# 创建表格并插入自定义图例
product_data %>%
  gt() %>%
  gt_color_rows(columns = c(月销量, 同比增长率), palette = "viridis") %>%
  # 将图例添加为表格底部备注
  tab_source_note(source_note = md(custom_legend))

注意事项 #

• 若Quarto输出为PDF，需将HTML代码替换为LaTeX的渐变颜色条代码，例如使用colortbl或tikz包实现。
• 确保gt_color_rows()的调色板和图例的渐变颜色完全匹配，保证视觉一致性。

内容的提问来源于stack exchange，提问作者oprick