gt() 来自 gt 颜色单元格，内容相同但不同？

Question

我试图通过根据单元格的内容为单元格着色来使我的表格更加直观，因此

gt()

。然而，具有相同内容的单元格的颜色不同，即使在同一颜色组中也是如此。如果你们有人对如何解决这个问题有建议，我将非常感激。

图片供参考

期望的结果应该是绿色代表 TRUE，黑色代表 FALSE，蓝色代表“即将到来”，红色代表“错过”

我只用了

data_color(gt(df), col = c(5, 11))

。我尝试通过

palette = c("red", "blue", "green", "black")

限制颜色数量，但也不起作用。

Answer 1

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"
  )