r - 如何将唯一值(例如递增的数字)分配给 R 中的重复列值？

Question

我在解决以下问题时遇到了问题:

值start 和end 在每隔一行重复一次。我想用一个唯一的数字来标记它们，每次达到新的开始值时该数字都会增加。

我还希望 obj 列为空且不在开始和结束之间的行在 ID 列中保持为空。

提前致谢!

Answer 1

可能有更精简的方法，但您可以使用具有某些逻辑的 cumsum()。

library(dplyr)
library(tidyr)

x <- c("start", "end", NA)
df <- tibble(obj = x[c(1, 2, 1, 3, 2, 3, 3, 1, 3, 2, 1, 3, 2, 3, 3, 1, 3, 2)])

df %>% 
  mutate(ID = cumsum(replace_na(obj == "start", 0)),
         ID = if_else(ID == cumsum(replace_na(obj == "end", 0)) & is.na(obj), NA_integer_, ID))

# A tibble: 18 x 2
   obj      ID
   <chr> <int>
 1 start     1
 2 end       1
 3 start     2
 4 NA        2
 5 end       2
 6 NA       NA
 7 NA       NA
 8 start     3
 9 NA        3
10 end       3
11 start     4
12 NA        4
13 end       4
14 NA       NA
15 NA       NA
16 start     5
17 NA        5
18 end       5