如何在数据框中的两列上使用 seq 函数？

Question

假设我有：

x <- c(1, 2, 3, 4, 5)
y <- c(2, 3, 6, 8, 10)
my.list <- list(start = x, end = y) %>% as.data.frame()

我需要定义一个新变量，其中包含存储在该变量中的 seq(start,end) 或 start:end，我想要跨行的数字序列，例如，第一行为 1 2，第一行为 3 4 5 6第三排。

非常感谢

Answer 1

我们可以使用map2' seqstart', 'end' 对应值的 uence 来创建一个listof vectors

library(dplyr)
library(purrr)
my.list %>% 
   mutate(new = map2(start, end, `:`))
#  start end               new
#1     1   2              1, 2
#2     2   3              2, 3
#3     3   6        3, 4, 5, 6
#4     4   8     4, 5, 6, 7, 8
#5     5  10 5, 6, 7, 8, 9, 10

另一种选择是rowwise

my.list %>% 
    rowwise %>% 
    mutate(new = list(start:end))
# A tibble: 5 x 3
# Rowwise: 
#  start   end new      
#  <dbl> <dbl> <list>   
#1     1     2 <int [2]>
#2     2     3 <int [2]>
#3     3     6 <int [4]>
#4     4     8 <int [5]>
#5     5    10 <int [6]>

或者data.table像@markus 在评论中提到的那样

library(data.table)
setDT(my.list)[, V3 := Map(`:`, start, end)]

或者与Map来自base R

Map(`:`, my.list$start, my.list$end)