Formatar tabelas para publicar artigos no R com GT package

Comunicação
Author

Marcelo Carvalho dos Anjos

Published

May 6, 2024

O que é o pacote GT

  • É um pacote com funções úteis para criação de tabelas em documentos Iannone et al. (2024).
  • Tem como base o princípio tidy que busca o equilibrio na interface homem maquina, homem homem e reprodutibilidade.

Qual o objetivo

  • Facilitar a construção de tabelas em documentos técnicos e científicos.

  • Permitir a construção de ampla variedade de tabelas.

De onde vem a demanda

  • Da elaboração de documentos reproduzíveis.

  • Da simplicidade e código mais legível na produção de documentos técnicos e científicos.

Como fazer

  • Para o exemplo será usado o conjunto dados gapminder . Se não tiver o pacote gapminder instalado, para instalar é install.packages("gapminder").
# packages ----------------------------------------------------------------
library(tidyverse)
library(gt)
library(gapminder)


# tbl ---------------------------------------------------------------------

gapminder %>% 
  filter(year == 2007 & lifeExp >81) %>% 
  gt(groupname_col = "continent") %>% 
  tab_header(title = md("**Tabela1: Expectativa de vida vs renda**"),
             subtitle = "Apenas países com exp > 81") %>% 
  tab_options(heading.align = "left",
              column_labels.border.top.color = "black",
              column_labels.border.top.width = px(3)) %>% 
  cols_align(align = "right", columns = 1:4) %>% 
  fmt_number(columns = c(lifeExp, pop),
             decimals = 0) %>% 
  fmt_currency(columns = c(gdpPercap),
               currency = "USD") %>% 
  tab_footnote(
    footnote = "Renda menor que a média restante",
    locations = cells_body(columns = c(gdpPercap),
                           rows = gdpPercap < 35000)) %>% 
  tab_footnote(
    footnote = "GDP(PPP) purchasing power parity",
    locations = cells_column_labels(columns = c(gdpPercap))
  ) %>% 
  tab_source_note(md("**Fonte**: Gapminder"))
Tabela1: Expectativa de vida vs renda
Apenas países com exp > 81
country year lifeExp pop gdpPercap1
Oceania
Australia 2007 81 20,434,176 2 $34,435.37
Asia
Hong Kong, China 2007 82 6,980,412 $39,724.98
Japan 2007 83 127,467,972 2 $31,656.07
Europe
Iceland 2007 82 301,931 $36,180.79
Switzerland 2007 82 7,554,661 $37,506.42
Fonte: Gapminder
1 GDP(PPP) purchasing power parity
2 Renda menor que a média restante

Pra onde vai quem é o cliente

  • Comunicação de pesquisas técnicas e científicas.

  • Manuais de treinamento de equipe.

  • Portal de comunicação de informações do negócio.

Qual o resultado

  • Facilita a construção de tabela e melhor comunicação dos dados.

  • Possibilia a reprodução rápida e prática da tabela através da reutilização e adaptação dos códigos usadas na construção por outros membros do time.

  • Melhora a consistência na apresentação de dados reduzindo os riscos de erros de digitação, entre outras inconsistências.

Vídeo tema para este post

References

Iannone, Richard, Joe Cheng, Barret Schloerke, Ellis Hughes, Alexandra Lauer, and JooYoung Seo. 2024. “Gt: Easily Create Presentation-Ready Display Tables.” https://CRAN.R-project.org/package=gt.