Deutsches R-Forum

Verfasst: **Mi Mär 20, 2019 1:46 pm**

Hallo Jörg,

ja du hast recht, bei einigen stimmt das Ergebnis nicht (allerdings nur ein Bruchteil). Ich hab allerdings noch nicht genau die Systematik dahinter gecheckt. Ich dachte zuerst es liegt an der Anzahl der Leerzeichen im txt file, aber das ist wohl doch nicht so. Ich kann (oder besser "will") auch nicht 800 files durchchecken. Wenn ich drauf komm geb ich bescheid.

Danke!

LG

Verfasst: **Mi Mär 20, 2019 2:01 pm**

Hallo Julia,

so musst Du Dir nur eine Datei ansehen:

Code: Alles auswählen

#setwd("~/Desktop/R.Zeug/Julia_E/mom")
dir() # schauen, ob die Dateien wirklich hier sind
Dateien <- dir(pattern="\\.mom$")

Lesen <- function(Datei) {
  message(paste0("&&& lese jetzt Datei: ", Datei))
  Dat <- read.table(Datei, sep="%")  ##### ein Separator, der hoffentlich nirgends vorkommt
  Dat$dateiname <- Datei
  Dat
}

L <- lapply(Dateien, Lesen)
alleDat <- do.call(rbind, L)
sink(file="alleDateien.txt")
print(alleDat)
sink()

Gruß, Jörg

Deutsches R-Forum

Mehrere text files transponieren und in eine Tabelle zusammenfügen

Re: Mehrere text files transponieren und in eine Tabelle zusammenfügen

Re: Mehrere text files transponieren und in eine Tabelle zusammenfügen