如何在R语言中展开数据框行并填充起止值间的连续数字

初始简单场景 #

你的初始数据框里x列是起始值1和终止值10，要生成连续整数序列，直接用seq()配合dplyr的reframe就能搞定：

library(tibble)
library(dplyr)

df <- tibble(x = c(1, 10))
df %>% reframe(x = seq(x[1], x[2], by = 1))

运行后就能得到从1到10的完整序列，类型会自动转为整数。

带分组的业务场景 #

针对更新后的分组数据，每组包含起始和终止值，按分组生成连续序列的方法如下：

方法1：分组后直接生成序列 #

先按group分组，然后对每组提取起始和终止值生成序列：

library(tibble)
library(dplyr)

df <- tibble(group = c("A", "A", "B", "B"), 
             x = c(10,30, 1, 10)) 

df %>%
  group_by(group) %>%
  reframe(x = seq(first(x), last(x), by = 1)) %>%
  ungroup()

如果担心每组的x顺序不是起始在前，可以先排序再生成：

df %>%
  group_by(group) %>%
  arrange(x) %>%
  reframe(x = seq(first(x), last(x), by = 1)) %>%
  ungroup()

方法2：先转宽表再生成序列 #

先把每组的起始、终止值拆成单独列，再生成序列：

library(tibble)
library(dplyr)
library(tidyr)

df %>%
  group_by(group) %>%
  mutate(type = c("start", "end")) %>%
  pivot_wider(names_from = type, values_from = x) %>%
  reframe(x = seq(start, end, by = 1), .by = group)

内容的提问来源于stack exchange，提问作者TarJae