data(NLD_muni)
NLD_muni_pop_per_km2 <- calc_densities(NLD_muni, var = c("pop_men", "pop_women"), suffix = "_km2")
NLD_muni <- append_data(NLD_muni, NLD_muni_pop_per_km2, fixed=TRUE)
qtm(NLD_muni, fill=c("pop_men_km2", "pop_women_km2"), nrow=1, format="NLD")
Run the code above in your browser using DataLab