Usar paleta de 12 colores y hacer zoom en estados y municipios

[Alejandro Muñoz Fernández]

Hola Diego, espero que estés muy bien,

Quería preguntarte si hay forma de usar 12 colores diferentes y al mismo tiempo hacer zoom en determinados estados y municipios.

Hace tiempo me pasaste estas líneas para usar más colores de lo que permite la función mxmunicipio_choropleth():

gg = MXMunicipioChoropleth$new( df_mxmunicipio_2020 )
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()

Sin embargo, el resultado es un mapa a nivel nacional, en lugar de centrarse en determinadas entidades federativas (primera imagen). Y bueno, me gustaría que saliera algo como la segunda imagen, pero con más colores.

¡Saludos!

[Diego Valle-Jones]

Hola Alejandro, lo puedes hacer con este código:

library("ggplot2")
library("mxmaps")

df_mxmunicipio_2020$value <- as.factor(sample(letters[1:12],
                                              nrow(df_mxmunicipio_2020),
                                              replace = TRUE) )
gg = MXMunicipioChoropleth$new(df_mxmunicipio_2020)

gg$set_zoom(subset(df_mxmunicipio_2020, metro_area %in% c("Valle de México",
                                                          "Cuernavaca",
                                                          "Tula",
                                                          "Pachuca",
                                                          "Puebla",
                                                          "Toluca"))$region)
gg$title <- "Municipios 1-12"

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