bonjour chers tous
Je suis confronté à un problème pour un code de réalisation de carte que j'ai utilisé. je suis un débutant. Voici le code que j'ai utilisé:
#chargement des packages nécessaires
library(sp)
library(RColorBrewer)
library(maptools)
library(rgdal)
#library(classInt)
library(readr)
#nettoyage de l'espace de travail / attention, cette commande effacera tous les #objets R créés dans la session courante!
rm(list=ls())
#fermeture de fenêtres graphiques éventuellement ouvertes
dev.off()
#definition du dossier de travail ou se trouvent les données et le fond de carte
setwd("Documents/R/Dossier_carte_Rosee")
#import des données à cartographier
dt <- read_delim("~/R/Dossier_carte_Rosee/data.csv",
+ ";", escape_double = FALSE, trim_ws = TRUE)
#import du fond de carte
fdc <- readOGR("D:/Documentation/BD_Benin/Benin_Communes.shp")
#Jointure entre le fond de carte et les données
fdc@data <- merge(fdc@data , by.x="INSEE_COM",by.y="CODGEO", all.x=TRUE)
Voici le résultat que j'ai obtenu
library(sp)
> library(RColorBrewer)
> library(maptools)
> library(rgdal)
> #library(classInt)
> library(readr)
> #nettoyage de l'espace de travail / attention, cette commande effacera tous les #objets R créés dans la session courante!
> rm(list=ls())
> #fermeture de fenêtres graphiques éventuellement ouvertes
> dev.off()
Error in dev.off() :
impossible de fermer le périphérique 1 (périphérique null)
> #definition du dossier de travail ou se trouvent les données et le fond de carte
> setwd("Documents/R/Dossier_carte_Rosee")
Error in setwd("Documents/R/Dossier_carte_Rosee") :
cannot change working directory
> #import des données à cartographier
> #dt <- read.csv( "Documents/R/Dossier_carte_Rosee/data.csv",header=TRUE,sep=";",dec=",",skip=0)
> dt <- read_delim("~/R/Dossier_carte_Rosee/data.csv",
+ ";", escape_double = FALSE, trim_ws = TRUE)
Parsed with column specification:
cols(
Annee = col_integer(),
Quant_Rosee_fallow = col_number()
)
> #création de la variable VAR_POP du taux d'accroissement de la population
> #dt$VAR_POP <- (dt$P09_POP-dt$P99_POP) / dt$P99_POP
> #import du fond de carte
> fdc <- readOGR("D:/Documentation/BD_Benin/Benin_Communes.shp")
OGR data source with driver: ESRI Shapefile
Source: "D:/Documentation/BD_Benin/Benin_Communes.shp", layer: "Benin_Communes"
with 77 features
It has 10 fields
> #Jointure entre le fond de carte et les données
> fdc@data <- merge(fdc@data , by.x="INSEE_COM",by.y="CODGEO", all.x=TRUE)
Error in as.data.frame(y) : argument "y" is missing, with no default
que faire chers tous?