来自统计之都，感谢 Ihavenothing（http://cos.name/cn/profile/81532）

详情参考：http://cos.name/cn/topic/151358?replies=3#post-302555

1 library(showtext)
2 setEPS()
3 postscript("cn.eps")
4 showtext.begin()
5 plot(rnorm(100), main="中文", family = "wqy")
6 showtext.end()
7 dev.off()

 其它解决方案：

http://cos.name/cn/topic/101521