我正在寻找可以做subj的函数(或包)。例如,我有一个带“1”和“0”的二进制序列向量,从“1”开始,在下一个“1”值结束,例如“10”,“10000”,“1000”等。矢量看像这样:
x <- c(1,0,0,1,0,1,0,0,0,1,1,0,0,1,0,0,1)
最后,我需要一个带有值的向量,每个值都代表相应序列的长度:
y <- functionname(x)
y
[1] 3 2 4 1 3 3 1
cumsum(x)
[1] 1 1 1 2 2 3 3 3 3 4 5 5 5 6 6 6 7
table(cumsum(x))
# 1 2 3 4 5 6 7
# 3 2 4 1 3 3 1
unname(table(cumsum(x)))
# [1] 3 2 4 1 3 3 1
为了获得计数然后轮流1,10,100,1000,..
table(table(cumsum(x)))
# 1 2 3 4
# 2 1 3 1
unname(table(table(cumsum(x))))
# 2 1 3 1
rle(cumsum(x))$length
[1] 3 2 4 1 3 3 1
tapply(x,cumsum(x),length)
1 2 3 4 5 6 7
3 2 4 1 3 3 1