Subconjunto de un marco de datos con las filas top-n para cada grupo, y ordenado por una variable

Question

Me gustaría subconjuntar un marco de datos para n filas, que se agrupan por una variable y se ordenan descendiendo por otra variable. Esto estaría claro con un ejemplo:

d1 <- data.frame(Gender = c("M", "M", "F", "F", "M", "M", "F", 
    "F"), Age = c(15, 38, 17, 35, 26, 24, 20, 26)) 

me gustaría obtener 2 filas, que se ordenan descendiendo la edad, para cada género. La salida deseada es:

Gender Age 
F 35 
F 26 
M 38 
M 26 

busqué orden, clase y otras soluciones aquí, pero no pudo encontrar una solución adecuada a este problema. Aprecio tu ayuda.

Answer 1

Una solución utilizando ddply() de plyr

require(plyr) 
ddply(d1, "Gender", function(x) head(x[order(x$Age, decreasing = TRUE) , ], 2)) 

Answer 2

Estoy seguro de que hay una respuesta mejor, pero aquí es una manera:

require(plyr) 
ddply(d1, c("Gender", "-Age"))[c(1:2, 5:6),-1] 

Si usted tiene una trama de datos más grande que la proporcionó aquí y no desea inspeccionar visualmente qué filas seleccionar, solo use esto:

new.d1=ddply(d1, c("Gender", "-Age"))[,-1] 
pos=match('M',new.d1$Gender) # pos wil show index of first entry of M 
new.d1[c(1:2,pos:(pos+1)),] 

Answer 3

con el paquete data.table

require(data.table) 
dt1<-data.table(d1)# to speedup you can add setkey(dt1,Gender) 
dt1[,.SD[order(Age,decreasing=TRUE)[1:2]],by=Gender] 

Answer 4

es aún más fácil de lo que si lo que desea es realizar la ordenación:

d1 <- transform(d1[order(d1$Age, decreasing=TRUE), ], Gender=as.factor(Gender)) 

a continuación, puede llamar a:

require(plyr) 
d1 <- ddply(d1, .(Gender), head, n=2) 

a subconjunto de los dos primeros de cada subgrupo de Género.

Answer 5

Tengo una sugerencia si es necesario, por ejemplo, las 2 primeras hembras y los machos 3 primeros:

library(plyr) 
m<-d1[order(d1$Age, decreasing = TRUE) , ] 
h<-mapply(function(x,y) head(x,y), split(m$Age,m$Gender),y=c(2,3)) 
ldply (h, data.frame) 

Usted sólo tiene que cambiar los nombres de la trama de datos final.