如何使用STR_DETECT(或regex)更改 colored颜色或突出显示GT表中的单词

发布于11月05日

这就是我得到的，但当我运行代码时，我得到Error: object 'Name' not found.有什么办法可以继续下go 吗？

library(gt)

data <- data.frame(
  Name = c("John Doe", "Jane Smith", "Bob Johnson"),
  Age = c(30, 25, 35))

highlight_word <- "Doe"


 gt(data) |> 
  tab_style(
    locations = cells_body(columns = Name),
    style = list(cell_text(color = 
                    ifelse(str_detect(Name, highlight_word), "yellow", "white"))))

推荐答案

有几种方法可以try .一种是使用fmt_markdown在GT表中使用Markdown格式的文本进行呈现.另一个使用text_transform修改表格中目标单元格中的格式化字符串.后者需要根据需要转换文本的函数.

library(gt)
library(stringr)
library(tidyverse)

使用fmt_markdown:

data |>
  mutate(Name = str_replace(Name, highlight_word, paste0('<a style = "color:yellow">', highlight_word, '</a>'))) |>
  gt() |>
  fmt_markdown(columns = Name)

使用text_transform:

gt(data) |>
  text_transform(locations = cells_body(columns = Name),
                 fn = \(x) {
                   str_replace(x, highlight_word, paste0('<a style = "color:yellow">', highlight_word, '</a>'))
                 })

Output个