最近在用R中knitr包输出PDF文档时，图片中的中文无法显示，尝试了许多办法，Rmarkdown和Rsweave都用了，都没有解决，困扰了我好几天，哪位大神帮忙解答下，无论用Rmarkdown或者Sweave解决都行，如下是一个例子（Rnw文件），其中，“主题”两个字不显示，能够实现输出的PDF中主题中有中文即可，有可以实现的其它例子也可以，非常感谢！
\documentclass{ctexart}
\begin{document}

<<echo=FALSE>>=
library(showtext)
library(ggplot2)
a1<-c(1,2,3)
a2<-c(4,5,6)
data1<-data.frame(a1,a2)
data1
print("这样可以输出中文")
ggplot(data1,aes(x=a1,y=a2))+
geom_line()+
labs(title="主题")+
theme(plot.title=element_text(size=10,face = "bold"))
@

\end{document}