Chapitre 9 Exercice 6 : les données majic

Calculer à partir des tables fournies dans le fichier majic.RData issues des fichiers fonciers (cf. http://piece-jointe-carto.developpement-durable.gouv.fr/NAT004/DTerNP/html3/_ff_descriptif_tables_image.html#pnb10) un indicateur d’étalement urbain entre 2009 et 2014 à la commune et à l’EPCI sur la région Pays de la Loire (départements 44, 49, 53, 72 et 85), et catégoriser chaque territoire.

Définitions :

  • artificialisation = dcnt07 + dcnt09 + dcnt10 + dcnt11 + dcnt12 + dcnt13
  • indicateur_etalement_simple = évolution de l’artificialisation / évolution de la population
  • indicateur_etalement_avance, indicateur catégoriel qui vaut :
    • 1 si la population progresse ou reste stable alors que l’artificialisation recule ;
    • 2a si la population et l’artificialisation progressent ou sont stables et l’étalement urbain est inférieur ou égal à 1 (ou pop stable) ;
    • 2b si la population et l’artificialisation reculent et l’indicateur d’étalement urbain est supéreur à 1 ;
    • 2c si la population recule et l’indicateur d’étalement est compris entre 0 et 1 (inclus) ;
    • 3 si la population progresse, l’artificialisation progresse plus vite que la population, tout en restant inférieure ou égale à 4,9 m² ;
    • 4 si la population progresse, l’artificialisation est supérieure à 4,9 m², elle progresse plus vite que la population mais au plus 2 fois plus vite ;
    • 5 si la population progresse, l’artificialisation progresse plus de 2 fois plus vite que la population et est supérieure à 4,9 m² ;
    • 6 si la population recule et l’indicateur d’étalement urbain est négatif.

Résultats attendus :

Résultat attendu : création de l’indicateur artificialisation pour les deux millésimes de majic (solution COGiter)

## Rows: 1,304
## Columns: 4
## $ TypeZone   <fct> Communes, Communes, Communes, Communes, Communes, Communes,…
## $ Zone       <fct> "Abbaretz", "Aigrefeuille-sur-Maine", "Ancenis-Saint-Géréon…
## $ CodeZone   <fct> 44001, 44002, 44003, 44005, 44006, 44007, 44009, 44010, 440…
## $ artif_2009 <dbl> 3064748, 2408844, 6859785, 6101987, 2379588, 3042688, 50259…
## Rows: 1,304
## Columns: 4
## $ TypeZone   <fct> Communes, Communes, Communes, Communes, Communes, Communes,…
## $ Zone       <fct> "Abbaretz", "Aigrefeuille-sur-Maine", "Ancenis-Saint-Géréon…
## $ CodeZone   <fct> 44001, 44002, 44003, 44005, 44006, 44007, 44009, 44010, 440…
## $ artif_2014 <dbl> 3160057, 2485622, 7103107, 6496868, 2419875, 3105298, 52452…

Résultat attendu : création de les indicateurs pop_2009 et pop_2014 pour les deux millésimes de majic (solution COGiter)

## Rows: 1,304
## Columns: 4
## $ TypeZone <fct> Communes, Communes, Communes, Communes, Communes, Communes, C…
## $ Zone     <fct> "Abbaretz", "Aigrefeuille-sur-Maine", "Ancenis-Saint-Géréon",…
## $ CodeZone <fct> 44001, 44002, 44003, 44005, 44006, 44007, 44009, 44010, 44012…
## $ pop_2009 <dbl> 1909, 3214, 10639, 5894, 1810, 2465, 8265, 3185, 2595, 2591, …
## Rows: 1,302
## Columns: 4
## $ TypeZone <fct> Communes, Communes, Communes, Communes, Communes, Communes, C…
## $ Zone     <fct> "Abbaretz", "Aigrefeuille-sur-Maine", "Ancenis-Saint-Géréon",…
## $ CodeZone <fct> 44001, 44002, 44003, 44005, 44006, 44007, 44009, 44010, 44012…
## $ pop_2014 <dbl> 2042, 3714, 10783, 6680, 1830, 2601, 8747, 3086, 2769, 2927, …

Résultat attendu : jointude implicite sur idcom et création de l’indicateur d'étalement urbain(solution COGiter) :

## Rows: 1,304
## Columns: 11
## $ TypeZone                    <fct> Communes, Communes, Communes, Communes, Co…
## $ Zone                        <fct> "Abbaretz", "Aigrefeuille-sur-Maine", "Anc…
## $ CodeZone                    <fct> 44001, 44002, 44003, 44005, 44006, 44007, …
## $ artif_2009                  <dbl> 3064748, 2408844, 6859785, 6101987, 237958…
## $ artif_2014                  <dbl> 3160057, 2485622, 7103107, 6496868, 241987…
## $ pop_2009                    <dbl> 1909, 3214, 10639, 5894, 1810, 2465, 8265,…
## $ pop_2014                    <dbl> 2042, 3714, 10783, 6680, 1830, 2601, 8747,…
## $ evoarti                     <dbl> 3.109847857, 3.187337993, 3.547079099, 6.4…
## $ evopop                      <dbl> 6.966998, 15.556938, 1.353511, 13.335596, …
## $ ies                         <dbl> 0.446368388, 0.204882086, 2.620651010, 0.4…
## $ indicateur_etalement_avance <chr> "2a", "2a", "3", "2a", "3", "2a", "2a", "6…

Résultat attendu pour etalement_urbain_commune:

## Rows: 1,232
## Columns: 11
## $ TypeZone                    <fct> Communes, Communes, Communes, Communes, Co…
## $ Zone                        <fct> "Abbaretz", "Aigrefeuille-sur-Maine", "Anc…
## $ CodeZone                    <fct> 44001, 44002, 44003, 44005, 44006, 44007, …
## $ artif_2009                  <dbl> 3064748, 2408844, 6859785, 6101987, 237958…
## $ artif_2014                  <dbl> 3160057, 2485622, 7103107, 6496868, 241987…
## $ pop_2009                    <dbl> 1909, 3214, 10639, 5894, 1810, 2465, 8265,…
## $ pop_2014                    <dbl> 2042, 3714, 10783, 6680, 1830, 2601, 8747,…
## $ evoarti                     <dbl> 3.109847857, 3.187337993, 3.547079099, 6.4…
## $ evopop                      <dbl> 6.966998, 15.556938, 1.353511, 13.335596, …
## $ ies                         <dbl> 0.446368388, 0.204882086, 2.620651010, 0.4…
## $ indicateur_etalement_avance <chr> "2a", "2a", "3", "2a", "3", "2a", "2a", "6…

Résultat attendu pour etalement_urbain_epci:

## Rows: 71
## Columns: 11
## $ TypeZone                    <fct> Epci, Epci, Epci, Epci, Epci, Epci, Epci, …
## $ Zone                        <fct> "CC du Pays de Pontchâteau St-Gildas-des-B…
## $ CodeZone                    <fct> 200000438, 200023778, 200033298, 200040475…
## $ artif_2009                  <dbl> 27594293, 44299964, 25161639, 24880690, 16…
## $ artif_2014                  <dbl> 28629232, 46277932, 26955382, 25836264, 18…
## $ pop_2009                    <dbl> 31965, 45278, 27906, 18370, 17608, 29131, …
## $ pop_2014                    <dbl> 35112, 48610, 28168, 19004, 17017, 29304, …
## $ evoarti                     <dbl> 3.750555, 4.464943, 7.128880, 3.840625, 7.…
## $ evopop                      <dbl> 9.8451431, 7.3589823, 0.9388662, 3.4512793…
## $ ies                         <dbl> 0.3809548, 0.6067337, 7.5930733, 1.1128120…
## $ indicateur_etalement_avance <chr> "2a", "2a", "5", "3", "6", "3", "5", "2a",…

Résultat attendu pour le graphique (vu au M5) :