mtq <- mf_get_mtq()
mtq$STATUS[3] <- NA
mf_map(mtq)
mf_map(mtq, "STATUS", "symb",
pal = "Berlin", border = "white", lwd = 1,
cex = c(4, 3, 2), pch = c(21:23), col_na = "red",
val_order = c("Prefecture", "Sub-prefecture", "Simple municipality"),
leg_title = ""
)
Run the code above in your browser using DataLab