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()