r - 寻找独特级别之间的差异

Question

我有一个专栏，其中有独特的级别，我想找到差距(级别之间的差异)。

我有数据

x=c(0,0,0,0,0,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,4,4) 

结果应该是:

1 2 3 4 5 1 2 3 1 2 3 4 1 2 3 4 5 6

Answer 1

这不是很清晰的代码，但它完成了工作:

res = ifelse(x == 0, 0, ifelse(c(0, x[-length(x)]) != 0, 0, NA))
res[is.na(res)] = with(rle(x == 0), lengths[values])
res
# [1] 0 0 0 0 4 0 0 0 0 4 0 0 2 0

这也许更好:

res2 = x
res2[x != 0] = diff(c(0, which(x != 0))) - 1
res2
# [1] 0 0 0 0 4 0 0 0 0 4 0 0 2 0