Introdução

Nesta aula, vamos explorar como criar tabelas bonitas e funcionais no R utilizando os pacotes Kable e KableExtra. Isso é especialmente importante na área da saúde, onde a clareza na apresentação dos dados pode fazer toda a diferença.

Criando uma Tabela Básica com `kable`

Code

# Carregando os pacotes necessários
library(knitr)
library(kableExtra)

Code

# Criando um data frame simples
data <- mtcars

# Gerando uma tabela básica
kable(data, caption = "Tabela Básica com Kable")

Tabela Básica com Kable
	mpg	cyl	disp	hp	drat	wt	qsec	vs	am	gear	carb
Mazda RX4	21.0	6	160.0	110	3.90	2.620	16.46	0	1	4	4
Mazda RX4 Wag	21.0	6	160.0	110	3.90	2.875	17.02	0	1	4	4
Datsun 710	22.8	4	108.0	93	3.85	2.320	18.61	1	1	4	1
Hornet 4 Drive	21.4	6	258.0	110	3.08	3.215	19.44	1	0	3	1
Hornet Sportabout	18.7	8	360.0	175	3.15	3.440	17.02	0	0	3	2
Valiant	18.1	6	225.0	105	2.76	3.460	20.22	1	0	3	1
Duster 360	14.3	8	360.0	245	3.21	3.570	15.84	0	0	3	4
Merc 240D	24.4	4	146.7	62	3.69	3.190	20.00	1	0	4	2
Merc 230	22.8	4	140.8	95	3.92	3.150	22.90	1	0	4	2
Merc 280	19.2	6	167.6	123	3.92	3.440	18.30	1	0	4	4
Merc 280C	17.8	6	167.6	123	3.92	3.440	18.90	1	0	4	4
Merc 450SE	16.4	8	275.8	180	3.07	4.070	17.40	0	0	3	3
Merc 450SL	17.3	8	275.8	180	3.07	3.730	17.60	0	0	3	3
Merc 450SLC	15.2	8	275.8	180	3.07	3.780	18.00	0	0	3	3
Cadillac Fleetwood	10.4	8	472.0	205	2.93	5.250	17.98	0	0	3	4
Lincoln Continental	10.4	8	460.0	215	3.00	5.424	17.82	0	0	3	4
Chrysler Imperial	14.7	8	440.0	230	3.23	5.345	17.42	0	0	3	4
Fiat 128	32.4	4	78.7	66	4.08	2.200	19.47	1	1	4	1
Honda Civic	30.4	4	75.7	52	4.93	1.615	18.52	1	1	4	2
Toyota Corolla	33.9	4	71.1	65	4.22	1.835	19.90	1	1	4	1
Toyota Corona	21.5	4	120.1	97	3.70	2.465	20.01	1	0	3	1
Dodge Challenger	15.5	8	318.0	150	2.76	3.520	16.87	0	0	3	2
AMC Javelin	15.2	8	304.0	150	3.15	3.435	17.30	0	0	3	2
Camaro Z28	13.3	8	350.0	245	3.73	3.840	15.41	0	0	3	4
Pontiac Firebird	19.2	8	400.0	175	3.08	3.845	17.05	0	0	3	2
Fiat X1-9	27.3	4	79.0	66	4.08	1.935	18.90	1	1	4	1
Porsche 914-2	26.0	4	120.3	91	4.43	2.140	16.70	0	1	5	2
Lotus Europa	30.4	4	95.1	113	3.77	1.513	16.90	1	1	5	2
Ford Pantera L	15.8	8	351.0	264	4.22	3.170	14.50	0	1	5	4
Ferrari Dino	19.7	6	145.0	175	3.62	2.770	15.50	0	1	5	6
Maserati Bora	15.0	8	301.0	335	3.54	3.570	14.60	0	1	5	8
Volvo 142E	21.4	4	121.0	109	4.11	2.780	18.60	1	1	4	2

Personalizando Tabelas com `KableExtra`

Code

# Personalizando a tabela com estilos
kable(data, caption = "Tabela Personalizada com KableExtra") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"),
                full_width = F, 
                position = "center")

Tabela Personalizada com KableExtra
	mpg	cyl	disp	hp	drat	wt	qsec	vs	am	gear	carb
Mazda RX4	21.0	6	160.0	110	3.90	2.620	16.46	0	1	4	4
Mazda RX4 Wag	21.0	6	160.0	110	3.90	2.875	17.02	0	1	4	4
Datsun 710	22.8	4	108.0	93	3.85	2.320	18.61	1	1	4	1
Hornet 4 Drive	21.4	6	258.0	110	3.08	3.215	19.44	1	0	3	1
Hornet Sportabout	18.7	8	360.0	175	3.15	3.440	17.02	0	0	3	2
Valiant	18.1	6	225.0	105	2.76	3.460	20.22	1	0	3	1
Duster 360	14.3	8	360.0	245	3.21	3.570	15.84	0	0	3	4
Merc 240D	24.4	4	146.7	62	3.69	3.190	20.00	1	0	4	2
Merc 230	22.8	4	140.8	95	3.92	3.150	22.90	1	0	4	2
Merc 280	19.2	6	167.6	123	3.92	3.440	18.30	1	0	4	4
Merc 280C	17.8	6	167.6	123	3.92	3.440	18.90	1	0	4	4
Merc 450SE	16.4	8	275.8	180	3.07	4.070	17.40	0	0	3	3
Merc 450SL	17.3	8	275.8	180	3.07	3.730	17.60	0	0	3	3
Merc 450SLC	15.2	8	275.8	180	3.07	3.780	18.00	0	0	3	3
Cadillac Fleetwood	10.4	8	472.0	205	2.93	5.250	17.98	0	0	3	4
Lincoln Continental	10.4	8	460.0	215	3.00	5.424	17.82	0	0	3	4
Chrysler Imperial	14.7	8	440.0	230	3.23	5.345	17.42	0	0	3	4
Fiat 128	32.4	4	78.7	66	4.08	2.200	19.47	1	1	4	1
Honda Civic	30.4	4	75.7	52	4.93	1.615	18.52	1	1	4	2
Toyota Corolla	33.9	4	71.1	65	4.22	1.835	19.90	1	1	4	1
Toyota Corona	21.5	4	120.1	97	3.70	2.465	20.01	1	0	3	1
Dodge Challenger	15.5	8	318.0	150	2.76	3.520	16.87	0	0	3	2
AMC Javelin	15.2	8	304.0	150	3.15	3.435	17.30	0	0	3	2
Camaro Z28	13.3	8	350.0	245	3.73	3.840	15.41	0	0	3	4
Pontiac Firebird	19.2	8	400.0	175	3.08	3.845	17.05	0	0	3	2
Fiat X1-9	27.3	4	79.0	66	4.08	1.935	18.90	1	1	4	1
Porsche 914-2	26.0	4	120.3	91	4.43	2.140	16.70	0	1	5	2
Lotus Europa	30.4	4	95.1	113	3.77	1.513	16.90	1	1	5	2
Ford Pantera L	15.8	8	351.0	264	4.22	3.170	14.50	0	1	5	4
Ferrari Dino	19.7	6	145.0	175	3.62	2.770	15.50	0	1	5	6
Maserati Bora	15.0	8	301.0	335	3.54	3.570	14.60	0	1	5	8
Volvo 142E	21.4	4	121.0	109	4.11	2.780	18.60	1	1	4	2

Funcionalidades Avançadas com `KableExtra`

Code

# Destacando linha e coluna específicas com cores
kable(data, caption = "Tabela Avançada com KableExtra") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"),
                full_width = F, 
                position = "center") %>%
  row_spec(0, bold = TRUE, color = "white", background = "#D7261E") %>%
  column_spec(1, bold = TRUE, background = "#F7DC6F")

Tabela Avançada com KableExtra
	mpg	cyl	disp	hp	drat	wt	qsec	vs	am	gear	carb
Mazda RX4	21.0	6	160.0	110	3.90	2.620	16.46	0	1	4	4
Mazda RX4 Wag	21.0	6	160.0	110	3.90	2.875	17.02	0	1	4	4
Datsun 710	22.8	4	108.0	93	3.85	2.320	18.61	1	1	4	1
Hornet 4 Drive	21.4	6	258.0	110	3.08	3.215	19.44	1	0	3	1
Hornet Sportabout	18.7	8	360.0	175	3.15	3.440	17.02	0	0	3	2
Valiant	18.1	6	225.0	105	2.76	3.460	20.22	1	0	3	1
Duster 360	14.3	8	360.0	245	3.21	3.570	15.84	0	0	3	4
Merc 240D	24.4	4	146.7	62	3.69	3.190	20.00	1	0	4	2
Merc 230	22.8	4	140.8	95	3.92	3.150	22.90	1	0	4	2
Merc 280	19.2	6	167.6	123	3.92	3.440	18.30	1	0	4	4
Merc 280C	17.8	6	167.6	123	3.92	3.440	18.90	1	0	4	4
Merc 450SE	16.4	8	275.8	180	3.07	4.070	17.40	0	0	3	3
Merc 450SL	17.3	8	275.8	180	3.07	3.730	17.60	0	0	3	3
Merc 450SLC	15.2	8	275.8	180	3.07	3.780	18.00	0	0	3	3
Cadillac Fleetwood	10.4	8	472.0	205	2.93	5.250	17.98	0	0	3	4
Lincoln Continental	10.4	8	460.0	215	3.00	5.424	17.82	0	0	3	4
Chrysler Imperial	14.7	8	440.0	230	3.23	5.345	17.42	0	0	3	4
Fiat 128	32.4	4	78.7	66	4.08	2.200	19.47	1	1	4	1
Honda Civic	30.4	4	75.7	52	4.93	1.615	18.52	1	1	4	2
Toyota Corolla	33.9	4	71.1	65	4.22	1.835	19.90	1	1	4	1
Toyota Corona	21.5	4	120.1	97	3.70	2.465	20.01	1	0	3	1
Dodge Challenger	15.5	8	318.0	150	2.76	3.520	16.87	0	0	3	2
AMC Javelin	15.2	8	304.0	150	3.15	3.435	17.30	0	0	3	2
Camaro Z28	13.3	8	350.0	245	3.73	3.840	15.41	0	0	3	4
Pontiac Firebird	19.2	8	400.0	175	3.08	3.845	17.05	0	0	3	2
Fiat X1-9	27.3	4	79.0	66	4.08	1.935	18.90	1	1	4	1
Porsche 914-2	26.0	4	120.3	91	4.43	2.140	16.70	0	1	5	2
Lotus Europa	30.4	4	95.1	113	3.77	1.513	16.90	1	1	5	2
Ford Pantera L	15.8	8	351.0	264	4.22	3.170	14.50	0	1	5	4
Ferrari Dino	19.7	6	145.0	175	3.62	2.770	15.50	0	1	5	6
Maserati Bora	15.0	8	301.0	335	3.54	3.570	14.60	0	1	5	8
Volvo 142E	21.4	4	121.0	109	4.11	2.780	18.60	1	1	4	2

Nesta seção, vamos explorar diversas formas de personalizar tabelas usando o pacote KableExtra. Veremos como adicionar cores, bordas, mesclar células, adicionar notas de rodapé, entre outras funcionalidades avançadas.

1. Adicionando Cores e Destaques

1.1. Destaque de Linhas e Colunas

Podemos destacar linhas e colunas específicas para chamar a atenção para certos dados.

Code

kable(mtcars[1:5, 1:6], caption = "Destaque de Linhas e Colunas") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
  row_spec(1, bold = TRUE, color = "white", background = "blue") %>%
  column_spec(2, bold = TRUE, color = "white", background = "green")

Destaque de Linhas e Colunas
	mpg	cyl	disp	hp	drat	wt
Mazda RX4	21.0	6	160	110	3.90	2.620
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875
Datsun 710	22.8	4	108	93	3.85	2.320
Hornet 4 Drive	21.4	6	258	110	3.08	3.215
Hornet Sportabout	18.7	8	360	175	3.15	3.440

1.2. Aplicando Cores Condicionais

Podemos aplicar cores condicionais com base nos valores dos dados, útil para análises exploratórias.

Code

kable(mtcars[1:5, 1:6], caption = "Cores Condicionais") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
  column_spec(3, background = ifelse(mtcars[1:5, 3] > 150, "red", "yellow"))

Cores Condicionais
	mpg	cyl	disp	hp	drat	wt
Mazda RX4	21.0	6	160	110	3.90	2.620
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875
Datsun 710	22.8	4	108	93	3.85	2.320
Hornet 4 Drive	21.4	6	258	110	3.08	3.215
Hornet Sportabout	18.7	8	360	175	3.15	3.440

2. Mesclando Células

Podemos mesclar células para criar cabeçalhos mais complexos ou para agrupar categorias.

Code

# Corrigindo o número de colunas no cabeçalho
header <- c(" " = 1, "Engine Specs" = 3, "Performance" = 2)

# Criando a tabela com 6 colunas do mtcars
kable(mtcars[1:5, 1:6], caption = "Mesclagem de Células no Cabeçalho") |>
  add_header_above(c(" " = 1, "Car Details" = 6)) |>
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"))

Mesclagem de Células no Cabeçalho
	Car Details
	mpg	cyl	disp	hp	drat	wt
Mazda RX4	21.0	6	160	110	3.90	2.620
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875
Datsun 710	22.8	4	108	93	3.85	2.320
Hornet 4 Drive	21.4	6	258	110	3.08	3.215
Hornet Sportabout	18.7	8	360	175	3.15	3.440

3. Adicionando Notas de Rodapé

As notas de rodapé são úteis para adicionar informações ou explicações extras sobre os dados apresentados.

Code

kable(mtcars[1:5, 1:6], caption = "Tabela com Nota de Rodapé") |>
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) |>
  footnote(general = "Esta tabela apresenta dados do conjunto mtcars.",
           number = c("Note 1: Dados das cinco primeiras linhas.",
                      "Note 2: Seis primeiras colunas de mtcars."))

Tabela com Nota de Rodapé
	mpg	cyl	disp	hp	drat	wt
Mazda RX4	21.0	6	160	110	3.90	2.620
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875
Datsun 710	22.8	4	108	93	3.85	2.320
Hornet 4 Drive	21.4	6	258	110	3.08	3.215
Hornet Sportabout	18.7	8	360	175	3.15	3.440
Note:
Esta tabela apresenta dados do conjunto mtcars.
¹ Note 1: Dados das cinco primeiras linhas.
² Note 2: Seis primeiras colunas de mtcars.

4. Adicionando Linhas de Separação

Podemos adicionar linhas de separação entre linhas ou colunas para organizar melhor a visualização.

Code

kable(mtcars[1:5, 1:6], caption = "Tabela com Linhas de Separação") |>
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) |>
  add_header_above(c(" " = 1, "Engine Specs" = 3, "Performance" = 3)) |>
  add_header_above(c(" " = 1, "Car Details" = 6)) |>
  row_spec(2:4, hline_after = TRUE)

Tabela com Linhas de Separação
	Car Details
	Engine Specs			Performance
	mpg	cyl	disp	hp	drat	wt
Mazda RX4	21.0	6	160	110	3.90	2.620
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875
Datsun 710	22.8	4	108	93	3.85	2.320
Hornet 4 Drive	21.4	6	258	110	3.08	3.215
Hornet Sportabout	18.7	8	360	175	3.15	3.440

5. Controlando Largura das Colunas

Podemos ajustar a largura das colunas para melhorar a aparência da tabela.

Code

kable(mtcars[1:5, 1:6], caption = "Controle de Largura de Coluna") |>
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) |>
  column_spec(1, width = "2cm") |>
  column_spec(2, width = "3cm") |>
  column_spec(3, width = "4cm")

Controle de Largura de Coluna
	mpg	cyl	disp	hp	drat	wt
Mazda RX4	21.0	6	160	110	3.90	2.620
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875
Datsun 710	22.8	4	108	93	3.85	2.320
Hornet 4 Drive	21.4	6	258	110	3.08	3.215
Hornet Sportabout	18.7	8	360	175	3.15	3.440

6. Adicionando Imagens e Ícones

Em algumas situações, pode ser útil incluir imagens ou ícones diretamente nas tabelas.

Code

# Exemplo de uma tabela com imagens (substitua os links com URLs válidos de imagens)
image_link <- c("https://via.placeholder.com/15", "https://via.placeholder.com/15", 
                "https://via.placeholder.com/15", "https://via.placeholder.com/15", 
                "https://via.placeholder.com/15")

kable(mtcars[1:5, 1:6], caption = "Tabela com Imagens") |>
  column_spec(1, image = spec_image(image_link, 15, 15))

Tabela com Imagens
	mpg	cyl	disp	hp	drat	wt
Mazda RX4	21.0	6	160	110	3.90	2.620
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875
Datsun 710	22.8	4	108	93	3.85	2.320
Hornet 4 Drive	21.4	6	258	110	3.08	3.215
Hornet Sportabout	18.7	8	360	175	3.15	3.440

7. Personalizando o Estilo Geral da Tabela

Podemos controlar o estilo geral da tabela, como a largura total e a posição.

Code

kable(mtcars[1:5, 1:6], caption = "Personalização Geral") |>
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"),
                full_width = F, 
                position = "center", 
                font_size = 14)

Personalização Geral
	mpg	cyl	disp	hp	drat	wt
Mazda RX4	21.0	6	160	110	3.90	2.620
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875
Datsun 710	22.8	4	108	93	3.85	2.320
Hornet 4 Drive	21.4	6	258	110	3.08	3.215
Hornet Sportabout	18.7	8	360	175	3.15	3.440

Conclusão

Nesta expansão, exploramos várias formas de personalizar tabelas usando KableExtra, desde a adição de cores e mesclagem de células até o controle da largura das colunas e a inclusão de imagens. Essas técnicas permitem que você crie tabelas mais informativas e visualmente atraentes, que podem ser usadas em relatórios, apresentações, e publicações científicas.

Other Formats

Lab_08_Tabelas_KableExtra

Introdução

Criando uma Tabela Básica com `kable`

Personalizando Tabelas com `KableExtra`

Funcionalidades Avançadas com `KableExtra`

1. Adicionando Cores e Destaques

1.1. Destaque de Linhas e Colunas

1.2. Aplicando Cores Condicionais

2. Mesclando Células

3. Adicionando Notas de Rodapé

4. Adicionando Linhas de Separação

5. Controlando Largura das Colunas

6. Adicionando Imagens e Ícones

7. Personalizando o Estilo Geral da Tabela

Conclusão

Referências

Other Formats

Introdução

Criando uma Tabela Básica com kable

Personalizando Tabelas com KableExtra

Funcionalidades Avançadas com KableExtra

1. Adicionando Cores e Destaques

1.1. Destaque de Linhas e Colunas

1.2. Aplicando Cores Condicionais

2. Mesclando Células

3. Adicionando Notas de Rodapé

4. Adicionando Linhas de Separação

5. Controlando Largura das Colunas

6. Adicionando Imagens e Ícones

7. Personalizando o Estilo Geral da Tabela

Conclusão

Referências

Criando uma Tabela Básica com `kable`

Personalizando Tabelas com `KableExtra`

Funcionalidades Avançadas com `KableExtra`