Discussion :

[nolll]

Bonjour,

Je souhaiterai créer N variables nommées var1, var2, ..., varN sous R de façon automatique.
Pour cela je dispose d'une table "nomTable" qui me donne la longueur de ces variables et je souhaiterai faire quelque chose du genre :

Code :

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

1
2
3
4
for (I in 1:N){
varI <- rep(0, nrow(nomTable)) # pour initialiser mes variables
....
}

Mon problème est que je ne vois pas comment dire à R de concaténer var et I. La seule méthode que j'ai trouvé est la fonction

Code :

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

paste("var", I, sep="")

mais R considère alors varI comme un string et non comme un nom de variable.

[nolll]

J'ai trouvé une partie de la solution à mon problème. Pour initialiser ma variable la fonction assign() marche parfaitement :

Code :

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

assign(paste("var",I,sep=""), rep("0", nrow(nomTable)))

Mais après j'ai quelques problèmes pour remplir les valeurs de ces variables var1,..., varN par des valeurs venant d'une autre variable varBis1, .., varBisN.
Par exemple les variables varBis1, .., varBisN sont déjà remplies et je souhaiterais que les variables var1,..., varN reçoivent le factor de ses variables, en faisant quelque chose comme :

Code :

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

1
2
3
4
5
for (I in 1:N){
assign(paste("var",I,sep=""), rep("0", nrow(nomTable)))# pour initialiser mes variables
 
assign(paste("var",I,sep=""),factor(paste("varBis",I,sep="")))
}

mais cela me donne une variable varI de longueur 1 qui contient seulement la valeur "varBisI". Le problème vient du fait que R prend le string "varBisI" et non la variable mais je ne vois pas comment lui dire de considérer la variable varBisI.

[mamounMob]

il faut utiliser les fonctions eval et parse pour évaluer des chaînes de caractères

Code :

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

1
2
3
4
5
6
7
8
 
nomTable <- data.frame(x=rnorm(10))
for(I in 1:10) {
    eval(parse(text=paste0("var",I,"=rep(0, nrow(nomTable))")))
 }
ls()
#  [1] "I"        "nomTable" "var1"     "var10"    "var2"     "var3"     "var4"     "var5"    
#  [9] "var6"     "var7"     "var8"     "var9"

[nolll]

Merci, ça marche parfaitement !