根据 tidyverse 中的另一列创建一个数字列表

Question

目标：我想根据另一列中的起始值创建一个数字列表（序号)，然后取消嵌套。

在下面的数据中，嵌套的 c(1:10) 序列将从该列开始序号.

x <- tibble(name = c('boo', 'bah', 'bee'),
                seqnbr = c(1,2,3))

A tibble: 3 x 2
  name  seqnbr
  <chr>  <dbl>
1 boo        1
2 bah        2
3 bee        3

期望的结果如下所示：

# A tibble: 3 x 3
  name  seqnbr my_list
  <chr>  <dbl> <chr>  
1 boo        1 list(c(1:10) )
2 bah        2 list(c(2:10) )
3 bee        3 list(c(3:10) )

在这一步之后，我会 unnest() 使值明确。

首选 Tidyverse/purr 解决方案。

Answer 1

library(tidyverse)
x <- tibble(name = c('boo', 'bah', 'bee'),
            seqnbr = c(1,2,3))

(x_1 <- x |> rowwise() |> mutate(my_list= list(seq(from=seqnbr,
                               to=10))))

(x_2 <- unnest_longer(x_1,col=my_list))