Daten aus Textdatei lesen und es mit Datum in r

Question

Kombination I heruntergeladenen Daten aus dem Internet. Ich wollte die Daten extrahieren und einen Datenrahmen erstellen. Sie finden die Daten im folgenden Link für den gefilterten Datensatz: http://www.esrl.noaa.gov/gmd/dv/data/index.php?category=Ozone&type=Balloon. Am unteren Ende der Seite können Sie aus den 9 gefilterten Datensätzen einen beliebigen Sender auswählen. Sag Suva, Fidschi (SUV):

Ich habe den folgenden Code geschrieben, um einen Datenrahmen zu erstellen, der Launch-Datum als Teil des Datenrahmens für jede Datei hat.

setwd("C:/Users/") 
    path = "~C:/Users/" 
    files <- lapply(list.files(pattern = '\\.l100'), readLines) 
    test.sample<-do.call(rbind, lapply(files, function(lines){ 
     data.frame(datetime = as.POSIXct(sub('^.*Launch Date : ', '', lines[grep('Launch Date :', lines)])), 
       # and the data, read in as text 
       read.table(text = lines[(grep('Sonde Total', lines) + 1):length(lines)])) 
    })) 

Die Dateien stammen vom FTP-Server. Das Muster der Datei kommt mir nicht bekannt vor, obwohl ich es mit .txt versucht habe, es hat nicht funktioniert. Können Sie den obigen Code oder einen anderen Code optimieren, um einen Datenrahmen zu erhalten?

Vielen Dank im Voraus.

Answer 1

Ich denke, das Problem ist, dass die Suchzeichenfolge nicht übereinstimmt "Startdatum:" stimmt nicht überein, was in den Dateien ist (zumindest die eine, die ich überprüft habe).

Dies sollte

lines <- "Launch Date : 11 June 1991" 
lubridate::dmy(sub('^.*Launch Date.*: ', '', lines[grep('Launch Date', lines)])) 

-Code arbeiten wahrscheinlich einfacher wäre zu debuggen, wenn Sie das Problem in Schritten brach und nicht als ein Satz

Answer 2

ich folgende Vorgehensweise nahm:

td <- tempdir() 
setwd(td) 

ftp <- 'ftp://ftp.cmdl.noaa.gov/ozwv/Ozonesonde/Suva,%20Fiji/100%20Meter%20Average%20Files/' 
files <- RCurl::getURL(ftp, dirlistonly = T) 
files <- strsplit(files, "\n") 
files <- unlist(files) 

dat <- list() 
for (i in 1:length(files)) { 
    download.file(paste0(ftp, files[i]), 'data.txt') 
    df <- read.delim('data.txt', sep = "", skip = 17) 
    ld <- as.character(read.delim('data.txt')[9, ]) 
    ld <- strsplit(ld, ":")[[1]][2] 
    df$launch.date <- stringr::str_trim(ld) 
    dat[[i]] <- df ; rm(df) 
}