Início / coding / Perguntas / 79559857
Accepted
Quinten
Asked: 2025-04-07 20:20:50 +0800 CST

Colorir células condicionalmente com base em colunas diferentes em gt [duplicado]

  • 772

Gostaria de colorir células condicionalmente com base em uma coluna diferente usando gto pacote. Tentei usar o rowsargumento para colorir condicionalmente, mas não funcionou. Aqui, tentei um exemplo reproduzível:

library(gt)
library(dplyr)
head(mtcars) %>%
  gt() %>%
  data_color(
    columns = cyl,
    rows = vs == 0,
    palette = c("red", "green")
  )

Saída:

insira a descrição da imagem aqui

Como você pode ver, a cor não está correta, assim como os outros valores. Deveria ser vermelho se vs for 0 e verde se vs for 1. Alguém sabe como podemos colorir condicionalmente esses valores com base em uma coluna diferente no gt?

2 respostas

  1. Best Answer

    Usar target_columns=.

    head(mtcars) %>%
  gt() %>%
  data_color(
    columns = vs, target_columns = cyl,
    palette = c("red", "green")
  )

    tabela gt com todas as colunas cyl coloridas de acordo com os valores das colunas vs

    Pense no uso de rows=como um componente de filtragem , ele limita quais linhas são afetadas pela coloração, não como as cores são atribuídas.

    A propósito, tentei mentalmente supor que isso palette=poderia suportar um vetor nomeado de uma forma que ggplot2::scale_*_manual(values=)suporte, mas não é automático... você precisa usar isso fn=se quiser controlar qual valor/nível vai para qual cor.

    ... %>%
  data_color(
    columns = vs, target_columns = cyl,
    fn = function(x) coalesce(c("0"="green", "1"="red")[as.character(x)], "gray")
  )

    Não sei se existe um scales::equivalente que manipule NAvalores corretamente.

    • 5

  2. Pode haver uma maneira mais eficiente, mas que tal aplicar os estilos diretamente assim:

    head(mtcars) %>%
  gt() %>%
  data_color(columns = cyl, rows = vs == 0, palette = c("red")) %>% 
  data_color(columns = cyl, rows = vs != 0, palette = c("green"))

    OU

    head(mtcars) %>%
  gt() %>%
  tab_style(
    style = cell_fill(color = "red"),
    locations = cells_body(columns  = cyl, rows = vs==0)
  ) %>% 
  tab_style(
    style = cell_fill(color = "green"),
    locations = cells_body(columns  = cyl, rows = vs!=0)
  )

    insira a descrição da imagem aqui

    • 3

relate perguntas