Discussion :

[fafabzh6]

Bonjour,
Je voudrais manipuler des chaines de caractères de la façon suivante :

Code :

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

1
2
3
for (i in 1:14){
	paste("var1", i, sep="")=read.table("D:/paste("var1", i, sep="").csv", header=TRUE, sep=";", dec=",")
}

En gros je voudrais avoir dans ma variable : var1 les données issues du fichier var1, données stockées sur le dossier D:/.
Merci pour votre aide.
Fafabzh

[pitipoisson]

Bonjour,

Il y a sans doute plus simple, mais la seule bidouille que j'ai trouvé à ce jour pour faire ce genre de chose donne:

Code :

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

1
2
3
4
5
6
for(i in 1:14)
 {
    filei <- paste("D:/var1", i, ".cvs", sep="")
    cmd <- paste("var1", i, " <- read.table(file=filei, header=TRUE, sep=\";\", dec=\",\"", sep="")
    eval(parse(text=cmd))
 }

Tu peux bien sûr regrouper les lignes "filei <-" et "cmd <-" en une seule... Je les ai séparées pour une question de lisibilité. Pour voir ce que ça donne, tu peux remplacer l'évaluation par print(cmd).

Ne pourrais-tu pas également envisager de placer toutes tes variables dans une liste

Code :

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

1
2
var1[[i]] <- read.table(file=paste("D:/var1", i, ".cvs", sep=""), 
                        header=TRUE, sep=";",...)

Je sais que les listes sont un peu ch***tes à manipuler, mais dans un tel cas, ça peut servir.

[fafabzh6]

Merci bien pour ta réponse, c'est exactement ce que je voulais.

[fafabzh6]

Bonjour,
J'ai essayé de suivre ton conseil concernant l'utilisation des listes mais je pense que me heurte à un problème de caractères spéciaux le "[" ne doit pas être reconnu.
Voici mon code:

Code :

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

1
2
3
4
5
for(i in 1:14){
	filei <- paste("D:/var", i, ".csv", sep="")
    	cmd <- paste("var[[",i,"]]<- read.table(file=filei, header=TRUE, sep=\";\", dec=\",\")",sep="")
    	eval(parse(text=cmd))
}

Fafabzh

[pitipoisson]

Houlà, tu te compliques la vie.

La solution alternative ne nécessite pas de passer par une chaine de caractère que tu évalue par la suite. Ça t'évite justement le côté contre-intuitif de la première solution.

Après, tu as peut-être également eu un problème parce que var n'était pas considéré comme une liste existante (pour les listes, une déclaration préalable semble nécessaire).

Code :

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

1
2
3
4
5
6
7
var <- list()
 
for (i in 1:14)
  {
    var[[i]] <- read.table(file=paste("D:/var", i, ".cvs", sep=""), 
                           header=TRUE, sep=";", dec=",")
  }

[fafabzh6]

C'est en effet beaucoup plus simple.

A+

[pitipoisson]

Il y a sans doute plus simple, mais la seule bidouille que j'ai trouvé à ce jour pour faire ce genre de chose donne:

Code :

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

1
2
3
4
5
6
for(i in 1:14)
 {
    filei <- paste("D:/var1", i, ".cvs", sep="")
    cmd <- paste("var1", i, " <- read.table(file=filei, header=TRUE, sep=\";\", dec=\",\"", sep="")
    eval(parse(text=cmd))
 }

Il y avait effectivement plus simple:

Code :

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

?assign