Create a municipio-level interactive map — mxmunicipio

Zoomable municipio maps made with leaflet

mxmunicipio_leaflet(
  df,
  pal,
  fillColor,
  popup = "",
  weight = 0.2,
  color = "#555555",
  opacity = 0.8,
  fillOpacity = 0.8,
  lng = -102,
  lat = 23.8,
  mapzoom = 5,
  zoom = NULL
)

Arguments

df	A data.frame with a column named "region" and a column named "value". Elements in the "region" column must exactly match how regions are named in the "region" column in ?df_mxmunicipio.
pal	the color palette function, generated from `colorNumeric()`, `colorBin()`, `colorQuantile()`, or `colorFactor()`
fillColor	the values used to generate colors from the palette function
popup	The text to show when the user clicks on a map feature
weight	The thickness of map feature borders
color	The border color for the map features
opacity	the opacity of colors.
fillOpacity	The opacity of the colors used to fill the map features
lng	The longitude of the map center
lat	The latitude of the map center
mapzoom	The zoom level
zoom	The municipios to zoom into

Value

A leaflet map

Examples

if (FALSE) {
library(leaflet)

data(df_mxmunicipio)
df_mxmunicipio$value <- df_mxmunicipio$indigenous /df_mxmunicipio$pop
magma <- c("#000004FF", "#1D1146FF", "#50127CFF", "#822681FF",
           "#B63779FF", "#E65163FF", "#FB8761FF", "#FEC387FF", "#FCFDBFFF")
pal <- colorNumeric(magma, domain = df_mxmunicipio$value)
mxmunicipio_leaflet(df_mxmunicipio,
                    pal,
                    ~ pal(value),
                    ~ sprintf("State: %s<br/>Municipio : %s<br/>Value: %s%%",
                    state_name, municipio_name, round(value * 100, 1))) %>%
  addLegend(position = "bottomright", pal = pal,
            values = df_mxmunicipio$value) %>%
  addProviderTiles("CartoDB.Positron")
}