# Avec les fonds de cartes integres
rca <- carte_zones("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(nrow(rca))]
)
sf_enrichi <- carte_joindre(rca, stats,
cle_geo = "prefecture",
cle_data = "prefecture")
Run the code above in your browser using DataLab