Discussion :

[Arthurotop]

Bonjour tout le monde !
J'essaie de faire une carte de la France par région statique, j'ai du créer moi même le fichier avec un pourcentage par région, je vous montre mon fichier :


Et voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
library(raster)
#Découpage en département
FranceFormes <- getData(name="GADM", country="FRA", level=1)
plot(FranceFormes, main="Carte de la France, régions")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
base2022<-bénévole.origine
FranceFormes <- getData(name="GADM", country="FRA", level=1)
idx <- match(FranceFormes$CC_1, base2022$code)
concordance<-base2022[idx,"benevoles"]
FranceFormes$benevoles<-concordance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
couleurs <- colorRampPalette(c('white','red'))
spplot(FranceFormes,"benevoles",col.regions=couleurs(30), main=list(label="Origines des bénévoles par régions",cex=.8))

J'obtiens l'erreur :

Error in seq.default(zrng[1], zrng[2], length.out = cuts + 2) : 'from' doit être un nombre fini

Hors, je n'utilise pas de 'from' et toutes les discussions que je lis sur internet parle de carte interactive sauf ce site :
https://juliescholler.gitlab.io/file...package-spplot

Voilà, si vous pouvez m'éclairer, cela m'aiderait grandement.
Merci beaucoup
Très cordialement
Arthur

[mga_geo]

Bonsoir,
Sur l'interrogation de GADM, CC_1 vaut NA, la concordance ne fonctionne donc pas.
Elle fonctionne avec NAME_1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
library(raster)
library(tidyverse)
#Découpage en département
FranceFormes <- getData(name = "GADM", country = "FRA", level = 1)
plot(FranceFormes, main="Carte de la France, régions")
base2022 <- tribble(
  ~regions, ~code, ~benevoles,
  "Occitanie", 2, 3.56,
  "Bretagne", 5, 0.4,
  "Auvergne-Rhône-Alpes", 5, 7
)
idx <- match(FranceFormes$NAME_1, base2022$regions)
concordance <- base2022[idx, "benevoles"]
FranceFormes$benevoles <- concordance
couleurs <- colorRampPalette(c('yellow','red'))
spplot(
  FranceFormes,
  "benevoles",
  col.regions = couleurs(30),
  main=list(label="Origines des bénévoles par régions",cex=.8)
)

Marc

[Arthurotop]

Ce n'est pas la manière que j'ai étudiés en cours, j'ai appliqué les valeurs de chaque régions et cela fonctionne !
Merci beaucoup Marc !

Je m'attaque maintenant à la région PACA, si j'ai un problème je reviendrais ici !