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