如何在R中绘制大型图形

我有一个大的igraph（476.8MB），但我不能绘制它。它需要很长时间（超过一个小时）并且仍在运行。你有办法吗

graph <- graph.adjacency(weights, mode = "undirected", weighted = TRUE)
jpeg("Graph_Plot_1.jpg")
plot.igraph(graph)
plot(graph, edge.label=round(E(graph)$weight, 3))
dev.off()

---

图形为什么2
绘图
说明？删除第一个，如果您想要边缘标签，那么打印它是没有意义的，删除该代码行将减少运行时间。您告诉我们“（476.8 Mb）”，但这并不是很有用。图中有多少个节点和边？@G5W 37000个节点和9亿个节点edges@Rui同样的问题。。。要花很长时间你想画这么大的图吗？我怀疑你什么都看不见。让图形只分析和显示子图形不是更好吗？