重组数据并复制R中的行

Question

我在重组数据时遇到问题。对于整个数据集，我需要复制每一行并将其插入到它之后的行中，例如

row 1
duplicate of row 1
row 2
duplicate of row 2

依此类推整个数据集。

Answer 1

您可以尝试rep

df1[rep(1:nrow(df1),each=2),,drop=FALSE]

或使用splitstackshape

library(splitstackshape)
expandRows(df1, 2, count.is.col = FALSE)

数据

df1 <- data.frame(Col1=1:5, Col2=6:10)