Impressão de tabelas em formatos pdf e html em Quarto documents

O que é a impressão de tabelas gtsummary

• É a etapa onde é gerado os documentos em diferentes formatos

• Existem diferentes pacotes auxiliares que são uteis na formatação da tabela durante a impressão em pdf e html.

Qual o objetivo

• Gerar a tabela no formato desejado com detalhes específicos definidos pelo usuário.

De onde vem a demanda

• Necessidade de atender padrões exigidos por quem irá publicar o documento.

Como fazer

1. Primeiramente crie um documento quarto usando o menu File>New File>Quarto document>.

2. Em seguida, escolha o nome e formato de saída desejado, neste caso HTML.

3. Após o documento criado, insira os códigos abaixo e clique em renderizar para testar os formatos de saída.

# packages ----------------------------------------------------------------

library(tidyverse)
library(gtsummary)
library(quarto)

data_iris <- iris %>% janitor::clean_names()

#descriptive analysis
gts_summary_iris <- 
  data_iris %>% 
  tbl_summary(by = species) %>% 
  add_p() %>% 
  add_stat_label() %>% 
  modify_spanning_header(
    all_stat_cols() ~ "**Iris Species**")

Este método irá gerar uma saída da tabela no formato gt.

#as_gt 
gts_summary_iris %>% as_gt()

Characteristic	Iris Species			p-value 1
	setosa N = 50	versicolor N = 50	virginica N = 50
sepal_length, Median (Q1, Q3)	5.00 (4.80, 5.20)	5.90 (5.60, 6.30)	6.50 (6.20, 6.90)	<0.001
sepal_width, Median (Q1, Q3)	3.40 (3.20, 3.70)	2.80 (2.50, 3.00)	3.00 (2.80, 3.20)	<0.001
petal_length, Median (Q1, Q3)	1.50 (1.40, 1.60)	4.35 (4.00, 4.60)	5.55 (5.10, 5.90)	<0.001
petal_width, Median (Q1, Q3)	0.20 (0.20, 0.30)	1.30 (1.20, 1.50)	2.00 (1.80, 2.30)	<0.001
1 Kruskal-Wallis rank sum test

Este método irá gerar uma saída da tabela no formato flex table muito parecida com a apresentada em tela.

#flex table
gts_summary_iris %>% as_flex_table()

	Iris Species
Characteristic	setosa N = 50	versicolor N = 50	virginica N = 50	p-value1
sepal_length, Median (Q1, Q3)	5.00 (4.80, 5.20)	5.90 (5.60, 6.30)	6.50 (6.20, 6.90)	<0.001
sepal_width, Median (Q1, Q3)	3.40 (3.20, 3.70)	2.80 (2.50, 3.00)	3.00 (2.80, 3.20)	<0.001
petal_length, Median (Q1, Q3)	1.50 (1.40, 1.60)	4.35 (4.00, 4.60)	5.55 (5.10, 5.90)	<0.001
petal_width, Median (Q1, Q3)	0.20 (0.20, 0.30)	1.30 (1.20, 1.50)	2.00 (1.80, 2.30)	<0.001
1Kruskal-Wallis rank sum test

Este método irá gerar uma saída da tabela no formato hux table.

#huxtable
gts_summary_iris %>% as_hux_table()

	Iris Species
Characteristic	setosa N = 50	versicolor N = 50	virginica N = 50	p-value
sepal_length, Median (Q1, Q3)	5.00 (4.80, 5.20)	5.90 (5.60, 6.30)	6.50 (6.20, 6.90)	<0.001
sepal_width, Median (Q1, Q3)	3.40 (3.20, 3.70)	2.80 (2.50, 3.00)	3.00 (2.80, 3.20)	<0.001
petal_length, Median (Q1, Q3)	1.50 (1.40, 1.60)	4.35 (4.00, 4.60)	5.55 (5.10, 5.90)	<0.001
petal_width, Median (Q1, Q3)	0.20 (0.20, 0.30)	1.30 (1.20, 1.50)	2.00 (1.80, 2.30)	<0.001
Kruskal-Wallis rank sum test

Este método irá gerar uma saída da tabela no formato xlsx (esta será salvo na pasta onde você gerar o documento)

#xls
gts_summary_iris %>%  as_hux_xlsx(
  file = "table_1.xlsx")

Pra onde vai quem é o cliente

• Relatórios reproduzíveis em quarto documents.

• Tabelas para análises e publicações futuras em projetos de pesquisa

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.

• Melhora a consistência na apresentação de dados.

Vídeo tema para este post