Discussion :

[comme de bien entendu]

Bonjour,
Je souhaite obtenir une représentation graphique de données dans une carte choropleth. Et j'ai une erreur lorsque j'utilise la carte francaise et pas avec les cartes des autres pays comme la Belgique.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
library(GADMTools)
Fr<-gadm_sf_loadCountries("FRA",level=2)
choropleth(Fr, 
               data = Vinter2,
               value = "NbreVoyage", 
               adm.join = "NomDept",
               breaks = "pretty", 
               palette = "Oranges",
               legend="test",
                title="test2")

Error in UseMethod("choropleth", x) :
pas de méthode pour 'choropleth' applicable pour un objet de classe "NULL"

Lorsque j'utilise la Belgique, de code iso BEL, avec

Code :

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

gadm_sf_loadCountries("BEL",level=2)

j'obtiens bien la carte même si les départements ne correspondent pas.

Mes données Vinter2 ne posent à priori pas de problemes.

> head(Vinter2)
NomDept NumDept NbreVoyage
3 Loire-Atlantique 44 532
4 Bouches-du-Rhones 13 354
5 Hauts-de-Seine 92 350
6 Yvelines 78 332
7 Val-De-Marne 94 315
8 Essonne 91 293

Merci d'avance de vos idées.

[mgdondon]

Bonjour,

Une bien jolie carte !

• Vérifiez peut-être le type des variables du dataframe Vinter2. De plus, l'option stringsAsFactors=FALSE évite le message suivant :

Warning message:
Column `NAME_2` joining character vector and factor, coercing into character vector

• Attention aussi à la dénomination des départements. J'ai dû corriger le nom des départements Bouches-du-Rhône et Val-de-Marne pour qu'ils s'affichent. Vous pouvez afficher la liste des départements de l'objet Fr à l'aide du code Fr$sf$NAME_2.

---

Code :

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

1
2
library(GADMTools)
Fr <- gadm_sf_loadCountries("FRA",level=2)

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
22
23
> str(Fr)
List of 4
 $ basename: chr "./"
 $ sf      :Classes ‘sf’ and 'data.frame':      96 obs. of  7 variables:
  ..$ ISO      : chr [1:96] "FRA" "FRA" "FRA" "FRA" ...
  ..$ NAME_0   : chr [1:96] "France" "France" "France" "France" ...
  ..$ NAME_1   : chr [1:96] "Auvergne-Rhône-Alpes" "Auvergne-Rhône-Alpes" "Auvergne-Rhône-Alpes" "Auvergne-Rhône-Alpes" ...
  ..$ NAME_2   : chr [1:96] "Ain" "Allier" "Ardèche" "Cantal" ...
  ..$ TYPE_2   : chr [1:96] "Département" "Département" "Département" "Département" ...
  ..$ ENGTYPE_2: chr [1:96] "Department" "Department" "Department" "Department" ...
  ..$ geometry :sfc_MULTIPOLYGON of length 96; first list element: List of 1
  .. ..$ :List of 1
  .. .. ..$ : num [1:386, 1:2] 5.26 5.24 5.22 5.2 5.19 ...
  .. .. .. ..- attr(*, "dimnames")=List of 2
  .. .. .. .. ..$ : NULL
  .. .. .. .. ..$ : chr [1:2] "x" "y"
  .. ..- attr(*, "class")= chr [1:3] "XY" "MULTIPOLYGON" "sfg"
  ..- attr(*, "sf_column")= chr "geometry"
  ..- attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA
  .. ..- attr(*, "names")= chr [1:6] "ISO" "NAME_0" "NAME_1" "NAME_2" ...
 $ level   : num 2
 $ hasBGND : logi FALSE
 - attr(*, "class")= chr "gadm_sf"

Code :

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

1
2
3
4
5
6
Vinter2 <- data.frame(NomDept=c("Loire-Atlantique","Bouches-du-Rhône",
                                "Hauts-de-Seine","Yvelines",
                                "Val-de-Marne","Essonne"),
                      NumDept=c(44,13,92,78,94,91),
                      NbreVoyage=c(532,354,350,332,315,293),
                      stringsAsFactors=FALSE)

Code :

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

1
2
3
4
5
> str(Vinter2)
'data.frame':   6 obs. of  3 variables:
 $ NomDept   : chr  "Loire-Atlantique" "Bouches-du-Rhône" "Hauts-de-Seine" "Yvelines" ...
 $ NumDept   : num  44 13 92 78 94 91
 $ NbreVoyage: num  532 354 350 332 315 293

Code :

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

1
2
3
4
5
6
7
8
choropleth(Fr, 
           data =     Vinter2,
           value =    "NbreVoyage", 
           adm.join = "NomDept",
           breaks =   "pretty", 
           palette =  "Oranges",
           legend =   "test",
           title =    "test2")

Cordialement,

[comme de bien entendu]

Bonjour,

Merci pour la réponse mais en fait,je viens de constater que c'est dans Rstudio que mon programme ne fonctionne pas alors qu'il fonctionne très bien avec R.

Ca marche bien avec la Belgique dans RStudio


Dans R Studio et avec la France j'ai toujours le même bug :Error in UseMethod("choropleth", x) :

pas de méthode pour 'choropleth' applicable pour un objet de classe "NULL"

J'ai R Version 1.01 (7657)
et
Rstudio Studio
Version 1.1.463 – © 2009-2018 RStudio, Inc.
Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/601.7.8 (KHTML, like Gecko)
Mac OS X 32 Bits.

Si quelqu'un a une idée sur le souci avec Rstudio ?

[mgdondon]

Bonjour,

Pas de problème non plus avec RStudio, que ce soit dans un script R ou dans un fichier R Markdown :





Il serait plus intéressant de montrer ce qui ne marche pas que ce qui marche.

De plus dans votre copie d'écran vous écrasez votre dataframe Vinter2 par le mien...

Pouvez-vous copier-coller le résultat de la fonction str(Vinter2) ?

Cordialement,

[comme de bien entendu]

Voici ce qui ne marche pas.

[mgdondon]

Bonjour,

J'ai R Version 1.01 (7657)
et
Rstudio Studio
Version 1.1.463 – © 2009-2018 RStudio, Inc.
Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/601.7.8 (KHTML, like Gecko)
Mac OS X 32 Bits

Pas sure de votre version de R...

J'ai testé avec

R 3.5.1
RStudio 1.1.453

et

R 3.6.1
RStudio 1.2.1335

Ça marche avec les deux configurations.

Peut-être pouvez-vous désinstaller complètement R et RStudio en prenant soin de supprimer les répertoires d'installation et réinstaller les deux logiciels ?

Cordialement,

[comme de bien entendu]

Merci, je testerai quand j'aurais un moment. Pour le moment je vais conserver ma version Rstudio que j'ai eu bien du mal à installer sur un vieux Mac 32 bits. (comme je suis arrivé à avoir mes graphes avec R j'ai ce qu'il me faut) Merci d'avoir testé.
Bonne journée.