Discussion :

[lilly74]

Bonjour,
j'ai 1000 fichiers .txt comportant les mêmes noms de colonnes (chacune de longueur 1000).
J'aimerais les fusionner avec un apply, mais mon code:

Code :

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

1
2
3
4
5
6
7
f <- dget("C:\\fichier1.txt")
mydata <- lapply(2:1000, function(i){
                                   g <- dget(paste("C:\\fichier", i, ".txt", sep = ""))
                                   f <- rbind(f, g)
                                   list(f)
                                   }
                         )

ne me donne pas ce à quoi je m'attendais
J'obtiens mydata de type liste, mais chaque mydata[n] ne contient que 2000 éléments alors que je voudrais que mydata[3] en contienne 3000 etc... pour récupérer l'intégralité des fichiers dans mydata[999]
Une indication svp?
Merci d'avance

[A. D.]

Bonjour,

Voici une petite idée que j'ai eu (après on peut jouer avec les paramètres selon si on veut avoir le nom des colonnes etc...) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
copier<-function(i)
{
	mon_doc<-paste("fichier",i,".txt",sep="")
	f<-read.table(mon_doc,header=TRUE)
	write.table(f,"ma_sortie.txt",append=TRUE,col.names=FALSE)
}
 
for(k in 1:1000)
{
	copier(k)
}

Le fichier "ma_sortie.txt" contient le contenu de tous les autres fichiers les uns à la suite des autres.

Cordialement,

A.D.