Gráfico de waffle (square pie) en ggplot2

Librería

waffle

Autor principal

Bob Rudis

Gráfico de waffle básico

La librería waffle contiene una función del mismo nombre que puede ser usada para crear gráficos de waffle (square pie o gridplots) en ggplot2.

Para crear un gráfico de waffle básico pasa el vector que contiene la cuenta para cada grupo a la función. El número de filas del gráfico puede ser seleccionado con rows (por defecto es 10). Elige un valor en base a tus datos.

# install.packages("waffle", repos = "https://cinc.rud.is")
library(waffle)

# Vector
x <- c(30, 25, 20, 5)

# Gráfico de waffle
waffle(x, rows = 8)

Gráfico de waffle en ggplot2

Usa un vector con nombres para cambiar la leyenda

Si nombras las variables del vector, la leyenda mostrará sus nombres.

# install.packages("waffle", repos = "https://cinc.rud.is")
library(waffle)

# Vector
x <- c(G1 = 30, G2 = 25, G3 = 20, G4 = 5)

# Gráfico de waffle
waffle(x, rows = 8)

Square pie en R

Personalización del color

Puedes pasar un vector de colores al argumento colors. Pasa tantos colores como número de componentes tenga el vector de entrada.

# install.packages("waffle", repos = "https://cinc.rud.is")
library(waffle)

# Vector
x <- c(G1 = 30, G2 = 25, G3 = 20, G4 = 5)

# Gráfico de waffle
waffle(x, rows = 8,
       colors = c("#FFEDA0", "#FEB24C", "#FC4E2A", "#BD0026"))

Colores del gráfico de waffle en ggplot2

Posición de la leyenda

La posición de la leyenda se puede cambiar con el argumento legend_pos. Los posibles valores son "right" (por defecto), "bottom", "left", "top" y "none" para eliminar la leyenda.

# install.packages("waffle", repos = "https://cinc.rud.is")
library(waffle)

# Vector
x <- c(G1 = 30,  G2 = 25, G3 = 20, G4 = 5)

# Gráfico de waffle
waffle(x, rows = 8,
       legend_pos = "bottom")

Gridplot en R

En caso de que quieras incrementar el margen del gráfico respecto a la leyenda pasa un valor numérico al argumento pad (por defecto es 0).