来自统计之都，感谢 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
R 保存包含中文的 eps 图片--showtext,布布扣,bubuko.com
原文：http://www.cnblogs.com/shalijiang/p/3762718.html