r - 将大数区间变成具有指定范围的较小区间

Question

假设我有这张 table :

chr start_coor  end_coor
1   122000001   128000000

我想把这个表变成下表，其中间隔设置为100万:

chr start_coor  end_coor
1   122000001   123000000
1   123000001   124000000
1   124000001   125000000
1   125000001   126000000
1   126000001   127000000
1   127000001   128000000

使用基础 R 或 tidyverse 函数，我该如何实现？
谢谢你。

Answer 1

与 tidyverse你可以做 :

library(tidyverse)

df %>%
  mutate(start_coor = map2(start_coor, end_coor, seq, 1000000)) %>%
  unnest(start_coor) %>%
  mutate(end_coor = start_coor + 999999)

#    chr start_coor  end_coor
#   <int>      <dbl>     <dbl>
#1     1  122000001 123000000
#2     1  123000001 124000000
#3     1  124000001 125000000
#4     1  125000001 126000000
#5     1  126000001 127000000
#6     1  127000001 128000000

数据

df <- structure(list(chr = 1L, start_coor = 122000001L, end_coor = 128000000L), 
class = "data.frame", row.names = c(NA, -1L))