Turn your visualisations into real waffles with the colours of waffles
scale_fill_waffle(..., na.value = "red")
scale_colour_waffle(..., na.value = "red")
Other arguments passed on to discrete_scale to control name, limits, breaks, labels and so forth.
Colour to use for missing values