Rückkehr einen Daten-frame

Ich bin mit dem folgenden code zu extrahieren, die Anzahl der abgeschlossenen Fälle von Dateien:

complete <- function(directory, id=1:332) {
    sapply(id, fn, directory)}


fn <- function(id, directory) {
    zero <- sprintf("%03d", id)
    name <- paste(directory,"/",zero,".csv",sep="")
    frame <- read.csv(name)
    ok <- complete.cases(frame)
    return(c("nobs"=sum(ok),"id"=id)) }

Dann, z.B.: 

complete("specdata",1:12)

Dieser code gibt:

     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
nobs  117 1041  243  474  402  228  442  192  275   148   443    96
id      1    2    3    4    5    6    7    8    9    10    11    12

Allerdings würde ich gerne wieder einen Daten-frame von der Art:

Rückkehr einen Daten-frame

Ich bin nicht sicher, was ich falsch mache. Danke!

  • Wenn Sie browser() innerhalb Ihrer Funktion aufrufen, werden Sie in der Lage zu erkunden das Innenleben von (Ihrer) Funktion in Echtzeit. Siehe debugging-Themen hier SO.
  • Dies ist eine eklatante Verletzung der Coursera-Politik
InformationsquelleAutor Julia | 2013-01-17
  1. 4

    sapply ist wieder ein matrix hier. Sie können die Form und Art, die Sie wollen mit:

    as.data.frame(t(complete("specdata",1:12)))

    Oder diese in der complete - Funktion, um den Anruf zu sapply. t transponiert die matrix Zeilen in Spalten und as.data.frame zwingt es in eine solche.

    InformationsquelleAutor Matthew Plourde
  2. 0

    Dein code ist OK. Um Ihre gewünschte Ergebnis zu verwenden 

    t(sapply(id, fun, directory))

    statt sapply(id, fun, directory).

    Ihr code sollte wie folgt Aussehen;

    complete <- function(directory, id=1:332) {
    t(sapply(id, fn, directory))}
    InformationsquelleAutor chris1emmy
  3. 0
    complete <- function(directory, id = 1:332) {

 as.data.frame(t(sapply(id, fn, directory)))




}

fn <- function(id, directory){
if(is.numeric(id)){                                                         
id=id
}else{
id = as.numeric(id)
}
fileName  <- paste(paste(directory,'/',sep=''),paste(id,'.csv',sep=''),sep='')
data  <- read.csv(fileName )
tows <- (complete.cases(data))
rowsNum <- nrow(data[tows,])
return(c("id"=as.numeric(id),"nobs"=rowsNum))

}
    InformationsquelleAutor Medhat
Schreibe einen Kommentar