如何为gt表格单元格添加超链接且不显示额外文本

问题根因 #

原有实现拼接HTML时在数值后额外加入了here作为链接文本，导致单元格出现多余内容。

修正后代码 #

只需要将超链接标签的内部文本替换为对应的mpg数值，不需要额外拼接其他内容，代码如下：

library(tidyverse)
library(gt)

raw_dat <- mtcars[1:15, ] %>% 
  rownames_to_column(var = "id") %>% 
  select(id, mpg)

tibble(
  name = raw_dat$id,
  mpg = map2(
    raw_dat$mpg,
    "你的目标跳转链接",
    ~gt::html(paste0("<a href='", .y, "'>", .x, "</a>"))
  )
) %>% 
  gt()

实现效果 #

• 单元格仅展示原始mpg数值，无额外文本
• 点击数值即可直接跳转至目标地址
• 不改变原始数值的展示逻辑

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