mtq <- mf_get_mtq()
mf_map(mtq)
mf_map(mtq, c("POP", "STATUS"), "prop_typo")
mtq[6, "STATUS"] <- NA
mf_map(mtq)
mf_map(
x = mtq, var = c("POP", "STATUS"), type = "prop_typo",
inches = .35, border = "tomato4",
val_max = 90000, symbol = "circle", col_na = "grey", pal = "Dynamic",
lwd = 2,
leg_pos = "bottomright",
leg_title = c("Population", "Municipality\nstatus"),
leg_title_cex = 0.9,
leg_val_cex = .7,
val_order = c("Prefecture", "Sub-prefecture", "Simple municipality"),
leg_no_data = "No dada",
leg_frame = TRUE,
add = TRUE
)
Run the code above in your browser using DataLab