如何在gt包中结合data_color与text_transform实现多URL列对应值列的链接？

核心思路是不做数据透视转换，直接针对每个值列单独配置文本转换，既保留数值类型用于data_color着色，又能给对应值绑定匹配的URL和flag文本。

完整实现代码 #

library(dplyr)
library(gt)
library(glue)

# 多URL示例数据
dat <- data.frame(
  flag = c("safe", "out", "tie"),
  url1 = c("https://www.google.com", "https://www.yahoo.com", "https://www.bing.com"),
  url2 = c("https://www.one.com", "https://www.two.com", "https://www.three.com"),
  value1 = c(1, NA, 3),
  value2 = c(1.1, NA, 8)
)

# 生成表格的核心代码
gt(dat) %>%
  # 隐藏不需要显示的辅助列
  cols_hide(columns = c("flag", "url1", "url2")) %>%
  # 对value1列单独设置链接和flag
  text_transform(
    columns = "value1",
    fn = function(x, .y) {
      # .y是当前行的索引，用来匹配对应的url1和flag
      glue("<a href=\"{dat$url1[.y]}\" target=\"_blank\">{x}</a> {dat$flag[.y]}")
    }
  ) %>%
  # 对value2列单独设置链接和flag
  text_transform(
    columns = "value2",
    fn = function(x, .y) {
      glue("<a href=\"{dat$url2[.y]}\" target=\"_blank\">{x}</a> {dat$flag[.y]}")
    }
  ) %>%
  # 正常使用data_color着色，因为value列仍是数值类型
  data_color(
    direction = "row",
    palette = "viridis"
  )

关键说明 #

• 避免使用pivot_*：透视转换会把数值列转为字符型，直接导致data_color失效，保留原数据结构是核心前提
• 利用text_transform的.y参数：该参数会传入当前处理的行索引，通过它可精准匹配每行对应的URL和flag文本
• 分列处理：每个值列单独调用text_transform，指定columns参数定位目标列，确保每个值绑定对应的URL

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