Arrays R复位反向计数器至复位时间

Arrays R复位反向计数器至复位时间,arrays,r,sorting,reverse,Arrays,R,Sorting,Reverse,嗨,我有一个数据框 输入:数据$cyclesFromLastError 每次发生错误时都会停止 输入: 0 1 2 3 4 0 1 2 3 0 1 2 3 4 5 我想创建一个新的专栏 输出:数据$cyclestonextror 4 3 2 1 0 3 2 1 0 5 4 3 2 1 0 我需要脚本,请我们可以使用ave,在x和rev中每次出现0时创建组,并更改每个组的顺序 ave(x, cumsum(x == 0), FUN = rev) #[1] 4 3 2 1 0 3 2 1 0 5

嗨,我有一个数据框

输入:数据$cyclesFromLastError

每次发生错误时都会停止

输入:

0 1 2 3 4 0 1 2 3 0 1 2 3 4 5 
我想创建一个新的专栏 输出:数据$cyclestonextror

4 3 2 1 0 3 2 1 0 5 4 3 2 1 0

我需要脚本,请

我们可以使用
ave
,在
x
rev
中每次出现0时创建组,并更改每个组的顺序

ave(x, cumsum(x == 0), FUN = rev)
#[1] 4 3 2 1 0 3 2 1 0 5 4 3 2 1 0
数据

x <- c(0, 1, 2, 3, 4, 0, 1, 2, 3, 0, 1, 2, 3, 4, 5)

x我们可以使用
ave
,在
x
中每次出现0时创建组,并且
rev
为每个组设置顺序

ave(x, cumsum(x == 0), FUN = rev)
#[1] 4 3 2 1 0 3 2 1 0 5 4 3 2 1 0
数据

x <- c(0, 1, 2, 3, 4, 0, 1, 2, 3, 0, 1, 2, 3, 4, 5)
x