r - 创建新列并将值从上一组结转到下一组

Question

我试图将值(value)从上一组传递到下一组。我尝试使用 rleid 解决它但这无法得到预期的结果。

df <- data.frame(signal = c(1,1,5,5,5,2,3,3,3,4,4,5,5,5,5,6,7,7,8,9,9,9,10), 
                 desired_outcome = c(NA, NA, 1, 1, 1, 5, 2, 2, 2, 3, 3, 4, 4,4,4,5,6,6,7,8,8,8,9))

# outcome column has the expected result -
   signal desired_outcome
1       1              NA
2       1              NA
3       5               1
4       5               1
5       5               1
6       2               5
7       3               2
8       3               2
9       3               2
10      4               3
11      4               3
12      5               4
13      5               4
14      5               4
15      5               4
16      6               5
17      7               6
18      7               6
19      8               7
20      9               8
21      9               8
22      9               8
23     10               9

Answer 1

rle会给lengths和 values出现相同值的序列。然后:删除最后一个值，移位剩余values最后，添加一个 NA到值的开头以考虑删除最后一个值，并重复 lengths 给出的每个值(即原始向量中具有相同值的序列的 lengths)。

with(rle(df$signal), rep(c(NA, head(values, -1)), lengths))
# [1] NA NA  1  1  1  5  2  2  2  3  3  4  4  4  4  5  6  6  7  8  8  8  9