mtq <- mf_get_mtq()
flows <- mf_get_mtq("lines")
mtq <- mf_get_mtq()
mf_map(mtq)
mf_map(mtq, "POP", "prop",
inches = .4, leg_title = "Population",
leg_pos = "topright"
)
mf_map(flows, "fij", "prop",
lwd_max = 10, col = "steelblue2",
leg_pos = "right"
)
Run the code above in your browser using DataLab