Ich möchte an mehreren CSV-Dateien arbeiten, um einige Vergleiche anzustellen. Deshalb habe ich diesen Code geschrieben, um die verschiedenen CSV-Dateien zu lesen, die ich habe:

path <- "C:\\data\\"
files <- list.files(path=path, pattern="*.csv")
for(file in files)
{
  perpos <- which(strsplit(file, "")[[1]]==".")
  assign(
    gsub(" ","",substr(file, 1, perpos-1)), 
    read.csv(paste(path,file,sep="")))
}

Meine CSV-Dateien sehen ungefähr so aus:

Start Time,End Time,Total,Diffuse,Direct,Reflected
04/09/14 00:01:00,04/09/14 00:01:00,2.221220E-003,5.797364E-004,0.000000E+000,1.641484E-003,
04/09/14 00:02:00,04/09/14 00:02:00,2.221220E-003,5.797364E-004,0.000000E+000,1.641484E-003,
04/09/14 00:03:00,04/09/14 00:03:00,2.221220E-003,5.797364E-004,0.000000E+000,1.641484E-003,
(...)

Mit meinem Code trenne R alle Dateien korrekt, aber für jede von ihnen wird eine Tabelle erstellt, die am Anfang einen zusätzlichen Speicherplatz hinzufügt:

                 |Start Time       |End Time     |Total        |Diffuse      |Direct       |Reflected
04/09/14 00:01:00|04/09/14 00:01:00|2.221220E-003|5.797364E-004|0.000000E+000|1.641484E-003|NA
...

Wie kann ich es reparieren

Mehr, wenn man bedenkt, dass der ursprüngliche Name jeder Datei sehr lang ist, ist es möglich, jeden data.frame mit den letzten Buchstaben der Datei zu benennen? Oder nur eine Kardinalzahl?