Выбор строки с в R

Question

Я следующий набор данных,

Type Model.rmsep Model.r2pred variable  value 
1 train  Linear  Linear RMSEP 0.1067979 
2 test PLS.Comp7 PLS.Comp7 RMSEP 0.1008264 
3 cv PCR.Comp17 PCR.Comp16 RMSEP 0.1227625 
4 train  Linear  Linear R2pred 0.9190042 
5 test PLS.Comp7 PLS.Comp7 R2pred 0.9143945 
6 cv PCR.Comp17 PCR.Comp16 R2pred 0.8916413 

Я хочу, чтобы выбрать те строки из второго столбца, который имеет максимальную RMSEP для каждого Type и те строки из третьего столбца, который имеет максимальную R2pred для каждого Type. Я хочу, чтобы связать результат и получить что-то, как показано ниже:

Type  Model variable  value 
1 train  Linear RMSEP 0.1067979 
2 test PLS.Comp7 RMSEP 0.1008264 
3 cv PCR.Comp17 RMSEP 0.1227625 
4 train  Linear R2pred 0.9190042 
5 test PLS.Comp7 R2pred 0.9143945 
6 cv PCR.Comp16 R2pred 0.8916413 

Было бы неплохо использовать plyr пакет, если это возможно.

Answer 1

Во-первых, вот игра набор данных:

play.data <- as.data.frame(matrix(nrow=1000, ncol=3)) 
names(play.data) <- c("Type", "variable", "value") 
play.data$Type<- sample(x=c("train", "test", "cv"), size=1000, replace=TRUE, prob=c(.5, .25, .25)) 
play.data$variable <- sample(x=c("RMSEP", "R2pred"), size=1000, replace=TRUE, prob=c(.5, .5)) 
play.data$value <- runif(1000) 

Теперь просто использовать ddply, а затем сортировать в необходимый порядок.

## Now get the max 
max.data <- ddply (play.data,.(Type, variable), summarize, max_value=max(value)) 
max.data <- max.data[order(max.data$variable), ]