将颜色与 gt 中的列值匹配

Question

我有一段简单的代码试图发布一个 table 根据内容中列出的颜色使用包 gt.

为列着色的代码

df <- data.frame(name = c("john", "paul", "ringo"),
                 fav_colour = c("red", "blue", "green"))

df %>% gt() %>% data_color(columns = fav_colour, colors = fav_colour)

但是，如您所见，绘制的颜色没有正确匹配。

我知道这是 gt 中的一个已知问题，如 package github 中所述，并且尚未对该程序包实施任何修复。

我想知道是否有人在 gt 中发现了解决此问题的方法，或者可以推荐具有同等功能的不同 table 发布包。

Answer 1

试试这个...

library(tidyverse)
library(gt)

df <- data.frame(name = c("john", "paul", "ringo"),
                 fav_colour = c("red", "blue", "green"))

df %>% 
  mutate(fav_colour = fct_inorder(fav_colour)) |> 
  gt() %>% 
  data_color(columns = fav_colour, colors = as.character(fav_colour))

^{由 reprex package (v2.0.1)}

于 2022-04-28 创建

将颜色与 gt 中的列值匹配

Matching colours with column values in gt

r

gt