ggplot2 保存图片 字体不协调

在使用R语言ggplot2 package画图时，导出图片总会遇到标题字体与图片不协调的情况，下面提出一种解决方案

library(Cairo)
library(ggplot2)
p <- ggplot(mtcars, aes(factor(cyl)))
# By default, uses stat="bin", which gives the count in each category
p <- p + geom_bar()
p # 右下角的绘图框（plots）会生成图片，我们通过拖拽调整绘图框的大小得到一个文本、图片比较和谐的绘图框
# par('din') 获取此时绘图框的宽高， 单位为 英寸（in），dpi指的是每英寸的像素数目
CairoPNG('plotCairo.png', width = par('din')[1], height = par('din')[2], units='in', dpi=600)# 设置一个较大的dpi可以保证图片的清晰度
plot(p) # p为已经构造好的ggplot 图
dev.off()