Objetivos

En este módulo vamos a utilizar el paquete kableExtra para diseñar vistosas tablas con los datos que pueden ser incorporadas a nuestros informes, tesis y demás trabajos de investigación.

El objetivo de kableExtra es construir tablas complejas y manipular estilos de tablas. Este paquete utiliza la sintaxis pipes >%> y verbaliza las funciones de forma que se pueden añadir capas, de una forma similar a ggplot.

Cuando no se especifique el formato, kableExtra genera una tabla markdown y deja que pandoc automáticamente realice la conversión de markdown a HTML/PDF.

Nota: Aunque no es necesario para este curso, si deseas conocer qué es pandoc sigue el siguiente enlace https://ull-esit-dsi-1617.github.io/estudiar-las-rutas-en-expressjs-alberto-diego/Diego/Pandoc/queespandoc.html

Para empezar, cargamos la librería kableExtra junto con knitr, que también es necesaria.

library(knitr)
library(kableExtra)

Vamos a crear el dataset cuya tabla será manipulada a lo largo de este módulo. Para ello, guarda en la variable subCO2 las 5 primeras filas y las 4 primeras columnas del dataset CO2.

subCO2 <- CO2[..., ...]
subCO2

subCO2 <- CO2[1:5,1:4]
subCO2

Estilos

Utiliza la función kable solo con la tabla subCO2 que acabas de crear, sin ningún argumento extra para observar el estilo básico html.

kable(...)

kable(subCO2)

Como puedes observar, es un estilo demasiado crudo y que no provoca interés al lector.

Para controlar el estilo se utiliza kable_styling()

kable_styling( kable( subCO2 ) )

Escribe la anterior secuencia usando pipes. A partir de ahora todo se realizará con pipes.

... %>%
  kable() %>%
  ...

subCO2 %>%
  kable() %>%
  kable_styling()

Algunos de los argumentos de estilo son:

• full_width: anchura completa (de tipo booleano: TRUE o FALSE)
• position: lugar que ocupa en el documento (opciones: left, center, right, float_left and float_right)
• font_size: tamaño de la fuente (número entero)

Personaliza tu tabla para que no tenga la anchura completa, que ocupe la posición izquierda y que su fuente sea 10.

subCO2 %>%
  kable() %>%
  kable_styling(full_width = ... , position = ... , font_size = ...)

subCO2 %>%
  kable() %>%
  kable_styling(full_width = F, position = "left", font_size = 7.5)

Nota: Hay más argumentos de estilo, se recomienda continuar con el argumento bootstrap_options e indagar en la ayuda de la función ?kable_stylig para más información.

Especificaciones en filas y columnas

Es posible también ajustar el ancho de las columnas y filas, darles color y customizarlas con las funciones column_spec y row_spec.

Por ejemplo, coloreamos de naranja la segunda columna de nuestra tabla y, además, le asignamos 3 cm de anchura con los siguientes argumentos column, width y background.

kable(subCO2) %>%
  kable_styling(full_width = F) %>%
  column_spec(column = 2, width = "3cm", background = "orange")

Utiliza la ayuda ?column_spec para obtener la siguiente tabla:

?column_spec

kable(subCO2) %>%
  kable_styling(full_width = F) %>%
  column_spec(column = 2, width = "3cm", background = ...) %>%
  ...

kable(subCO2) %>%
  kable_styling(full_width = F) %>%
  column_spec(column = 2, width = "3cm", background = "purple", color="pink", italic=F) %>%
  column_spec(column = 4, background = "yellow", color="black", strikeout = T)

Se puede realizar lo mismo para las filas con la función row_spec. Además, hay una funcionalidad extra. Las cabeceras o nombres de las variables se consideran la fila número 0 y también se pueden customizar.

Utiliza la ayuda ?row_spec para obtener la siguiente tabla:

?row_spec

kable(subCO2) %>%
  kable_styling(full_width = F) %>%
  row_spec(row = 0, ...) %>%
  row_spec(row = 2, ...)

kable(subCO2) %>%
  kable_styling(full_width = F) %>%
  row_spec(row = 0,color="blue", angle=-15)%>%
  row_spec(row = 2, background="green", bold=T, color="white")

Agrupar filas y columnas

kable(subCO2) %>%
  kable_styling() %>%
  add_header_above(c("A" = 2, "B" = 2))

kable(subCO2) %>%
  kable_styling() %>%
  add_header_above(c("A" = 2, "B" = 2)) %>%
  add_header_above(...)

kable(subCO2) %>%
  kable_styling() %>%
  add_header_above(c("A" = 2, "B" = 2)) %>%
  add_header_above(c("GR1" = 3, "GR2" = 1))

group_rows <- kableExtra::group_rows  # tanto en kableExtra como en dplyr está la función group_rowss

kable(CO2[1:10, 1:5]) %>%
  kable_styling(full_width = F) %>%
  group_rows(group_label="Grupo 1", start_row= 4, end_row=7) %>%
  group_rows("Grupo 2", 8, 10)

kable(CO2[1:10, 1:5]) %>%
  kable_styling(full_width = F) %>%
  group_rows(index = c(" " = ..., "Grupo 1" = ..., "Grupo 2" = ...))

kable(CO2[1:10, 1:5]) %>%
  kable_styling(full_width = F) %>%
  group_rows(index = c(" " = 3, "Grupo 1" = 4, "Grupo 2" = 3))

collapse_rows_dt <- data.frame(C1 = c(rep("a", 4), rep("b", 3)),
                 C2 = c(rep("c", 1), rep("d", 3), rep("c", 2), rep("d", 1)),
                 C3 = 1:7,
                 C4 = sample(c(0,1), 7, replace = TRUE))

kable(collapse_rows_dt) %>%
  kable_styling(full_width = F) 

kable(collapse_rows_dt) %>%
  kable_styling(full_width = F) %>%
  collapse_rows(columns = 1:2)

?collapse_rows

kable(collapse_rows_dt) %>%
  kable_styling(full_width = F) %>%
  collapse_rows(columns = 1:2, ...)

kable(collapse_rows_dt) %>%
  kable_styling(full_width = F) %>%
  collapse_rows(columns = 1:2, valign="top")

Autoevaluación

Practica lo que has aprendido descargando el siguiente fichero Rmd, abriéndolo con Rstudio: y resolviendo las preguntas de autoevaluación.

Autoevaluación

Para descargar el Rmd de autoevaluación haz click derecho en el enlace anterior y "Guardar enlace como..." y selecciona dónde quieres guardarlo.

Si al abrirlo con Rstudio observas caracteres extraños, selecciona File/Reopen with encoding/UTF-8 y ya se debe ver bien.

Dónde seguir

• Una herramienta útil para hacer un tabla estática en varios formatos es el portal tablesgenerator.com
• Use kableExtra with formattable
• Nuevo paquete Great Looking Tables (gt)

Continuar con tabulaR

Una vez terminado este documento puede:

• Volver al Modulo 3: Tablas dinámicas
• Volver al portal de tabulaR

Última actualización: 20201116-1215