gt()从gt为相同内容的单元格 colored颜色不同

发布于04月05日

我试图使我的表格更直观，通过根据其内容为单元格着色，因此gt().但是，具有相同内容的单元格的 colored颜色不同，即使在同一个 colored颜色组中也不一样.如果你们有任何关于如何解决这个问题的建议，我会非常感激.

Picture for reference

所需结果应该是绿色代表真，黑色代表未命中，蓝色代表"即将到来"，红色代表"错过".

我只用了data_color(gt(df), col = c(5, 11))个.我试着将 colored颜色的数量限制到palette = c("red", "blue", "green", "black")，但它也不起作用.

推荐答案

使用data_color可以指定一个 colored颜色映射函数，该函数将使用Scales包中的col_*()个函数.

library(gt)

df <- data.frame(
  on_time_W2 = c("Missed visit", "Missed visit", "TRUE", "TRUE", "TRUE"),
  on_time_W4 = "Missed visit",
  on_time_W6 = c("FALSE", "Missed visit", "FALSE", "Missed visit", "Missed visit"),
  on_time_W26 = c("TRUE", "Upcoming visit", "TRUE", "Upcoming visit", "Upcoming visit")
)

df |>
  gt() |>
  data_color(
    fn = scales::col_factor(
      palette = c("green", "black", "red", "blue"),
      levels = c("TRUE", "FALSE", "Missed visit", "Upcoming visit")
    ),
    apply_to = "fill"
  )

Table