方法1：另存图片

方法2：用程序导出图片

原来的4.2，用如下程序替换

## 4.2 编年图网络可视化

```{r Historiograph, comment=NA, fig.height=7,fig.width=11}

options(width = 1024)

png(paste(datafolder,'histresults699.png',sep=""),width = 1200, height = 800,units = "px",pointsize = 15, bg = "white", res = NA, restoreConsole = TRUE)

net699hist <- histPlot(histresults699, n=20, size = 5, labelsize = 5)

dev.off()

net699hist

```

方法3：单独运行

net699hist <- histPlot(histresults699, n=20, size = 5, labelsize = 5)