Discussion :

[Lils_bis]

Bonjour à tous,

Je viens vers vous car j'ai un problème que je n'arrive pas à résoudre.
J'ai environ 2000 fichiers csv que je souhaiterais importer dans une même et unique table sur R.
Ceux-ci se présentent de la manière suivante : VILLE_JJ_MM_AAAA.csv

Tous ces fichiers se trouvent dans un dossier : D:/Rep/..../dossier

Est-il possible d'importer tous les fichiers d'un même dossier en sachant que j'ai 4 villes différentes.
Idéalement, chaque ville aurait une table sur R.

Je ne sais pas si ce que je demande est réalisable, mais dans le doute je viens vers vous

MERCI A VOUS POUR VOTRE TEMPS !

[mgdondon]

Bonjour,

Voici une proposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
setwd("D:/Rep/..../dossier")
liste_fichiers <- list.files(".", pattern="csv")
n=length(liste_fichiers)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
df_paris <- data.frame()
df_lyon <- data.frame()
df_avignon <- data.frame()
df_marseille <- data.frame()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
library(stringr)
library(dplyr)
for (i in 1:n) 
  {
  ville <- unlist(str_split(liste_fichiers[i],"_"))[1]
  df <- read.csv(liste_fichiers[i])
  assign(str_c("df_",ville), bind_rows(get(str_c("df_",ville)),df))
  }

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
df_paris
df_lyon
df_avignon
df_marseille

Cordialement,

[faubry]

Un petite modification par rapport à la proposition de mgdondon, éviter le setwd assez casse-gueule (on change le répertoire de travail !), utiliser directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

liste_fichiers <- list.files("D:/Rep/..../dossier", pattern="csv$", full.names=TRUE)

[mgdondon]

Bonjour,

Tout est dans l'option full.names=TRUE, merci.

Par contre ça complique l'extraction de la ville.

Cordialement,

[faubry]

Par contre ça complique l'extraction de la ville.

Pas tant que cela, il suffit d'utiliser la fonction basename, ce qui donnera dans le script suggéré par mgdondon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ville <- unlist( basename( str_split(liste_fichiers[i],"_")))[1]

[mgdondon]

Merci pour la fonction basename() (il faut inverser les fonctions unlist() et basename()).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ville <- basename(unlist(str_split(liste_fichiers[i],"_")))[1]

Cordialement,