waffle background

gistfile1.txt

# Output 1 - retains white space around the plot
plot +
  waffle::geom_waffle(aes(fill = species,
                          values = n),
                      colour = "lightblue",
                      make_proportional = FALSE,
                      size = 2) +
  theme(plot.background = element_rect(fill = "lightblue", 
                                       color = "lightblue"))

# Output 2 - white space is gone!
waffle_plot <- plot +
  waffle::geom_waffle(aes(fill = species,
                          values = n),
                      colour = "lightblue",
                      make_proportional = FALSE,
                      size = 2) 

cowplot::plot_grid(waffle_plot) +
  theme(plot.background = element_rect(fill = "lightblue", 
                                       color = "lightblue"))