R语言visNetwork输出的网络图能否保存为矢量格式PDF文件？

问题原因 #

visNetwork 是基于HTML的交互式可视化工具，自带的visExport功能本质是调用浏览器画布截图，输出的都是栅格像素图，所以导出的PDF里不会包含矢量内容。

可行解决方案 #

方案1：保留visNetwork样式，导出SVG后转PDF

该方案可以1:1保留你在visNetwork中配置的所有样式、配色、布局，最终得到完全矢量的PDF文件。

1. 先安装依赖包（如果未安装）：

install.packages(c("visNetwork", "webshot2"))

2. 运行导出代码：

library(visNetwork)
library(webshot2)

# 你的原始网络图代码
nodes <- data.frame(id = 1:3, group = c("B", "A", "B"))
edges <- data.frame(from = c(1,2), to = c(2,3))
vn <- visNetwork(nodes, edges)

# 先存为临时HTML文件
visSave(vn, file = "network_temp.html")
# 提取网络图区域导出为矢量SVG，zoom参数可调整画面精度
webshot("network_temp.html", file = "network_vector.svg", 
        selector = ".vis-network", zoom = 2)

3. 导出得到的network_vector.svg是标准矢量格式，你可以用Inkscape、Adobe Illustrator等工具直接打开，另存为PDF即可得到无画质损失的矢量PDF。

方案2：转成igraph对象直接导出矢量PDF

如果不需要保留交互样式，也可以把数据转为静态igraph对象，一步导出矢量PDF：

library(igraph)

nodes <- data.frame(id = 1:3, group = c("B", "A", "B"))
edges <- data.frame(from = c(1,2), to = c(2,3))

# 构建igraph对象
g <- graph_from_data_frame(edges, directed = FALSE, vertices = nodes)

# 直接导出矢量PDF，可自定义宽高、样式
pdf("network_output.pdf", width = 6, height = 6)
plot(g, 
     vertex.color = ifelse(V(g)$group == "A", "#97C2FC", "#FB7E81"), # 匹配visNetwork默认配色
     vertex.size = 20, 
     edge.width = 2,
     vertex.label.cex = 1)
dev.off()

内容的提问来源于stack exchange，提问作者Mika