Maximales Datum in Spalte R mit sapply

Question

Ich versuche, Sapply zu verwenden, um das maximale Datum in einer Spalte zu erhalten, aber es gibt eine Zahl anstelle eines Datums zurück. Irgendeine Idee, wie man das löst? Ich kann nicht scheinen, um herauszufinden, warum dies auftritt ..

mtcars$datecolm = '2015-03-03' 
mtcars$datecolm[1] = '2015-09-09' 
    mtcars$datecolm = as.Date(mtcars$datecolm) 

    sapply(mtcars, max) # why is it returning a number instead of a date?? 
    max(mtcars$datecolm) # works correctly 

Bitte benutzen Sie sapply angesichts der Art, wie ich dies eingerichtet haben ... Ich weiß, das funktioniert mit Anwendung (mtcars, 2, max).

Answer 1

Wir brauchen lapply verwenden statt sapply

lapply(mtcars, max) 

als sapply kehrt ein vector wegen der simplify=TRUE Standardargument und vector nur eine einzige Klasse halten kann. Da es numerische Spalten gibt, wird die Spalte "Datum" (die als Integer gespeichert ist) auf den Wert integer gezwungen. Wir können jedoch immer noch verwenden, wenn wir simplify = FALSE verwenden, um eine list zurückzugeben.

sapply(mtcars, max, simplify = FALSE) 

In Bezug auf die Verwendung von apply

apply(mtcars,2,max) 

würde ich nicht, da dies nur eine einzige Klasse halten kann Matrix und Matrix konvertiert mit apply empfehlen. Hier wird alles character ausgegeben, da die Klasse 'Date' in character konvertiert wurde.

---

In Bezug auf das Problem von OP in den Kommentaren erwähnt, als wir ausgegeben haben, die andere Klasse gehören, entweder wir list oder data.frame nutzen könnten (wie data.frame ein list ist) als c dh verketten eine vector zurückkehrt und als oben erwähnt, kann es nur eine einzige Klasse halten.

do.call(rbind, lapply(mtcars, function(x) 
      data.frame(Class=class(x), Max=max(x, na.rm=TRUE))))