Início / coding / Perguntas / 79045895
Accepted
Ben_89
Asked: 2024-10-02 16:17:48 +0800 CST

Como usar eficientemente pill_buttons() em reactablefmtr para múltiplas variáveis?

  • 772

Tenho um quadro de dados que contém cerca de 15 variáveis ​​de interesse e pretendo preencher condicionalmente os valores com base em alguns critérios usando a pill_buttons()função no reactablefmtrpacote.

Os dados fictícios abaixo tentam simular meus dados reais, mas para o propósito deste post, eu apenas usei 3 variáveis ​​em vez de 15 ou mais. var1_z, var2_zetc. são pontuações z que correspondem à coluna homônima. Eu então crio colunas adicionais que fazem referência à cor que eu gostaria que os respectivos valores fossem coloridos na tabela.

library(tidyverse)
library(reactable)
library(reactablefmtr)

cell_bg <- function(x){
  case_when(
    x > 1.5 ~ "red",
    x < -1.5 ~ "lightblue",
    .default = "transparent"
    )
  }

set.seed(1)
ex <- data.frame(
  date = seq(Sys.Date(), Sys.Date() - 9, -1),
  var1 = round(rnorm(10, 8000, 500)),
  var2 = round(rnorm(10, 500, 50)),
  var3 = round(rnorm(10, 100, 20)),
  var1_z = round(runif(10, -3, 3), 2),
  var2_z = round(runif(10, -3, 3), 2),
  var3_z = round(runif(10, -3, 3), 2)
  ) %>%
  mutate(
    across(
      .cols = var1_z:var3_z,
      .fns = cell_bg,
      .names = "{.col}_pal"
      )
    )

Estou familiarizado com o uso da pill_buttons()função, conforme exibido abaixo no meu conjunto de dados fictício. No entanto, é repetitivo e tedioso completar cada função para cada variável, como fiz abaixo, bem como codificar colDef(show = FALSE)para cada coluna que não desejo exibir na saída final. Como tenho certeza de que você pode entender, ter que repetir essas etapas para muito mais colunas parece exagero.

reactable(ex,
          highlight = TRUE,
          pagination = FALSE,
          defaultColDef = colDef(
            align = "center",
            headerVAlign = "center",
            html = TRUE
            ),
          columns = list(
            date = colDef(sticky = "left"),
            var1 = colDef(cell = pill_buttons(ex, color_ref = "var1_z_pal")),
            var2 = colDef(cell = pill_buttons(ex, color_ref = "var2_z_pal")),
            var3 = colDef(cell = pill_buttons(ex, color_ref = "var3_z_pal")),
            var1_z = colDef(show = FALSE),
            var2_z = colDef(show = FALSE),
            var3_z = colDef(show = FALSE),
            var1_z_pal = colDef(show = FALSE),
            var2_z_pal = colDef(show = FALSE),
            var3_z_pal = colDef(show = FALSE)
            )
          )

Sei que posso usar outros pacotes de tabela, como kableExtraesse, que podem simplificar meu fluxo de trabalho, mas estou decidido a usar reactablefmtre a pill_buttons()função, pois gosto da estética. Espero que alguém tenha uma solução onde eu possa tornar meu código para criar a saída desejada mais eficiente sem ter que escrever muitas, muitas linhas.

insira a descrição da imagem aqui

1 respostas

  1. Best Answer

    Aqui está um exemplo em que every colDef(show = FALSE)e every colDef(cell = pill_buttons(...))são gerados dinamicamente sem escrevê-los para cada coluna relevante. Isso pode ser estendido para um número arbitrário de colunas.

    Usamos lapplyaqui para gerar uma lista contendo os diferentes colDefe, adicionalmente, nomear essas entradas da lista de modo que correspondam aos nomes das colunas relevantes.

    library(tidyverse)
library(reactable)
library(reactablefmtr)

# columns with coldef(show = FALSE)
colsNotShow <- ex |> select(contains("z")) |> colnames()

# generate coldef for these ones
coldefs <- lapply(1:length(colsNotShow), \(x) colDef(show = FALSE))
names(coldefs) <- colsNotShow

# columns with pill_buttons function
colsShowPillButtons <- ex |> select(starts_with("var") & !contains("z")) |> colnames()

coldefsShowPillButtons <- lapply(colsShowPillButtons,
                            \(x) colDef(
                              cell = pill_buttons(ex,
                                                  color_ref = paste0(
                                                    x,"_z_pal"))))

names(coldefsShowPillButtons) <- colsShowPillButtons

# combine them and add the date colDef
coldefs <- c(coldefs, coldefsShowPillButtons, list(date = colDef(sticky = "left")))

reactable(ex,
          highlight = TRUE,
          pagination = FALSE,
          defaultColDef = colDef(
            align = "center",
            headerVAlign = "center",
            html = TRUE
          ),
          columns = coldefs)

    Resultado:

    insira a descrição da imagem aqui

    Dados:

    cell_bg <- function(x){
  case_when(
    x > 1.5 ~ "red",
    x < -1.5 ~ "lightblue",
    .default = "transparent"
  )
}

set.seed(1)
ex <- data.frame(
  date = seq(Sys.Date(), Sys.Date() - 9, -1),
  var1 = round(rnorm(10, 8000, 500)),
  var2 = round(rnorm(10, 500, 50)),
  var3 = round(rnorm(10, 100, 20)),
  var1_z = round(runif(10, -3, 3), 2),
  var2_z = round(runif(10, -3, 3), 2),
  var3_z = round(runif(10, -3, 3), 2)
) %>%
  mutate(
    across(
      .cols = var1_z:var3_z,
      .fns = cell_bg,
      .names = "{.col}_pal"
    )
  )
    • 1

relate perguntas