沒有列名的 gt 表中的顏色編碼 p 值

Question

我有以下 gt 表：

library(dplyr)
library(gt)
group1 <- c("0", "1", "10", "100", "1000")
group2 <- c("0", "1", "10", "100", "1000")
pvalue <- c("0.06", "0.042", "0.001", "1", "0.02")
data <- data.frame(group1, group2, pvalue)

data %>% 
  pivot_wider(names_from = group2,
              values_from = pvalue) %>%
  gt() %>%
  cols_label(group1 = "") %>% 
    sub_missing(
  columns = everything(),
  rows = everything(),
  missing_text = "") 

有沒有辦法對小於 0.05 藍色和小於 0.01 紅色的 p 值進行顏色編碼？ 我試過 data_colours 參數，但因為我沒有列名，所以它不起作用。

Answer 1

您使用data_color在正確的軌道上。 當然，你是否有列名，即使它們不是真正需要的，因為我們只需要排除第一列：

library(dplyr)
library(tidyr)
library(gt)

data %>% 
  pivot_wider(names_from = group2,
              values_from = pvalue) %>%
  mutate(across(-1, as.numeric)) %>%
  gt() %>%
  cols_label(group1 = "") %>% 
  sub_missing(
    columns = everything(),
    rows = everything(),
    missing_text = "") %>%
  data_color(
    columns = -1,
    colors = scales::col_bin(
      palette = c("red", "blue", "transparent"),
      bins = c(0, 0.01, .05, 1),
      na.color = "transparent"
    )
  )