如何保存igraph绘图

Question

很棒的igraph包，但是我正在为保存绘图而苦苦挣扎。我在网上搜寻了很多，但没有成功。这是一些示例代码，我该如何保存结果图？

Test <- data.frame(
  FirstName=c("Bob","Charlie","Beth","Sam"),
  Age=c(23,56,41,33))

Friends <- c(1,2,1,4,2,4,3,4)

g <- graph.empty (4, directed = FALSE)
V(g)$color <- "lightblue"  #Nodes$NodeColour
V(g)$label <- as.character(Test$FirstName)
g <- add.edges(g, Friends)
plot(g,
     vertex.label.color="black",
     vertex.shape="sphere",
     vertex.label.cex = 0.5,
     vertex.size=24,
     layout=layout.circle)
title("Friend Network",cex.main=1,col.main="blue")

#how do you save plot as a png?

- Zeus

---

在运行plot函数之前，输入png("my_plot.png", 600, 600)（两个数字分别为水平方向和垂直方向像素数）。然后，在title函数之后，输入dev.off()。你可以按照类似的方式保存为pdf格式。输入?pdf和?png查看这些函数的帮助信息。 - eipi10

谢谢，那个行了，感谢你的帮助。你能把你的评论变成答案，这样我就能接受它了吗？ - Zeus

感谢@Zeus。这个问题可能是一个重复的（例如，参见这里），所以不需要添加答案。 - eipi10

好的，但我会保留这个问题，以防代码能帮助其他人。 - Zeus

Answer 1

与其将图形保存为静态图像，我更喜欢将它们保存为html文件并创建交互式图形：

library(visNetwork)
library(htmlwidgets)
saveWidget(visIgraph(g), file = "test.html")

请查看https://datastorm-open.github.io/visNetwork/igraph.html获取更多详细信息。

- c0bra