R语言：如何生成带连续编号序列的新增观测值

需求说明 #

现有示例数据框：

test <- data.frame(var1=c("a","b"),var2=c(15,12))

需要将每一行重复10次，同时新增一列var3取值为0到9，最终得到每行对应10条重复记录、var3依次为0-9的数据集（示例目标中序列为1-5，实际需求为0-9）。

原方法错误分析 #

方法a的问题 #

testdata$C <- 0
testdata <- for (i in testdata$Combined_Number) {add_row(testdata,C=seq(0,9))}

• 错误原因：for循环直接赋值给testdata会覆盖原有数据，且add_row用法错误，未正确为每行添加对应重复项，最终导致数据集为空。

方法b的问题 #

testdata$C <- with(testdata, ave(Combined_Number,flur, FUN = seq(0,9)))

• 报错信息：

Error in get(as.character(FUN), mode = "function", envir = envir) :
object 'FUN' of mode 'function' was not found

• 错误原因：ave的FUN参数需要传入函数对象，但此处直接传入了seq(0,9)生成的向量，而非函数，因此触发报错。

可行解决方案 #

方法1：tidyverse工具链（dplyr + tidyr） #

适合偏好管道语法的场景：

library(tidyverse)

test <- data.frame(var1=c("a","b"),var2=c(15,12))

test2 <- test %>%
  mutate(var3 = list(seq(0, 9))) %>%  # 为每行生成0-9的序列列表
  unnest(var3)  # 展开列表列为多行

print(test2)

方法2：base R实现 #

无需额外包，适合轻量处理：

test <- data.frame(var1=c("a","b"),var2=c(15,12))

n_rep <- 10  # 每行重复次数
# 按行重复原始数据
test_rep <- test[rep(seq(nrow(test)), each = n_rep), ]
# 添加0-9循环的序列列
test_rep$var3 <- rep(seq(0, 9), nrow(test))

print(test_rep)

方法3：data.table实现 #

处理大数据集时效率更高：

library(data.table)

test <- data.table(var1=c("a","b"),var2=c(15,12))

# 按var1、var2分组，每组生成0-9的var3序列
test2 <- test[, .(var3 = seq(0, 9)), by = .(var1, var2)]

print(test2)

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