r - 仅为特定值创建序列

Question

有没有人知道如何实现以下目标:从这里开始

df <- data.frame(var = c(0,0,1,1,0,0,0,1,1,0,0,0,0,1,1))

并实现这一目标:

df <- data.frame(var = c(0,0,1,1,0,0,0,1,1,0,0,0,0,1,1), 
                 newvar = c(0,0,1,1,0,0,0,2,2,0,0,0,0,3,3))

Answer 1

这是一个带有 rle 的选项，通过用这些值的序列替换不为 0 的“值”，然后调用 inverse_rle 来获得完整的 矢量

df$newvar <- inverse.rle(within.list(rle(df$var), 
          values[values!=0] <- seq_along(values[values!=0])))
df
#   var newvar
#1    0      0
#2    0      0
#3    1      1
#4    1      1
#5    0      0
#6    0      0
#7    0      0
#8    1      2
#9    1      2
#10   0      0
#11   0      0
#12   0      0
#13   0      0
#14   1      3
#15   1      3