r - r 有条件地复制数据框中的行

Question

我的数据框如下所示：

SIT LOC NB VAL
A a 1 0.256
A b 451 0.023
B a 2 0.123
B b 1 0.741

我想复制 NB 倍的行。例如，我希望第二行被复制 451 次。然后，我将不再需要“NB”列，这简化了聚合等函数的使用。

Answer 1

使用子集rep：

DF <- read.table(text="SIT LOC NB VAL
A a 1 0.256
A b 451 0.023
B a 2 0.123
B b 1 0.741", header=TRUE)

DFrep <- DF[rep(seq_len(nrow(DF)), DF$NB),]