{"id":2941,"date":"2016-06-05T17:12:30","date_gmt":"2016-06-05T15:12:30","guid":{"rendered":"http:\/\/www.blue-bears.com\/blog\/?p=2941"},"modified":"2017-06-29T06:53:50","modified_gmt":"2017-06-29T04:53:50","slug":"cartographie-avec-logiciel-r","status":"publish","type":"post","link":"http:\/\/www.blue-bears.com\/blog\/?p=2941","title":{"rendered":"Cartographie avec Logiciel R"},"content":{"rendered":"<p>Repr\u00e9sentation graphique de donn\u00e9es avec le logiciel R.<\/p>\n<p><!--more--><\/p>\n<ul>\n<li>\n<h1>Pr\u00e9requis :<\/h1>\n<ul>\n<li>Installation du logiciel R :\n<ul>\n<li>En standAlone sous Windows ou id\u00e9alement sur un serveur Linux.<\/li>\n<li><a href=\"https:\/\/www.r-project.org\/\">https:\/\/www.r-project.org\/<\/a><\/li>\n<\/ul>\n<\/li>\n<li>Identification de la r\u00e9f\u00e9rence du fond de carte :\n<ul>\n<li><a href=\"http:\/\/spatialreference.org\/\">http:\/\/spatialreference.org\/<\/a><\/li>\n<\/ul>\n<\/li>\n<li><strong>Sous R :<\/strong>\n<ul>\n<li>S\u00e9lection du repository\u00a0 :Packages =&gt; Choisir le site Miroir CRAN\n<ul>\n<li>France Lyon 1<\/li>\n<\/ul>\n<\/li>\n<li>S\u00e9lection Entrep\u00f4t : Packages =&gt; Choisir l\u2019entrep\u00f4t\n<ul>\n<li>CRAN<\/li>\n<\/ul>\n<\/li>\n<li>Installation des packages : Packages =&gt; Installer package\n<ul>\n<li>rgdal<\/li>\n<li>plotrix<\/li>\n<li>classInt<\/li>\n<li>maptool<\/li>\n<\/ul>\n<\/li>\n<li>Download data geo :\n<ul>\n<li>https:\/\/www.data.gouv.fr\/fr\/datasets\/geofla-communes\/<\/li>\n<li>D\u00e9compresser et <span style=\"color: #ff0000;\">changer dans le path vers le r\u00e9pertoire cible les \u00ab\u00a0\\\u00a0\u00bb par des \u00ab\u00a0\/\u00a0\u00bb<\/span><\/li>\n<\/ul>\n<\/li>\n<\/ul>\n<\/li>\n<li>Script :\n<ul>\n<li>\n<pre>\r\nlibrary('rgdal')\u00a0\u00a0\u00a0\u00a0\u00a0 # Lire et reprojeter les cartes\r\nlibrary('plotrix')\u00a0\u00a0\u00a0 # Cr\u00e9er des \u00e9chelles de couleurs\r\nlibrary('classInt')\u00a0\u00a0 # Affecter ces couleurs aux donn\u00e9es\r\n\r\n\r\n#dsn=\"C:\\Users\\Yves\\Documents\\R\\GEOFLA_2-1_COMMUNE_SHP_LAMB93_FXX_2015-12-01\\GEOFLA\\1_DONNEES_LIVRAISON_2015\\GEOFLA_2-1_SHP_LAMB93_FR-ED152\\COMMUNE\"\r\ndsn=\"C:\/Users\/Yves\/Documents\/R\/GEOFLA_2-1_COMMUNE_SHP_LAMB93_FXX_2015-12-01\/GEOFLA\/1_DONNEES_LIVRAISON_2015\/GEOFLA_2-1_SHP_LAMB93_FR-ED152\/COMMUNE\"\r\n\r\n# Lecture des d\u00e9partements\r\ndepartements &lt;- readOGR(dsn, layer=\"COMMUNE\")\r\n\r\n# Lecture des limites d\u00e9partementales pour s\u00e9lectionner les fronti\u00e8res\r\nfrontieres &lt;- readOGR(dsn,\u00a0 layer=\"LIMITE_COMMUNE\")\r\nfrontieres &lt;- frontieres[frontieres$NATURE %in% c('Fronti\\xe8re internationale','Limite c\\xf4ti\\xe8re'),]\r\n\r\n# Lecture des communes\r\ncommunes\u00a0\u00a0\u00a0\u00a0 &lt;- readOGR(dsn, layer=\"COMMUNE\")\r\n\r\n# Calcul de la densit\u00e9.\r\n#communes$DENSITE &lt;- communes$POPULATION\/communes$SUPERFICIE*100000\r\ncommunes$DENSITE &lt;- communes$DECILE_9\r\n\r\n# \u00c9chelle de couleurs\r\n#col &lt;- findColours(classIntervals(communes$DENSITE, 100, style=\"quantile\"),smoothColors(\"#0C3269\",98,\"white\"))\r\ncol &lt;- findColours(classIntervals(communes$DENSITE, 100, style=\"sd\"),smoothColors(\"white\",98,\"#0C3269\"))\r\n\r\n# L\u00e9gende\r\nleg &lt;- findColours(classIntervals(\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 round(communes$DENSITE), 6, style=\"sd\"),\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 smoothColors(\"white\",4,\"#0C3269\"),\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 under=\"moins de\", over=\"plus de\", between=\"\u2013\",\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 cutlabels=FALSE)\r\n\r\n# Exportation en PDF avec gestion de la police\r\ncairo_pdf('c:\/tmp\/densite.pdf',width=6,height=4.7)\r\npar(mar=c(0,0,0,0),family=\"Myriad Pro\",ps=8)\r\n\r\n# Trac\u00e9 de la carte\r\nplot(frontieres, col=\"#FFFFFF\")\r\n#plot(europe,\u00a0\u00a0\u00a0\u00a0 col=\"#E6E6E6\", border=\"#AAAAAA\",lwd=1, add=TRUE)\r\nplot(frontieres, col=\"#D8D6D4\", lwd=6, add=TRUE)\r\nplot(communes,\u00a0\u00a0 col=col, border=col, lwd=.1, add=TRUE)\r\nplot(frontieres, col=\"#666666\", lwd=1, add=TRUE)\r\n\r\n# Affichage de la l\u00e9gende\r\nlegend(-10000,6387500,fill=attr(leg, \"palette\"),\r\n\u00a0\u00a0\u00a0 legend=names(attr(leg,\"table\")), cex=0.5,\r\n\u00a0\u00a0\u00a0 title = \"R\u00e9mun\u00e9ration annuelle par UC du d\u00e9cile le plus \u00e9lev\u00e9 par commune :\")\r\n\r\ndev.off()\r\n\r\nogrInfo(dsn,layer=\"COMMUNE\")<\/pre>\n<\/li>\n<li>Le fichier final est sous format .pdf dans C:\/tmp\/<\/li>\n<\/ul>\n<\/li>\n<\/ul>\n<\/li>\n<li>\n<h1>Bibliographie :<\/h1>\n<ul>\n<li><a href=\"https:\/\/www.sylvaindurand.org\/cartographie-avec-R\/\">https:\/\/www.sylvaindurand.org\/cartographie-avec-R\/<\/a><\/li>\n<li><a href=\"http:\/\/coulmont.com\/cartes\/rcarto.pdf\">http:\/\/coulmont.com\/cartes\/rcarto.pdf<\/a><\/li>\n<li><a href=\"https:\/\/www.youtube.com\/watch?v=OwLibDdu4_E\">https:\/\/www.youtube.com\/watch?v=OwLibDdu4_E<\/a>\n<ul>\n<li>Tuto vid\u00e9o (un peu laborieux mais complet)<\/li>\n<\/ul>\n<\/li>\n<li><\/li>\n<\/ul>\n<\/li>\n<\/ul>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Repr\u00e9sentation graphique de donn\u00e9es avec le logiciel R.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17],"tags":[],"class_list":["post-2941","post","type-post","status-publish","format-standard","hentry","category-informatique"],"_links":{"self":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/2941","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2941"}],"version-history":[{"count":7,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/2941\/revisions"}],"predecessor-version":[{"id":2949,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/2941\/revisions\/2949"}],"wp:attachment":[{"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2941"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2941"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.blue-bears.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2941"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}