以值为条件对列运行求和

我有一个二进制变量向量，用于说明该产品是否在该期间促销。我正在尝试弄清楚如何计算每次促销的持续时间以及促销之间的持续时间。

promo.flag = c(1,1,0,1,0,0,1,1,1,0,1,1,0))

换句话说：如果promo.flag与上一时期相同running.total + 1, else running.total重置为 1

我尝试过使用 apply 函数和 cumsum，但无法设法获得运行总工作的条件重置:-(

我需要的输出是：

promo.flag =  c(1,1,0,1,0,0,1,1,1,0,1,1,0)
rolling.sum = c(1,2,1,1,1,2,1,2,3,1,1,2,0)

任何人都可以阐明如何在 R 中实现这一目标吗？

听起来你需要游程编码（通过rle基地 R 中的命令）。

unlist(sapply(rle(promo.flag)$lengths,seq))

给你一个向量1 2 1 1 1 2 1 2 3 1 1 2 1。不确定最后的零要做什么，但我认为这是一个最终条件，并且事后很容易更改。

这有效是因为rle()返回两个列表，其中一个名为lengths并包含每个重复次数的紧凑序列。然后seq当输入一个整数时，您会得到一个从 1 到该数字的序列。然后重复调用applyseq与单个数字rle()$lengths，生成迷你序列的列表。unlist然后将该列表转换为向量。