使代码更快 - 为数据帧中的每一行进行矢量化？

Question

我有以下代码，通过遍历数据框的每一行并向图中添加边来使用rgraphviz包创建图。

这有点慢，我怀疑没有for each循环可以更快，而是使用by（）或apply（）代替。任何人都可以提供如何做到这一点的代码吗？

最终目标是使代码更快，所以也欢迎其他建议。

gR <- new("graphNEL", nodes = nodes, edgemode = "directed")
#add edges for each row in df
for (j in (1:nrow(df))) {
   gR <- addEdge(df[j,2], df[j,1], gR, 1)
}