Marcos Abreu’s blog - R tip: tabelas com gtExtras

```{r setup}
#| warning: false
#| message: false

library(palmerpenguins)
library(tidyverse)
library(gt)
library(gtExtras)
```

Pinguins com gtExtras

No post anterior apresentamos alguns recursos do pacote gt para produzir tabelas. Neste post vamos apresentar o recurso do pacote gtExtras para destacar informações através de sparklines.

SPARKLINES

Vamos começar apresentando as informações de palmerpenguins destacando a evolução das quantidades conforme o ano de medição.

```{r}
#| warning: false
#| message: false
penguins_gt <- 
  penguins %>% 
  count(species, year) %>% 
  pivot_wider(names_from = year,
              values_from = n) %>% 
  gt() 

penguins_gt
```

species	2007	2008	2009
Adelie	50	50	52
Chinstrap	26	18	24
Gentoo	34	46	44

Queremos acrescentar sparklines indicando as variações de quantidades por ano.

```{r}
#| warning: false
#| message: false
penguins_gt <- 
  penguins %>% 
  count(species, year) %>% 
  group_by(species) %>% 
  mutate(evolution = list(n)) %>% 
  ungroup() %>% 
  pivot_wider(names_from = year,
              values_from = n) %>% 
  relocate(evolution, .after = last_col()) %>% 
  arrange(desc(`2009`)) %>% 
  gt() %>% 
  tab_header(title = "Pinguins no Arquipélago Palmer na Antártica",
             subtitle = "palmerpinguins in R dataset") %>% 
  opt_align_table_header(align = "left") %>% 
  cols_align(align = "left", 
             columns = c(species)) %>% 
  cols_align(align = "right", 
             columns = c(`2007`, `2008`, `2009`)) %>% 
  cols_align(align = "center",
             columns = c(evolution)) %>% 
  cols_label(
    species = "Espécie",
    evolution = "Evolução"
  ) %>% 
  tab_spanner(
    label = c("Ano de medição"),
    columns = c(`2007`, `2008`, `2009`)
  ) %>% 
  gt_plt_sparkline(evolution)

# my_path = str_c(getwd(), "/posts/2022-11-06-r-tip-tabelas-com-gtextras")
# penguins_gt %>% 
#   gtsave(filename = "new_penguins.png",
#          path = my_path)

penguins_gt
```

Espécie	Ano de medição			Evolução
Pinguins no Arquipélago Palmer na Antártica
palmerpinguins in R dataset
Espécie	2007	2008	2009	Evolução
Adelie	50	50	52
Gentoo	34	46	44
Chinstrap	26	18	24

Also, we re-arranged the rows in descend order of values for 2009.

Citation

BibTeX citation:

@misc{abreu2022,
  author = {Abreu, Marcos},
  title = {R Tip: Tabelas Com {gtExtras}},
  date = {2022-11-06},
  url = {https://abreums.github.io/posts/2022-11-06-r-tip-tabelas-com-gtextras/},
  langid = {en}
}

For attribution, please cite this work as:

Abreu, Marcos. 2022. “R Tip: Tabelas Com gtExtras.” November 6, 2022. https://abreums.github.io/posts/2022-11-06-r-tip-tabelas-com-gtextras/.