J'ai cinq fichiers texte qui sont produits par un programme R
, (chacun d'entre eux ayant un en-tête) qui doivent être combinés en un seul fichier. Je les ai combiné à l'aide rbind
et mon problème est quand je les combine, la sortie résultante a en-tête attaché à la fin de chaque fichier par exemple, si les en-têtes sont censésCombiner les fichiers multiples avec un en-tête
Combine Resultant file
A B C D
1 3 5 7 ------------> Text file1
6 9 0 3
A B C D
1 3 6 7 ------------> Text file 2
5 7 8 3
and so on....
au lieu de ce que je veux que le fichier de sortie d'avoir une seule tête à la ligne 1 de sorte que le fichier devrait ressembler à:
Combine Resultant file
A B C D
1 3 5 7 ------------> Text file1
6 9 0 3
1 3 6 7 ------------> Text file 2
5 7 8 3
and so on....
quelqu'un peut-il me dire comment faire? Le code que j'ai est:
S1 <- read.table("C:/Simulation_Results/sim_1_200.txt",sep=";",header= TRUE);
S2 <- read.table("C:/Simulation_Results/sim_201_400.txt", sep=";",header= TRUE);
S3 <- read.table("C:/Simulation_Results/sim_401_600_b.txt", sep=";",header= TRUE);
S4 <- read.table("C:/Simulation_Results/sim_601_800.txt", sep=";",header= TRUE);
S5 <- read.table("C:/Simulation_Results/sim_901_1000.txt",sep=";",header= TRUE);
S6 <- read.table("C:/Simulation_Results/simulations_801_900.txt",sep=";",header= TRUE);
options(max.print=28.5E6);
S7 <- rbind(S1,S2,S3,S4,S5,S6)
write.table(S7, file="C:/Simulation_Results/simulation_1_1000.txt", sep=";",
row.names=TRUE, col.names=FALSE, quote = FALSE);
Merci!
Cela me semble correct. Peut-être que l'erreur est dans les fichiers txt générés par votre autre programme. Pourrions-nous voir la tête (S1) et la queue (S1), s'il vous plaît? En outre, il est utile de formater le code dans votre question (mettez en surbrillance les sections de code et appuyez sur le bouton de code - celui avec 1010 dessus). –
Peut-on voir voir la tête et la queue de S1? Est une partie du problème des virgules et des décimales? Comme Dwin l'a fait remarquer, votre code R qui écrit les fichiers txt est probablement erroné dans les en-têtes. –
Avez-vous le code qui génère les fichiers? Si c'est le cas, je voudrais simplement sauvegarder les tables dans les variables individuelles x1 <- as.data.frame (table1) par exemple. Et puis rbind() –