combiner lapply() avec read.table()

Bonjour,

J'ai un répertoire contenant de nombreux .txt que je souhaite ouvrir avec la fonction read.table().
Le truc c'est que je veux leur assigner un nom "générique" de ce type :

Code:

---

1 2	fichier_1<-read.table("truc.txt") fichier_2<-read.table("bidule.txt")

---

Ayant des centaines de fichier .txt du même type, je ne peux pas faire cette opération "à la main", et répéter 100 fois le read.table.

J'ai donc pensé à lister le nom de mes fichiers .txt contenus dans mon répertoire comme ceci :

Code:

---

listefichiers<-list.files(pattern=".txt")

---

Et j'aimerais y appliquer une fonction lapply(), combinée à un read.table() pour assigner les noms de variables fichier_1, fichier_2...etc

Mais je ne sais pas comment faire !!

Merci pour votre aide

Je vais peut-être répondre à côté, mais si chaque fichier correspond à une variable que tu veux agréger avec les autres tout en les renommant tu peux faire ça (en supposant que tu as exactement 100 fichiers:

Code:

---

1 2 3 4

listefichiers<-list.files(pattern=".txt") listelue <- lapply(listefichiers,read.table) d <- data.frame(listelue) names(d) <- c(1:100)

---

tu te retrouveras avec un data frame avec chacun de tes fichiers représentant une variable et en nom de variable un numéro entre 1 et 100 attribué selon l'ordre alphabétique des fichiers. Reste à savoir comment faire pour ajouter les caractères "fichier_" et ça j'y arrive pas, mais ça doit pouvoir se faire.

tu peux aussi regarder du côté de la fonction "rename", je n'ai pas exactement compris comment ça fonctionne mais ça peut peut-être aider. en tous les cas, je pense que tu dois d'abord exécuter le lapply, puis renommer les éléments de la nouvelle liste (celle que j'ai appelée listelue)

Bon courage!