creation carte europe

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

bruno Mathieu
Messages : 7
Enregistré le : 02 Juil 2009, 09:22

creation carte europe

Messagepar bruno Mathieu » 02 Juil 2009, 09:49

Bonjour,
Je cherche à créer une carte de l'europe où je peux colorier certains pays.
J'ai réussi à créer celle de France, également celle d'Afrique en utilisant l'excellent document formation pdf de ce site. J'arrive à sélectionner les pays à colorier sans problèmes.
Cependant, en utilisant la même syntaxe que mes 2 autres cartes, celle d'Europe ne fonctionne pas. En regardant, la structure de l'objet carte de chacun je n'y vois pas de différences. Même en essayant de colorier l'ensemble de la carte d'Europe sans distinction de pays, R ne remplit que de petites zones bizarres. Si quelqu'un a une idée de pourquoi je suis preneur. Voici ci dessous le script utilisé:

carte.europe <- map(database = "world", xlim=c(-10,40), ylim=c(30,57))
str(carte.europe)
sort(carte.europe$names)
pays.presence.EU <- c("Switzerland", "Italy", "Spain", "Yougoslavia", "Portugal", "Poland", "Germany")
cols.EU <- ifelse(is.element(carte.europe$names, pays.presence.EU), "red", "light grey")
map(carte.europe, add=TRUE, fill=TRUE, col=cols.EU)

Renaud Lancelot
Messages : 2484
Enregistré le : 16 Déc 2004, 08:01
Contact :

Messagepar Renaud Lancelot » 02 Juil 2009, 11:38

Salut Bruno,

Une sombre histoire de polygones qui sont tronqués quand on utilise xlim et ylim...

NB: coquille sur "Yougoslavia" --> "Yugoslavia"

Le code suivant fonctionne:

Code : Tout sélectionner

map("world", xlim=c(-10,40), ylim=c(30,57), fill = TRUE, col = "light grey")
pays.presence.EU <- c("Switzerland", "Italy", "Spain",
                      "Yugoslavia", "Portugal", "Poland",
                      "Germany")
map("world", region = pays.presence.EU, add = TRUE,
    fill = TRUE, col = "red", exact = FALSE)


NB: Sicile et Sardaigne pas prises en compte car traitées sous forme de polygones non rattachés à Italie. Si tu les veux:

Code : Tout sélectionner

pays.presence.EU <- c("Switzerland", "Italy", "Spain",
                      "Yugoslavia", "Portugal", "Poland",
                      "Germany", "Sardinia", "Sicily")
Renaud

bruno Mathieu
Messages : 7
Enregistré le : 02 Juil 2009, 09:22

Messagepar bruno Mathieu » 02 Juil 2009, 12:30

Super merci Renaud pour cette reponse rapide !!
à très bientot
amitiés
bruno

François Martin
Messages : 5
Enregistré le : 03 Juil 2009, 12:16

Messagepar François Martin » 03 Juil 2009, 14:09

Bonjour, je me permets de changer un peu de sujet, la réponse à la question initiale ayant visiblement déjà été donné (et je n'ai pas envie de créer un sujet pour une question si bateau). Je souhaite réaliser des cartes sous R(juste pour apprendre comment faire, donc pas besoin d'avoir un résultat extra genre publi etc...). Pour débuter mon voisin de bureau m'a gentillement donnée tout un tas de fonds de carte MapInfo, et, malgré la lecture attentive de différents documents, le téléchargement de qq packages, je ne m'en sors pas, quelle technique utilisez-vous pour ouvrir ces fonds de cartes?
Merci d'avance (encore désolé Bruno et/ou Mathieu de squatter votre pos)

FM
"Les statistiques, c'est comme le bikini: ça donne des idées mais ça cache l'essentiel!" Coluche

Renaud Lancelot
Messages : 2484
Enregistré le : 16 Déc 2004, 08:01
Contact :

Messagepar Renaud Lancelot » 03 Juil 2009, 16:20

Voir le package rgdal et la fonction readOGR. Il y a un exemple traité pour MapInfo mais il n'est pas d'une clarté lumineuse.
Renaud

Kevin Leleu
Messages : 42
Enregistré le : 30 Juin 2011, 14:58

Carte Europe Haute résolution

Messagepar Kevin Leleu » 06 Nov 2014, 14:34

Bonjour,

Pour reprendre le sujet de Bruno posté il y a déjà quelques années, je cherche à créer une carte de l'europe où je peux colorier certains pays, pour y projeter ensuite les points situant mes échantillons.

Le code discuté par Renaud et Bruno me convient tout à fait par sa simplicité.

Le seul "problème" que j'ai est que la résolution des traits de côte est trop basse pour réaliser les graphiques dont j'ai besoin.

J'ai regardé dans l'index du package map, et apparemment, il n'y a pas de couche qui me permettrait d'obtenir une carte avec un trait de côte plus détaillé pour l'Europe.

Quelqu'un saurait-il comment se le procurer ?
Ou alors existe-il un autre package très simple pour obtenir ce résultat ?
J'ai essayé avec ggmap, j'ai des problèmes de projection entre la carte obtenue et mes données.

Je vous remercie par avance.

Bien cordialement

Kévin

Renaud Lancelot
Messages : 2484
Enregistré le : 16 Déc 2004, 08:01
Contact :

Messagepar Renaud Lancelot » 06 Nov 2014, 17:51

Essayer avec la base de données "worldHires" du package mapdata (qui accompagne le package maps):

Code : Tout sélectionner

library(maps)
library(mapdata)
map(database = "worldHires", xlim=c(-10,40), ylim=c(30,57),
    fill = TRUE, col = "light grey")
pays.presence.EU <- c("Switzerland", "Italy", "Spain",
                      "Yugoslavia", "Portugal", "Poland",
                      "Germany", "Sicily", "Sardinia")
map(database = "worldHires", region = pays.presence.EU, add = TRUE,
    fill = TRUE, col = "red", exact = FALSE)
Renaud

Kevin Leleu
Messages : 42
Enregistré le : 30 Juin 2011, 14:58

Messagepar Kevin Leleu » 07 Nov 2014, 08:39

Mille mercis Renaud, cela convient tout à fait.

Cordialement

Kévin L


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité