Fonts R postscript EPS缺少字体系列

当我试图将网络的绘图导出为eps文件时，我遇到了字体问题。我检查了一些解决方案，但它们对我的案例不起作用。有什么建议吗。 谢谢 网络脚本：

library(igraph)
rt.g=graph.adjacency(m,mode="undirected",weighted=TRUE,diag=FALSE)
# node size
node <-c(13643,736,68865,21928,90238,195057,98361,1124,28500,93839,3851,3077,202112,61550,91769,63042)
normalized <- function(x){log((x-min(x)/(max(x)-min(x))))}
node.size <- normalized(node)
#edge color
E(rt.g)[E(rt.g)$weight > 0.012]$color <- "green"
E(rt.g)[E(rt.g)$weight > 0.05]$color <- "yellow"
E(rt.g)[E(rt.g)$weight > 0.12]$color <- "blue"
E(rt.g)[E(rt.g)$weight > 0.20]$color <- "red"
V(rt.g)$color <- "white"
l <-layout.fruchterman.reingold(rt.g)
V(rt.g)$label.cex <- 0.5
setEPS(horizontal=FALSE, onefile=FALSE,paper="special",height=10,width=10,fonts="serif")
postscript("Desktop/TEP/test.eps")
plot.igraph(rt.g,layout=l,edge.width=E(rt.g)$weight*20,edge.curved=TRUE,vertex.size=node.size*3,
            vertex.label.color="black",vertex.label.family="serif")
title("RETWEET NETWORK USER TRANSITION",cex.main=1,col.main="black")

库（igraph）
rt.g=图形邻接（m，mode=“无向”，加权=真，diag=假）
#节点大小
node也许可以试试这个：嘿@GaborCsardi，我想说igraph是一个非常好的软件包，对我的博士研究有很大帮助。我也检查了这篇文章，并尝试了一下，但对我来说不起作用。
m<-structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.03468, 
               0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.08419, 0.00875, 
               0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.08428, 0.01774, 0.07538, 
               0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.07147, 0.00616, 0.10662, 
               0.06744, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0488, 0.00326, 
               0.15874, 0.06453, 0.13466, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.04932, 
               0.00317, 0.13905, 0.04885, 0.07183, 0.11243, 0, 0, 0, 0, 0, 0, 
               0, 0, 0, 0, 0.00217, 0.00215, 0.00488, 0.001, 9e-04, 0.0021, 
               0.0024, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.06712, 0.011, 0.15263, 0.05229, 
               0.06677, 0.07933, 0.05643, 0.00581, 0, 0, 0, 0, 0, 0, 0, 0, 0.06908, 
               0.00368, 0.16238, 0.06328, 0.09534, 0.14891, 0.22466, 0.00285, 
               0.07379, 0, 0, 0, 0, 0, 0, 0, 0.068, 0.04153, 0.03829, 0.04145, 
               0.02365, 0.01565, 0.01834, 0.01035, 0.06065, 0.02488, 0, 0, 0, 
               0, 0, 0, 0.03696, 0.00052, 0.01742, 0.02982, 0.01546, 0.01098, 
               0.01147, 0.00119, 0.00953, 0.01472, 0.02941, 0, 0, 0, 0, 0, 0.03517, 
               0.00342, 0.12671, 0.0469, 0.10817, 0.1828, 0.1296, 0.00164, 0.06531, 
               0.16134, 0.01375, 0.00845, 0, 0, 0, 0, 0.06844, 0.00567, 0.19389, 
               0.07643, 0.10884, 0.13651, 0.12315, 0.00544, 0.11638, 0.214, 
               0.04113, 0.0191, 0.1258, 0, 0, 0, 0.05821, 0.00652, 0.18156, 
               0.06273, 0.10418, 0.13901, 0.13007, 0.0117, 0.10891, 0.19306, 
               0.03167, 0.01255, 0.13751, 0.24926, 0, 0, 0.06268, 0.0062, 0.15536, 
               0.06376, 0.11104, 0.11026, 0.09269, 0.00416, 0.13088, 0.18158, 
               0.04146, 0.01284, 0.11865, 0.25821, 0.21147, 0), .Dim = c(16L, 
                                                                         16L), .Dimnames = list(c("Civil \nLiberties", "Economy", "Foreign\nPolicy", 
                                                                                                  "Women's\nRights", "Workers' \nRights", "Political\nPolarisation", 
                                                                                                  "Kurdish \nPeace Process", "Presidential \nSystem", "Parallel\nState", 
                                                                                                  "HDP\nElection\nSlogans", "Government\nCorruption\nScandal", 
                                                                                                  "Environmental\nIssues", "Related \nwith\nElection", "CHP\nElection\nSlogans", 
                                                                                                  "AKP\nElection\nSlogans", "MHP\nElection\nSlogans"), c("Civil \nLiberties", 
                                                                                                                                                         "Economy", "Foreign\nPolicy", "Women's\nRights", "Workers' \nRights", 
                                                                                                                                                         "Political\nPolarisation", "Kurdish \nPeace Process", "Presidential \nSystem", 
                                                                                                                                                         "Parallel\nState", "HDP\nElection\nSlogans", "Government\nCorruption\nScandal", 
                                                                                                                                                         "Environmental\nIssues", "Related \nwith\nElection", "CHP\nElection\nSlogans", 
                                                                                                                                                         "AKP\nElection\nSlogans", "MHP\nElection\nSlogans")))