如何通过可变的行数来偏移行

Question

具有如下数据：

data <- structure(list(seq_grp = 1:40, n_offset = c(1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 3, 2, 1, 1, 3, 2, 1, 1, 1, 1, 3, 2, 1, 1, 7, 6, 5, 
4, 3, 2, 1, 1, 9, 8, 7, 6, 5, 4, 3, 2)), row.names = c(NA, -40L
), class = c("tbl_df", "tbl", "data.frame"))

我想创建一个新列，其后各行中的值将具有seq_grp的值，但其长度偏移量由n_offset定义。我希望dplyr::mutate(new = dplyr::lead(seq_grp, n = n_offset))可以工作，但是lead仅接受标量。

Answer 1

类似于@akrun的答案，但是处理不存在具有偏移的索引的情况。

myToolbar.setNavigationOnClickListener {
  // handle the navigation button
}

^{由reprex package（v0.2.1）于2019-09-17创建}