Xóa các mục nhập trùng lặp liên tiếp

Question

Làm cách nào để xóa các mục nhập trùng lặp liên tiếp trong R? Tôi nghĩ rằng with có thể được sử dụng nhưng không thể nghĩ cách sử dụng nó. Minh họa một ví dụ:

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

mẫu dữ liệu: D

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

Required Kết quả:

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

'

Answer 1

Một giải pháp trong cơ sở R sử dụng split-apply-kết hợp công trình qua hàm tail trả về phần tử cuối cùng và rle kết hợp với mapply để tạo ra một vector mới của events riêng giữ gìn trật tự trong trường hợp các sự kiện xuất hiện lại:

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) 

này sẽ cho kết quả mong muốn.

Answer 2

CHỈNH SỬA: Không chính xác chính xác vì nó chỉ hiển thị một hàng b. Bạn cũng có thể sử dụng nhân đôi() chức năng

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

Tuy nhiên, một ai khác, giả sử bạn data.frmae được đặt tên 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

Và đối với biện pháp tốt, sử dụng head và 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