Usuwanie kolejnych duplikatów wpisów

Question

Jak usunąć kolejne duplikaty wpisów w R? Myślę, że można użyć with, ale nie mogę myśleć, jak z niego korzystać. Ilustrujący jeden przykład: dane

read.table(text = " 
    a  t1 
    b  t2 
    b  t3 
    b  t4 
    c  t5 
    c  t6 
    b  t7 
    d  t8") 

próbki: D

events time 
     a  t1 
     b  t2 
     b  t3 
     b  t4 
     c  t5 
     c  t6 
     b  t7 
     d  t8 

Wymagane Rezultat:

 events  time 
     a  t1 
     b  t4 
     c  t6 
     b  t7 
     d  t8 

`

Answer 1

roztworu w podstawowej R za pomocą split-apply-połączyć prace poprzez funkcja tail, która zwraca ostatni element i rle w połączeniu z mapply aby utworzyć nowy wektor events który pozwala zachować porządek w przypadku zdarzeń pojawiając:

x <- read.table(text = " events time 
     a  t1 
     b  t2 
     b  t3 
     b  t4 
     c  t5 
     c  t6 
     b  t7 
     d  t8", header = TRUE) 


# create vector of new.events (i.e., preserve reappearing objects) 
occurences <- rle(as.character(x$events))[["lengths"]] 
new.events <- unlist(mapply(rep, x = letters[seq_along(occurences)], times = occurences)) 

# split into sublists per event 
s1 <- split(x, list(new.events)) 

# get last element from list 
s2 <- lapply(s1, tail, n = 1) 

# combine again 
do.call(rbind, s2) 

To daje pożądany wynik.

Answer 2

EDYCJA: Nieprawidłowo, ponieważ pokazuje tylko jeden wiersz b. Można również użyć kopiowane() funkcji

x <- read.table(text = " events time 
    a  t1 
    b  t2 
    b  t3 
    b  t4 
    c  t5 
    c  t6 
    d  t7", header = TRUE) 
#Making sure the data is correctly ordered! 
x <- x[order(x[,1], x[,2]), ]  
x[!duplicated(x[,1], fromLast=TRUE), ] 

Answer 3

Jeszcze inny drugi, zakładając, że data.frmae nazwie d:

d[cumsum(rle(as.numeric(d[,1]))$lengths),] 
    V1 V2 
1 a t1 
4 b t4 
6 c t6 
7 b t7 
8 d t8 

Answer 4

A na dokładkę, za pomocą head i tail:

dat[with(dat,c(tail(events,-1) != head(events,-1),TRUE)),] 

    events time 
1  a t1 
4  b t4 
6  c t6 
7  b t7 
8  d t8