快用showtext包,具体可参考
https://github.com/yixuan/showtext
http://yixuan.cos.name/cn/2015/04/showtext-new-version/
http://www.tuicool.com/articles/uINryu6
以下内容已作古,非考古人士不建议翻看XD
#画图时想把文本字体换成微软雅黑,怎么搞?
#首先,需要下载安装导入extrafont包
install.packages("extrafont")
library(extrafont)
#然后,找到字体文件位置, "C:\Windows\Fonts\微软雅黑"
#右键名为"微软雅黑 常规"的文件,选择属性,看到第一行有 "msyh" 即为字体名
#导入字体,目前只支持导入TrueType类型字体
font_import(pattern="msyh")
#查看导入的字体,如果字体导入成功,返回应为 "Microsoft YaHei",即在R中微软雅黑字体的名字
fonts()
#注册字体
loadfonts(device="win"),
#假设g为要修改的ggplot对象,在ggplot2中通过修改element_text()元素来修改字体
g=g+theme(text = element_text(family="Microsoft YaHei"))
#不出意外,图像中所有文本的字体变为微软雅黑,要修改其他字体也可依葫芦画瓢
#参考
#http://www.r-bloggers.com/change-fonts-in-ggplot2-and-create-xkcd-style-graphs/