也许有一个更优雅的方法，但一个简单的方法是使用两个text_transform，每对url_和value_列一个：

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

gt(dat) %>%
  cols_hide(columns = c("flag", "url1", "url2")) %>%
  data_color(
    direction = "row",
    palette = "viridis"
  ) %>%
  text_transform(
    fn = function(x) glue("<a href=\"{dat$url1}\" target=\"_blank\">{x}</a> {dat$flag}"),
    ocation = cells_body("value1")
  ) |>
  text_transform(
    fn = function(x) glue("<a href=\"{dat$url2}\" target=\"_blank\">{x}</a> {dat$flag}"),
    location = cells_body("value2")
  )

编辑作为for的替代方法，您可以使用purrr::reduce如下：

cols <- grep("value*", names(dat), value = TRUE)

gt(dat) %>%
  cols_hide(columns = c("flag", "url1", "url2")) %>%
  data_color(
    direction = "row",
    palette = "viridis"
  ) %>%
  purrr::reduce(cols, \(x, col) {
    url_col <- gsub("value", "url", col)
    text_transform(x,
      fn = function(x) glue("<a href=\"{dat[[url_col]]}\" target=\"_blank\">{x}</a> {dat$flag}"),
      location = cells_body(col)
    )
  }, .init = .)

@stefan：这太长了，不能作为评论添加，但采取你的方法并概括它，这可以在这里工作：

dat <- tibble(
  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_table <- gt(dat) %>%
  cols_hide(columns = c("flag", "url1", "url2")) %>%
  data_color(
    direction = "row",
    palette = "viridis"
  )

cols <- grep("value*", names(dat), value = TRUE)

for (i in seq_along(cols)) {
  url_col <- gsub("value", "url", cols[i])
  gt_table <- gt_table %>%
    text_transform(
      fn = function(x) glue("<a href=\"{dat[,url_col, drop = TRUE]}\" target=\"_blank\">{x}</a>"),
      location = cells_body(cols[i])
    )
}

gt_table