Gráfico de waffle (square pie) 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)

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)

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"))

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")