purrr替换split，apply，输出嵌套列

Question

我了解如何使用split，lapply，并使用基数R将列表输出重新组合在一起。我正在尝试了解 purrr 方法。我可以使用基数R，甚至可以使用 purrr * 来做到这一点，但由于我似乎在重复order变量，所以我猜错了。感觉笨拙，所以我认为我不明白。

使用数据子集中的信息创建嵌套的输出列的最简单方法是什么？

Base R方法在数据框中创建嵌套列

library(tidyverse)
set.seed(10)

dat2 <- dat1 <- data_frame(
    v1 = LETTERS[c(1, 1, 1, 1, 2, 2, 2, 2)],
    v2 = rep(1:4, 2),
    from = c(1, 3, 2, 1, 3, 5, 2, 1),
    to = c(1, 3, 2, 1, 3, 5, 2, 1) + sample(1:3, 8, TRUE)
)

dat1 <- split(dat1, dat1[c('v1', 'v2')]) %>%
    lapply(function(x){ 
        x$order <- list(seq(x$from, x$to))
        x
    }) %>%
    {do.call(rbind, .)}

dat1
unnest(dat1)

我的purrr方法（正确的方法是什么？）

dat2 %>%
    group_by(v1, v2) %>%
    nest() %>%
    mutate(order = purrr::map(data, ~ with(., seq(from, to))))  %>%
    select(-data) 

所需的输出

  v1       v2  from    to order    
* <chr> <int> <dbl> <dbl> <list>   
1 A         1     1     3 <int [3]>
2 B         1     3     4 <int [2]>
3 A         2     3     4 <int [2]>
4 B         2     5     6 <int [2]>
5 A         3     2     4 <int [3]>
6 B         3     2     3 <int [2]>
7 A         4     1     4 <int [4]>
8 B         4     1     2 <int [2]>

Answer 1

在这种情况下，您似乎正在寻找：

mutate(dat2,order = map2(.x = from,.y = to,.f = seq))

Answer 2

使用 new ， experimental ，rap软件包：

remotes::install_github("romainfrancois/rap")

library(rap)

dat2 %>% 
  rap(order = ~ seq(from, to))