Rimuovere tutti i duplicati tranne ultima istanza

Question

Così ho un set di dati in R con la seguente disposizione come esempio:

ID Date Tally 
1 2/1/2011 1 
2 2/1/2011 2 
3 2/1/2011 3 
1 2/1/2011 4 
2 2/1/2011 5 
1 2/1/2011 6 
3 2/1/2011 7 
4 2/1/2011 8 
2 2/1/2011 9 

voglio rimuovere tutte le istanze tranne l'istanza ultima delle id. In questo momento tutto quello che posso trovare online, e le funzioni che sto usando è la rimozione di tutto tranne la prima istanza.

Quindi la mia nuova cornice di dati sarà simile:

ID Date Tally 
1 2/1/2011 6 
3 2/1/2011 7 
4 2/1/2011 8 
2 2/1/2011 9 

Come posso fare questo? Al momento sono solo in grado di mantenere la prima istanza. Voglio che faccia il contrario? Qualsiasi aiuto?

Orso con me Sono nuovo di R :)

Answer 1

Usa !rev(duplicated(rev(ID))) per filtrare tutti, ma gli ultimi avvenimenti unici.

per ottenere il set di dati filtrato, utilizzare dataset[!rev(duplicated(rev(dataset$ID))),]

Answer 2

Non sarebbe questo essere solo il caso standard per l'utilizzo del parametro 'fromLast' a duplicated?

dat[ !duplicated(dat[, c("ID", "Date")], fromLast=T),] 
#--------- 
    ID  Date Tally 
6 1 2/1/2011  6 
7 3 2/1/2011  7 
8 4 2/1/2011  8 
9 2 2/1/2011  9 

Il tuo esempio non era abbastanza ricco per dire se avevi bisogno la colonna "Data" nel test fro la duplicazione, quindi forse si potrebbe semplificare. Lo lascio per illustrare che duplicated ha un metodo data.frame. Preferisco !duplicated a unique perché consente un facile accesso al complemento impostato se si confrontano i gruppi.

Answer 3

utilizzando un data.table join, è possibile impostare mult = 'last'

Per esempio

library(data.table) 
DT <- data.table(DF, key = 'id') 

# join with the unique ID values 
DT[unique(DT[,list(ID)]), mult= 'last'] 

    ID  Date Tally 
1: 1 2/1/2011  6 
2: 2 2/1/2011  9 
3: 3 2/1/2011  7 
4: 4 2/1/2011  8 

Se tu conoscessi gli ID univoci si potrebbe anche uno dei seguenti

DT[.(1:4), mult='last'] 
DT[list(1:4), mult = 'last'] 

Answer 4

Uso dplyr:

data <- data %>% 
    group_by(ID) %>% 
    slice(which.max(Tally))