R语言实现将特定行重复指定次数

1、直接测试

dir()
dat <- read.csv("test.csv", header = F)  ## 读取测试数据，实现按照第二列指定次数重复各列
dat
result <- data.frame()        ## 创建结果数据框

for (i in 1:nrow(dat)) {            ## 利用双循环实现
  for (j in 1:dat$V2[i]) {
    result <- rbind(result, dat[i, ])
  }
}
result

 

2、利用索引实现

dir()
dat <- read.csv("test.csv",header = F)
dat
idx <- rep(1:nrow(dat), times = dat[,2])   ## 按照行的索引重复指定次数
idx
result <- dat[idx,]       ## 按索引提取结果
result