Bom dia
O código abaixo coloca cores em todas as colunas de mtcars de acordo com o valor de cada uma.
library(gt)
#> Warning: package 'gt' was built under R version 4.1.2
gt(mtcars) |>
data_color(
columns = everything(),
colors = scales::col_numeric(
palette = paletteer::paletteer_d(
palette = "ggsci::red_material"
) %>% as.character(),
domain = NULL
)
)
Created on 2022-04-22 by the reprex package (v2.0.1)
Minha dúvida é se é possível fazer o mesmo não “colwise”, mas “rowwise”. A tabela que estou trabalhando precisa exibir as variáveis nas linhas, enquanto as colunas são referentes a valores coletados a cada 5 anos:
df <- data.frame(t = c("Esp. de vida ao nascer, total",
"Esp. de vida ao nascer, H",
"Esp. de vida ao nascer, M",
"Doenças do ap. circulatório",
"Neoplasmas malignos",
"Doenças infecciosas",
"Causas extremas de morte",
"Taxa de mortalidade infantil (por 1000 nascidos vivos)",
"Taxa de mortalidade materna (por 100000 nascidos vivos)"),
"1995" = c(75.4, 71.7, 79.0, 320.9, 164.5, 18.0, 53.4, 7.4, 9.9),
"2000" = c(76.8, 73.3, 80.4, 263.7, 160.3, 19.5, 39.9, 5.5, 8.8),
"2005" = c(78.2, 74.9, 81.5, 208.7, 155.3, 16.9, 35.9, 3.5, 5.2),
"2014" = c(81.3, 78.0, 84.4, 150.8, 152.0, 12.8, 32.3, 2.9, 5.6))
library(dplyr)
#> Warning: package 'dplyr' was built under R version 4.1.2
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(gt)
#> Warning: package 'gt' was built under R version 4.1.2
gt(df) %>%
tab_header("Tabela 2: Indicadores de mortalidade e longevidade, 1995-2004 (anos selecionados)") %>%
cols_label(t = "", "X1995" = "1995", "X2000" = "2000",
"X2005" = "2005", "X2014" = "2014") %>%
tab_row_group(
label = "Mortalidade/100000 habit",
rows = c(4:7)
) %>%
tab_row_group(
label = "",
rows = c(1:3)
) %>%
data_color(
columns = c("X1995": "X2014"),
colors = scales::col_numeric(
palette = paletteer::paletteer_d(
palette = "ggsci::red_material"
) %>% as.character(),
domain = NULL
)
) %>%
tab_options(
heading.align = "left",
table.border.top.color = "black",
column_labels.border.bottom.color = "black",
column_labels.border.bottom.width= px(3),
) %>%
tab_footnote(
footnote = "Fonte: Simões et al., 2017",
location = cells_title())
Created on 2022-04-22 by the reprex package (v2.0.1)
(As tabelas geradas não constam no tópico porque não foram bem renderizadas na pré-visualização, mas os códigos geraram o resultado esperado no Viewer do RStudio)