Arrays R复位反向计数器至复位时间
嗨,我有一个数据框 输入:数据$cyclesFromLastError 每次发生错误时都会停止 输入: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
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