计算R中连续真值的数量
我想计算一下在R中看到两个连续真值的次数。例如计算R中连续真值的数量,r,boolean,R,Boolean,我想计算一下在R中看到两个连续真值的次数。例如 x <- c(T,F,T,T,F,F,T,F,T,F) x [1] TRUE FALSE TRUE TRUE FALSE FALSE TRUE FALSE TRUE FALSE x这应该可以： with(rle(x), sum(lengths[values] >= 2)) 说明： 当你使用布尔函数时，你可以从中获利rle（x）$length将返回向量中连续发生的次数TRUE或FALSE。范例 x <- c(T,F
x <- c(T,F,T,T,F,F,T,F,T,F)
x
[1] TRUE FALSE TRUE TRUE FALSE FALSE TRUE FALSE TRUE FALSE
x这应该可以：
with(rle(x), sum(lengths[values] >= 2))
说明：
当你使用布尔函数时，你可以从中获利rle（x）$length
将返回向量中连续发生的次数TRUE
或FALSE
。范例
x <- c(T,F,T,T,T,F,T,F,T,F,T,T)
rle(x)$lengths
[1] 1 1 3 1 1 1 1 1 2
您可以使用此选项仅获取长度
向量中的真
s：
rle(x)$lengths[rle(x)$values]
[1] 1 3 1 1 2
最后一步应该是显而易见的：计算这些值中有多少大于或等于2。所有这些（包括性能改进）：
您还可以使用cumsum
和split
进行如下操作：
x <- c(TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE,
TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE)
sum(lapply(split(x, cumsum(!x)), sum)>=2)
#[1] 3
x=2）
#[1] 3
这里是另一个带有rleid
的选项，来自data.table
。rleid
为不同的相邻元素提供唯一的id，乘以x，将原始向量中与FALSE
对应的元素转换为0，使用制表将频率转换为逻辑向量（==2
），并获得和
library(data.table)
sum(tabulate(rleid(x)*x)==2)
#[1] 1
类似于sum（rle（x）$length>1&rle（x）$values）
with(rle(x), sum(lengths[values] >= 2))
[1] 2
x <- c(TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE,
TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE)
sum(lapply(split(x, cumsum(!x)), sum)>=2)
#[1] 3
library(data.table)
sum(tabulate(rleid(x)*x)==2)
#[1] 1