ich möchte 6 .txt Dateien zusammen auslesen und in einen dataframe packen und dabei alle distinkten Spalten entfernen. Zwei der .txt Dateien haben nämlich 42 und andere nur 41 Spalten. 41 Spalten sind also bei allen sechs .txt Datein gleich. Ich möchte die eine "überflüssige" Spalte aus den beiden jeweiligen .txts entfernen. Vorher möchte ich die .txts mit einem Loop einlesen. Da fängts schon an. Ich versuche das bis jetzt wie folgt:
Code: Alles auswählen
mypath <- "P:/SWB/SWB_Alle/Data_Sölle/Wetter - Weather/Davis_Wetterstationen/Daten_Roh/WSDed"
setwd(mypath)
filenames <- list.files(mypath, pattern = "*.txt", full.names = T)
WSDede <- lapply (filenames, read.delim (header = T, na.strings = "---"))
> WSDede <- lapply (filenames, read.delim (filenames, header=T, na.strings = "---"))
Error in file(file, "rt") : invalid 'description' argument
Wenn ich filenames weglasse, dann sagt er mir
Error in read.table(file = file, header = header, sep = sep, quote = quote, :
argument "file" is missing, with no default
Wenn ich nur
Code: Alles auswählen
WSDede <- lapply (filenames, read.delim)
Und wie bekomme ich die dann jeweils die eine "überflüssige" Spalte weg. Habe es schon mit !distinct() und col_skip() und allem möglichen probiert und nichts geht.. Danke für eure Hilfe!
Lieben Gruß,
Max