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