Rimuovere i duplicati mantenendo voce con grande valore assoluto

Question

Diciamo che ho quattro campioni: id = 1, 2, 3, e 4, con una o più misure su ciascuno di questi campioni:

> a <- data.frame(id=c(1,1,2,2,3,4), value=c(1,2,3,-4,-5,6)) 
> a 
    id value 
1 1  1 
2 1  2 
3 2  3 
4 2 -4 
5 3 -5 
6 4  6 

voglio rimuovere i duplicati, mantenendo solo una voce per ID, quella con il valore assoluto più alto della colonna "valore". Io, questo è quello che voglio:

> a[c(2,4,5,6), ] 
    id value 
2 1  2 
4 2 -4 
5 3 -5 
6 4  6 

Come posso fare questo in R?

Answer 1

aa <- a[order(a$id, -abs(a$value)), ] #sort by id and reverse of abs(value) 
aa[ !duplicated(aa$id), ]    # take the first row within each id 
    id value 
2 1  2 
4 2 -4 
5 3 -5 
6 4  6 

Answer 2

Partenza ?aggregate:

aggregate(value~id,a,function(x) x[which.max(abs(x))]) 

---

mi piace la risposta @DWin, ma vorrei mostrare come questo potrebbe funzionare anche con i metadati:

aa<-merge(aggregate(value~id,a,function(x) x[which.max(abs(x))]),a) 
# Fails if the max value is duplicated for a single id without next line. 
aa[!duplicated(aa),] 

---

I non ho potuto aiutare me stesso e ha creato un'ultima risposta:

do.call(rbind,lapply(split(a,a$id),function(x) x[which.max(abs(x$value)),])) 

Answer 3

library(plyr) 
ddply(a, .(id), function(x) return(x[which(abs(x$value)==max(abs(x$value))),])) 

Answer 4

Un approccio data.table potrebbe essere in ordine, se il set di dati è molto grande:

library(data.table) 

aDT <- as.data.table(a) 
setkey(aDT,"id") 

aDT[J(unique(id)), list(value = value[which.max(abs(value))])] 

O un non così rapidamente, ma ancora veloce, alternativa:

library(data.table) 
as.data.table(a)[, .SD[which.max(abs(value))], by=id] 

Questa versione restituisce tutte le colonne di a, nel caso in cui ci siano più in t lui set di dati reale.

Answer 5

Un altro approccio (anche se il codice potrebbe essere un po 'ingombrante) è quello di utilizzare ave():

a[which(abs(a$value) == ave(a$value, a$id, 
          FUN=function(x) max(abs(x)))), ] 
# id value 
# 2 1  2 
# 4 2 -4 
# 5 3 -5 
# 6 4  6