在ggplot2中使用windows字体的方法

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

很多杂志在发表文章的时候要求用Helvetica、Arial或者Times New Roman的字体，而R软件做图的时候并没有提供这些字体。今天在研究这个问题的时候发现一个讨论贴很好：
http://stackoverflow.com/questions/4094094/modifying-fonts-in-ggplot2

使用windowsFonts这个函数就可以达到要求，如下是我自己为了画线性回归而写的一个theme:
library(ggplot2)
windowsFonts(HEL=windowsFont("Helvetica CE 55 Roman"),
             RMN=windowsFont("Times New Roman"),
             ARL=windowsFont("Arial"))
old_theme <- theme_update(
             plot.title=theme_text(family="ARL", size=18, face="bold", colour="black"),
             axis.title.x=theme_text(family="HEL", size=15, colour="black"),
             axis.title.y=theme_text(family="HEL", size=15, angle=90, colour="black"),
             axis.text.x=theme_text(family="RMN", size=11, colour="black"),
             axis.text.y=theme_text(family="RMN", size=11, colour="black"),
             axis.ticks=theme_segment(colour="black"),
             panel.grid.major=theme_blank(),
             panel.grid.minor=theme_blank(),
             panel.background=theme_blank(),
             axis.line=theme_segment(size=1)
             )
运行如上的程序，直接调用函数画图：
运行的效果：

我把gglot2里面的背景、框线都给去掉了，当然，上图还需要进一步的修饰，不过离要求已经很近了。折腾了半天的经验跟大家分享一下。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享1 收藏7 回帖

关键词：windows字体 ggplot2 Windows Window gplot windows library 文章 软件 杂志

这么好的东西，怎么都不顶一下呢

好东西，帮顶

谢谢分享

谢谢LZ的精彩分享！

在R15.2上做尝试，发现theme开头的一些函数过期了，按照提示重新调整后正常，代码片段附后
windowsFonts(HEL=windowsFont("Helvetica CE 55 Roman"),
             RMN=windowsFont("Times New Roman"),
             ARL=windowsFont("Arial"))
old_theme <- theme_update(
  plot.title=element_text(family="ARL", size=18, face="bold", colour="black"),
  axis.title.x=element_text(family="HEL", size=15, colour="black"),
  axis.title.y=element_text(family="HEL", size=15, angle=90, colour="black"),
  axis.text.x=element_text(family="RMN", size=11, colour="black"),
  axis.text.y=element_text(family="RMN", size=11, colour="black"),
  axis.ticks=element_line(colour="black"),
  panel.grid.major=element_blank(),
  panel.grid.minor=element_blank(),
  panel.background=element_blank(),
  axis.line=element_line(size=1)
)

好强大呀， 学习

顺序解决了问题，太感谢了，顶顶顶

jacosis 发表于 2011-9-2 22:21
很多杂志在发表文章的时候要求用Helvetica、Arial或者Times New Roman的字体，而R软件做图的时候并没有提供 ...

多谢LZ与之分享

感谢楼主分享，雪中送炭啊！

jacosis 发表于 2011-9-2 22:21
很多杂志在发表文章的时候要求用Helvetica、Arial或者Times New Roman的字体，而R软件做图的时候并没有提供 ...

好的好的