Duplikate entfernen Eintrag mit dem größten absoluten Wert zu halten

Question

Lassen Sie uns sagen, dass ich vier Proben haben: id = 1, 2, 3 und 4, mit einem oder mehreren Messungen an jeder dieser Proben:

> 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 

Ich möchte Entfernen von Duplikaten, wobei nur eine Eingabe pro ID gespeichert wird - diejenige mit dem größten absoluten Wert der Spalte "value". Das heißt, was ich will:

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

Wie kann ich das in R tun?

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

Check out ?aggregate:

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

---

Ich mag die Antwort von @DWin, aber ich möchte zeigen, wie dies auch mit Metadaten arbeiten könnten:

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 konnte mir nicht helfen und erstellte eine letzte antwort:

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

Ein data.table Ansatz könnte sein, um, wenn Ihr Datensatz ist sehr groß:

library(data.table) 

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

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

Oder eine nicht ganz so schnell, aber immer noch schnell, Alternative:

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

Diese Version gibt alle Spalten von a zurück, falls es mehr in t gibt Der echte Datensatz.

Answer 5

Ein anderer Ansatz (obwohl der Code ein wenig umständlich aussehen könnte) ist ave() zu verwenden:

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