library("ggplot2")
library("mxmaps")
df_mxmunicipio_2020$value <- as.factor(sample(letters[1:11],
nrow(df_mxmunicipio_2020),
replace = TRUE) )
gg = MXMunicipioChoropleth$new(df_mxmunicipio_2020)
gg$title <- "Municipios 1-11"
gg$ggplot_scale <- scale_fill_brewer("type", type = "qual", palette = 2,
na.value = "gray")
p <- gg$render()
p + scale_fill_brewer(palette = "Set3") + theme_void()
p + scale_fill_brewer(palette = "Paired") + theme_void()