Programmer en R/Importer un fichier texte à largeur fixe

Programmer en R

• Introduction
  • Faire ses premiers pas
  • Installer R
  • Choisir son environnement de travail
  • Installer des librairies
  • Se documenter
• Manipulation et mise en forme des données
  • Manipuler les nombres
  • Manipuler les vecteurs
  • Manipuler les chaînes de caractères
  • Manipuler les facteurs
  • Manipuler les dates et les heures
  • Manipuler un tableau de données
  • Manipuler une liste
• Importation et exportation des données
  • Importer un fichier CSV
  • Résoudre les problèmes d'encodage des caractères
  • Importer un fichier TSV
  • Importer un fichier texte à largeur fixe
  • Importer des données depuis un tableur
  • Import un fichier JSON
  • Extraire des données d'une page web
• Visualisation de données
  • Comprendre la grammaire des graphiques
  • Représenter une carte
  • Visualiser une carte choroplèthe
• Modélisation statistique
  • Estimer un modèle de régression linéaire
  • Estimer un modèle de régression circulaire
• Communication
• Programmation avancée
  • Programmer une boucle
  • Programmer une fonction
• Outils mathématiques
  • Optimiser une fonction
  • Manipuler les matrices
  • Les fonctions statistiques de base
  • Les loi de probabilités, ajustement et test

Exemple

On prend pour exemple le fichier FANTOIR sur data.gouv.fr.

$ wget https://www.data.gouv.fr/fr/datasets/r/008e7b8f-f52c-4dc6-89ca-3bed2b103746
$ mv 008e7b8f-f52c-4dc6-89ca-3bed2b103746 fantoir.zip
$ unzip fantoir.zip

Lire le fichier

On peut le lire facilement avec R et la librairie `readr` : http://readr.tidyverse.org/reference/read_fwf.html

• La fonction `fwf_empty()` détecte automatiquement la largeur des colonnes
• La fonction `read_fwf()` permet de lire le fichier.
• L'option n_max permet de ne lire que les 1000 premières lignes. C'est utile pour faire des tests.

library(readr)
table_fantoir <- read_fwf(file="FANTOIR1017", fwf_empty("FANTOIR1017"), n_max = 100)

Pour avoir un aperçu des données, on peut utiliser la fonction `glimpse()` de `dplyr`

library(dplyr)
table_fantoir %>% glimpse()