R中是否有更快的方法来创建没有循环的大型数据框？

Question

下面是我目前正在做的一个例子，它相当慢。我认为必须有比这更有效的东西，因为它需要大约 95 秒才能运行。

df <- data.frame(matrix(vector(), 1000, 1000))     
for (i in (1:1000)) {
        for (j in (i:1000)) {
                df[i, j]  <-   i *1000 + j  
                df[j, i]  <-   df[i, j]  

        }
}

还要注意 i*1000+j 只是为了说明。我在那里做其他事情，但这是一个依赖于以 1:1000 获得所有对的计算。谢谢。

Answer 1

考虑outer 重新分配矩阵返回的下三角。

out_mat <- outer(1:1E3, 1:1E3, function(i,j) i * 1E3 + j)
out_mat[lower.tri(out_mat)] <- t(out_mat)[lower.tri(t(out_mat))]
df2 <- data.frame(out_mat)

结果显示与 for 循环生成的 df 完全相同：

identical(df, df2)
# [1] TRUE

但是，以上取决于您的实际计算，因为超出了简单的算术，outer 调用可能无法工作，具体取决于尺寸。