В R, используя `уникальный()` с дополнительными условиями для извлечения подматрицы: простое решение без plyr

Question

В R, пусть M матрица

 [,1] [,2] [,3] 
[1,] 1 2 3 
[2,] 1 3 3 
[3,] 2 4 5 
[4,] 6 7 8 

Я хотел бы, чтобы выбрать подматрицы m

 [,1] [,2] [,3] 
[1,] 1 3 3 
[2,] 2 4 5 
[3,] 6 7 8 

с использованием unique по адресу M[,1], указывая, чтобы строка с максимальным значением во втором столбце M. В конце алгоритм должен содержать строку [2,] из набора \{[1,], [2,]\}. К сожалению, unique() возвращает мне вектор с фактическими значениями, а не номера строк, после устранения дубликатов.

Есть ли способ получить asnwer без пакета plyr? Большое спасибо, Avitus

Answer 1

Вот как:

is.first.max <- function(x) seq_along(x) == which.max(x) 

M[as.logical(ave(M[, 2], M[, 1], FUN = is.first.max)), ] 
#  [,1] [,2] [,3] 
# [1,] 1 3 3 
# [2,] 2 4 5 
# [3,] 6 7 8 

Answer 2

Вы ищете duplicated.

m <- as.matrix(read.table(text="1 2 3 
1 3 3 
2 4 5 
6 7 8")) 
m <- m[order(m[,2], decreasing=TRUE), ] 
m[!duplicated(m[,1]),] 

#  V1 V2 V3 
# [1,] 6 7 8 
# [2,] 2 4 5 
# [3,] 1 3 3 

Answer 3

Не самый эффективный:

M <- matrix(c(1,1,2,6,2,3,4,7,3,3,5,8),4) 

t(sapply(unique(M[,1]),function(i) {temp <- M[M[,1]==i,,drop=FALSE] 
            temp[which.max(temp[,2]),]         
     })) 

#  [,1] [,2] [,3] 
#[1,] 1 3 3 
#[2,] 2 4 5 
#[3,] 6 7 8