Numbering a Vector that Has Repeats Up Until a New Element

Asked Jul 23 '20 at 20:28

Active Jul 23 '20 at 20:35

Viewed 38 times

If I have a vector such as :

c("A","A","B","B","A","C","C","C","D","A","B","C")

And I'm interested in numbering it, based upon repeats upon until they hit a new element. Such as:

1,1,2,2,3,4,4,4,5,6,7,8

How can I go about this? So far, I wrote this:

x <- map(seq_along(u), ~str_locate_all(str_flatten(u), u[[.x]]))

edited Jul 23 '20 at 20:34

zx8754

asked Jul 23 '20 at 20:28

2

`rleid` or `rle` – akrun Jul 23 '20 at 20:30
Is there any tidyverse equivalent of that? Not that there's anything wrong with data.table. :P – bioinformatics2020 Jul 23 '20 at 20:31
1

Yes, it would be `cumsum(v1 != lag(v1, default = first(v1))) + 1` – akrun Jul 23 '20 at 20:32
I thought cumsum() is Base R? – bioinformatics2020 Jul 23 '20 at 20:34
1

Yes, but `lag` is from `dplyr` – akrun Jul 23 '20 at 20:34
1

Ah, you're right! Appreciate the help - I'll stick to rleid haha – bioinformatics2020 Jul 23 '20 at 20:35
1

Related post: [Is there a dplyr equivalent to data.table::rleid?](https://stackoverflow.com/q/33507868/680068) – zx8754 Jul 23 '20 at 20:36

0 Answers0