如何在 R 中复制第 1-50 行？ [复制]答案

【问题标题】：How to duplicate rows 1 - 50 in R? [duplicate]如何在 R 中复制第 1-50 行？ [复制]
【发布时间】：2018-05-14 23:57:55
【问题描述】：

我确信这非常简单，但我就是找不到..

如何复制数据集中所有变量的前 10、20 或 50 行并将它们添加为新行？

【问题讨论】：

rbind(df, df[1:10, ])
这个问题提供了有用的见解：stackoverflow.com/questions/2894775/…

标签： r duplicates rows

【解决方案1】：

R 的子集允许您将对象分配给不存在的索引，因此您可以设置新行以包含原始行：

df <- data.frame(x = 1:10, y = 11:20)
df[11:20, ] <- df[1:10, ]
df
#>     x  y
#> 1   1 11
#> 2   2 12
#> 3   3 13
#> 4   4 14
#> 5   5 15
#> 6   6 16
#> 7   7 17
#> 8   8 18
#> 9   9 19
#> 10 10 20
#> 11  1 11
#> 12  2 12
#> 13  3 13
#> 14  4 14
#> 15  5 15
#> 16  6 16
#> 17  7 17
#> 18  8 18
#> 19  9 19
#> 20 10 20

由reprex package (v0.2.0) 于 2018 年 5 月 14 日创建。

【讨论】：

【解决方案2】：

简单：

z <- rbind( mtcars , mtcars[ 1:10, ] )

nrow( mtcars)
nrow( z )

【讨论】：