使用rbind（联合）扩展R中的数据框

Question

我需要按比例放大一组文件以证明公司的概念。 本质上有几个1000行文件，每个文件约有200列，我想对它们进行调整，直到达到所需的规模。 这可能是一百万行或更多。

输出本质上将是数据的重复（听起来有点愚蠢），我知道这一点，但是我只需要证明一下即可。

我在R中使用了while循环，如下所示：

while(nrow(df) < 1000000) {df <- rbind(df,df);}

这似乎可行，但在计算上看起来有点繁重。 可能需要10到15分钟。

我虽然创建了一个函数（如下），并在df上使用了“应用”族函数，但未能成功：

scaleup_function <- function(x) 
{ 
  while(nrow(df) < 1000)
  {
    x <- rbind(df, df)
  }

}

是否有一种更快，更有效的方法（不需要使用rbind）？

非常感谢，若昂

Answer 1

这应该可以解决问题：

df <- matrix(0,nrow=1000,ncol=200)
reps_needed <- ceiling(1000000 / nrow(df))
df_scaled <- df[rep(1:nrow(df),reps_needed),]