rca <- carte_zones("rca")
n <- nrow(rca)
stats <- data.frame(
prefecture = rca$prefecture,
taux_pauvrete = c(74.2, 71.8, 68.5, 65.3, 72.1,
55.4, 48.7, 51.2, 62.3, 58.9,
28.4, 42.1, 52.8, 63.7, 59.4,
44.6, 70.5)[seq_len(n)]
)
sf_enr <- carte_joindre(rca, stats, "prefecture", "prefecture")
sf_enr$taux_prop <- sf_enr$taux_pauvrete / 100
carte_pauvrete(sf_enr, var_fgt0 = "taux_prop",
source = "Donnees simulees")
Run the code above in your browser using DataLab