library(mapsf)
mtq <- mf_get_mtq()
mf_map(x = mtq, var = "MED", type = "choro")