Discussion :

[Piwai_Pimp]

Bonjour,

Après moultes recherches, je me retourne vers vous. Je souhaite créer des tables en important des csv qui se terminent par une année dans le nom. Je souhaite que les tables créées contiennent l'année du fichier.

Cela me donne quelque chose comme ça :

Code :

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

1
2
3
4
5
for (i in 2000:2019) {
 
  table_i <- read.csv(file=paste0("./table_import",i,".csv"))
 
}

l'instruction read fonctionne bien, mais je n'arrive pas à créer mes tables avec mon nom de variable i.

Avez-vous une solution à me proposer ?

Merci d'avance

[mgdondon]

Bonjour,

Vous pouvez utiliser la fonction assign() :

Code :

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

1
2
3
4
> i <- 1
> assign(paste0("var",i),10)
> var1
[1] 10

Cordialement,

[Piwai_Pimp]

Bonjour,

merci de la réponse, je vais essayer. Cependant, vous n'utilisez pas la variable i dans votre exemple. Mais je vais creuser quand je pourrais, je ne suis pas au travail donc je ne peux pas encore tester.

Je vous tiens informer.

Bonne journée

[Piwai_Pimp]

Merci j'ai réussi. Dans mon cas, cela me donne :

Code :

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

1
2
3
4
for (i in 2000:2019) {
 
  assign( paste0("table_" ,i), read.csv(file=paste0("./table_import",i,".csv")))
}

Assez tordu comme solution mais fonctionnelle.

Pour ma culture, lorsque j'utilise une variable dans un nom de variable ou de table, je dois toujours utiliser paste ? Je ne peux pas faire appel à ma variable en précédant de % ou autre caractère ?

Merci

[mgdondon]

Bonjour,

Cette discussion m'a fait penser qu'il est possible de boucler sur la liste des fichiers plutôt que sur les années :

Code :

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

1
2
3
4
5
6
7
8
9
10
liste_fichiers <- list.files("D:/temp", pattern="table_import[[:digit:]]{4}.csv$", full.names=TRUE)
n=length(liste_fichiers)
for (i in 1:n) 
  {
  nomdf <- basename(unlist(liste_fichiers[i]))
  nomdf <- stringr::str_replace(nomdf,"import","")
  nomdf <- stringr::str_replace(nomdf,".csv$","")
  df <- read.csv(liste_fichiers[i])
  assign(nomdf, df)
  }

Cordialement