Utilisation de la fonction get()

Bonjour à tous,

Je rencontre actuellement quelques problèmes avec la fonction get().

Je crée une liste de data.frame de mon evironnement avec la fonction ls :

Code:

---

liste.EC <- ls(pattern = 'EC')

---

Ensuite je veux effectuer une boucle sur l'ensemble des data.frame donc je fais :

Code:

---

1 2 3 4 5

for (j in 1:length(liste.EC)) { aux <- get(liste.EC[i]) aux <- aux[aux$Date < as.Date("2014-05-21"),] assign(j, aux) }

---

Or j'ai le message d'erreur suivant :
Error in aux$Date : $ operator is invalid for atomic vectors

Et quand je regarde ce que contient aux après la premier itération, il contient l'objet liste.EC et non pas le data.frame qu'il devrait avoir.

Plus étrange encore, lorsque je fais le code à l'extérieur d'une boucle for, je remplace les i par 1, ça marche...

J'ai aussi effectué une boucle for pour des plots qui marche :

Code:

---

1 2 3 4 5

liste.EC <- ls(pattern = 'EC')   for (i in 1:length(liste.EC)) { plot(get(liste.EC[i]), main = liste.EC[i], type = 'h') }

---

Merci de votre aide ! :D

Quant tu fais :

Code:

---

liste.EC <- ls(pattern = 'EC')

---

Si une variable liste.EC est déjà en mémoire, alors ls(pattern='EC') contiendra liste.EC (entre autres), puisque "liste.EC" contient "EC".
Du coup dans ta boucle tu te retrouves à faire liste.EC$Date d'où ton erreur.

je crois que tu as remplacé l'indice j par i dans ta boucle. De plus tu devrais utiliser un indice autre que j dans le 'assign', cela rendrait ton code plus lisible.
Enfin, pourquoi demander de l'aide sans fournir de code reproductible ? c'est si dur que ça ?

Merci theta, en effet liste.EC contenait liste.EC... D'où mon problème !

Désolé pour le code qui était très mauvais étant donné que j'avais fait plusieurs modifications pour essayer d'autres solutions...

Pour répondre à mamounMob il me semblait que c'était juste un erreur de syntaxe toute bête dans mon code, il ne me semblait donc pas utile d'extraire une partie de mes données...

Le code (corrigé) quand même :

Code:

---

1 2 3 4 5 6 7

rm(liste.EC) # au cas où liste.EC <- ls(pattern = 'EC') for (j in 1:length(liste.EC)) { aux <- get(liste.EC[j]) aux <- aux[aux$Date < as.Date("2014-05-21"),] assign(liste.EC[j], aux) }

---