r - 如何找到列表中的运行次数？

Question

我有一个名为“抛掷”的列表，其中包含 100 次抛硬币。 toss[[1]] 给了我这个(只是例子)

0 1 0 0 1 1 1 0 0 0 1 1 0 1

我想知道我的运行次数。

在本例中，它应该给我 8，因为:

0 | 1 | 0 0 | 1 1 1 | 0 0 0 | 1 1 | 0 | 1 --> 8 runs

由于我进行了 100 次抛掷，因此我需要计算每次抛掷的运行计数 (R)。

我怎样才能做到这一点？

我尝试使用 rle() 函数，但没有成功。

Answer 1

rle 的输出是一个由长度和值组成的命名列表。

str(rle(toss))
#List of 2
# $ lengths: int [1:8] 1 1 2 3 3 2 1 1
# $ values : num [1:8] 0 1 0 1 0 1 0 1
# - attr(*, "class")= chr "rle"

提取长度或值并获取长度

length(rle(toss)$lengths)

函数lengths将获取每个list元素的length，然后提取第一个长度

lengths(rle(toss))[[1]]

数据

toss <- c(0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1)