R图片保存到PDF文件中顺利显示中文的方法

较早的时候我曾求助过一个帖子用pdf文件保持图片显示不了中文吗？,但长久以来一直没有回复，于心不甘。 由于个人对于矢量图（放大不失真）有特别偏好，所以还是专门去研究了这一部分，目前发现有两个方法可以实现：

一、简捷方法：直接在PDF()中设定字体，添加family=”GB1”参数；

 其优点是方便快捷；缺点是字体单一，只有标准宋体。
 如果想进一步了解PDF的字体库可通过names(pdfFonts())命令查看。 
 在此，我依旧使用上一个帖子（作业3.7）的数据来演示一下：
1
2
3

student19<-read.table("student19.txt",header=T)
attach(student19)
pdf("char_3.7_1.pdf",family="GB1")
plot(身高,体重)
dev.off()   
1
2
3
4
5

二、高级方法：调用Cairo程序包，使用CairoPDF()函数画图

library(Cairo)
CairoPDF("char_3.7_2.pdf")
plot(身高,体重,family=”STKaiti”)  #
STKaiti 表示字体为华文行楷；
dev.off()
1
2
3
4
5