创建新列并将上一组的值结转到下一组

Question

我正在努力将上一组的价值转移到下一组。我尝试使用 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

Answer 2

另一种方法是先 lag signal 然后使用 rleid 创建组并使用 mutate 将每个组的第一个值广播到所有值。

library(dplyr)

df %>%
   mutate(out = lag(signal)) %>%
   group_by(group = data.table::rleid(signal)) %>%
   mutate(out = first(out)) %>%
   ungroup() %>%
   select(-group)


# A tibble: 23 x 2
#   signal   out
#    <dbl> <dbl>
# 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
# … with 13 more rows

创建新列并将上一组的值结转到下一组

Create new column and carry forward value from previous group to next

group-by

r

lag