R语言绘图 pdf文件中输出中文

 

001、

dir()                             ## 直接输出
pdf("001.pdf")
plot(1:10, xlab = "测试")
dev.off()


library(sysfonts)                 ## 给输出的pdf文件增加中文
library(showtext)
font_add("myFont1", "timesbd.ttf")

pdf("002.pdf")
showtext_begin() 
plot(1:10, xlab = "测试")
showtext_end()
dev.off()
dir()