How to remove successive duplicate rows based on first columnv1?
v1 v2
1 A
1 A
2 B
3 B
1 A
1 A
2 A
2 B
Desired Output:
v1 v2
1 A
2 B
3 B
1 A
2 A
Asked
Active
Viewed 55 times
0
-
df[cumsum(rle(df$v1)$lengths),] – Cina Aug 29 '19 at 19:47
-
2`d[c(1, diff(d$v1)) != 0,]` – d.b Aug 29 '19 at 19:51
-
@AnkurSinha Duplicate of [Removing Only Adjacent Duplicates in Data Frame in R](https://stackoverflow.com/questions/27022057/removing-only-adjacent-duplicates-in-data-frame-in-r) – M-- Aug 29 '19 at 19:55
1 Answers
2
Here's a way with rle in base R -
x <- c(1,1,2,3,1,1,2,2)
ind <- with(rle(x), sequence(lengths) == 1)
x[ind]
[1] 1 2 3 1 2
Another way would be by checking lag values -
ind <- c(TRUE, x[-length(x)] != x[-1])
x[ind]
[1] 1 2 3 1 2
Shree
- 10,835
- 1
- 14
- 36