I have a dataframe likes like this
df <- data.frame(start = 1:9, end = seq(2,18,by = 2))
# Now I want to generate multiple series number set base on these 2 columns
# The ideal result should be looks like this way
1,2
2,3,4
3,4,5,6
....
Could anyone help me about this? Thx
Looks like we can do this on each row with Map by applying the : on the data.frame so that the left, and right would be the corresponding elements of 'start', 'end' i.e. 1:2, 2:4, etc.
do.call(Map, c(f = `:`, df))
#[[1]]
#[1] 1 2
#[[2]]
#[1] 2 3 4
#[[3]]
#[1] 3 4 5 6
#[[4]]
#[1] 4 5 6 7 8
#[[5]]
#[1] 5 6 7 8 9 10
#[[6]]
#[1] 6 7 8 9 10 11 12
#[[7]]
#[1] 7 8 9 10 11 12 13 14
#[[8]]
#[1] 8 9 10 11 12 13 14 15 16
#[[9]]
# [1] 9 10 11 12 13 14 15 16 17 18
apply(df,1,function(x){c(x[1]:x[2])})
[[1]]
[1] 1 2
[[2]]
[1] 2 3 4
[[3]]
[1] 3 4 5 6
[[4]]
[1] 4 5 6 7 8
[[5]]
[1] 5 6 7 8 9 10
[[6]]
[1] 6 7 8 9 10 11 12
[[7]]
[1] 7 8 9 10 11 12 13 14
[[8]]
[1] 8 9 10 11 12 13 14 15 16
[[9]]
[1] 9 10 11 12 13 14 15 16 17 18
A tidyverse solution could look like this:
library(dplyr)
res_df <- df %>%
rowwise() %>%
mutate(msn = list(seq(start, end)))
pull(res_df, msn)
#> [[1]]
#> [1] 1 2
#>
#> [[2]]
#> [1] 2 3 4
#>
#> [[3]]
#> [1] 3 4 5 6
#>
#> [[4]]
#> [1] 4 5 6 7 8
#>
#> [[5]]
#> [1] 5 6 7 8 9 10
#>
#> [[6]]
#> [1] 6 7 8 9 10 11 12
#>
#> [[7]]
#> [1] 7 8 9 10 11 12 13 14
#>
#> [[8]]
#> [1] 8 9 10 11 12 13 14 15 16
#>
#> [[9]]
#> [1] 9 10 11 12 13 14 15 16 17 18
or this:
library(purrr)
map2(df$start, df$end, seq)
#> [[1]]
#> [1] 1 2
#>
#> [[2]]
#> [1] 2 3 4
#>
#> [[3]]
#> [1] 3 4 5 6
#>
#> [[4]]
#> [1] 4 5 6 7 8
#>
#> [[5]]
#> [1] 5 6 7 8 9 10
#>
#> [[6]]
#> [1] 6 7 8 9 10 11 12
#>
#> [[7]]
#> [1] 7 8 9 10 11 12 13 14
#>
#> [[8]]
#> [1] 8 9 10 11 12 13 14 15 16
#>
#> [[9]]
#> [1] 9 10 11 12 13 14 15 16 17 18