Déploiement de la fibre optique dans l’agglomération de Rouen

Retrouvez des liens vers l’état d’avancement du déploiement de la fibre, logement par logement dans les communes de l’agglomération de Rouen.

Comment avons-nous réussi à collecter toutes ses données ?

Grâce au logiciel R et la page open data sur la fibre optique, nous avons pu récolter l’avancement du déploiement de fibre optique.

Nous avons traiter les données via le code suivant :

library(readr)
library(tidyverse)
library(dplyr)
dataset <- read_csv("mv_immeubles_2018_T3.csv")
mydata <- dataset %>% filter(substring(code_poste,1,2) == 76)
firstup <- function(x) {
  substr(x, 1, 1) <- toupper(substr(x, 1, 1))
  x
}
communes <- c("Amfreville-la-Mi-Voie",
              "Belbeuf",
              "Bihorel",
              "Bois-Guillaume",
              "Bonsecours",
              "Boos",
              "Canteleu",
              "Darnétal",
              "Déville-lès-Rouen",
              "Grand-Couronne",
              "Franqueville-Saint-Pierre",
              "Houppeville",
              "Isneauville",
              "La Bouille",
              "Le Grand-Quevilly",
              "Le Houlme",
              "Le Mesnil-Esnard",
              "Le Petit-Quevilly",
              "Malaunay",
              "Maromme",
              "Moulineaux",
              "Mont-Saint-Aignan",
              "Notre-Dame-de-Bondeville",
              "Oissel",
              "Petit-Couronne",
              "Rouen",
              "Saint-Étienne-du-Rouvray",
              "Saint-Jacques-sur-Darnétal",
              "Saint-Léger-du-Bourg-Denis",
              "Saint-Martin-du-Vivier",
              "Saint-Pierre-de-Manneville",
              "Sotteville-lès-Rouen",
              "Ymare",
              "Gouy",
              "Fontaine-sous-Préaux",
              "Hautot-sur-Seine",
              "La Bouille",
              "La Neuville-Chant-d'Oisel",
              "Les Authieux-sur-le-Port-Saint-Ouen",
              "Montmain",
              "Quévreville-la-Poterie",
              "Sahurs",
              "Roncherolles-sur-le-Vivier",
              "Saint-Aubin-Celloville",
              "Saint-Aubin-Épinay",
              "Saint-Pierre-de-Manneville",
              "Val-de-la-Haie"
              )
for (ville in communes) {
  city <- mydata %>% filter(nom_com == ville)
  city <- city %>% arrange(nom_voie, num_voie)
  final_data <- apply(city, 1, function(a) paste(
    "<strong>",
    if(!is.na(a["num_voie"])){paste(firstup(a["num_voie"]))},
    if(!is.na(a["type_voie"])){paste(firstup(a["type_voie"]))},
    if(!is.na(a["nom_voie"])){paste(firstup(a["nom_voie"]))},
    "</strong>",
    if(!is.na(a["batiment"])){paste("Bâtiment",firstup(a["batiment"]))},"à",a["nom_com"],"(",a["code_poste"],")",
    ":",
    "Fibre optique",
    if(is.na(a["pm_etat"])){paste("- aucune donnée pour le moment -")}    
    else if(a["pm_etat"] == "planifie"){paste("planifiée")} 
    else if (a["pm_etat"] == "deploye"){paste("deployée")} 
    else {paste(a["pm_etat"])}
  ))
  final_data = paste(final_data, collapse = "</li><li>")
  final_data2 = paste("<li><ul>",final_data, "</li></ul>")
  filename = paste(ville,".txt", collapse = "")
  write.table(final_data2, file = filename)
}
Téléphone : 07 67 49 84 57