在ggplot2中使用windows字體的方法

相似文件 換一批

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個全額獎學金名額~ !

立即領取

感謝您參與論壇問題回答

經(jīng)管之家送您兩個論壇幣！

+2 論壇幣

很多雜志在發(fā)表文章的時候要求用Helvetica、Arial或者Times New Roman的字體，而R軟件做圖的時候并沒有提供這些字體。今天在研究這個問題的時候發(fā)現(xiàn)一個討論貼很好：
http://stackoverflow.com/questions/4094094/modifying-fonts-in-ggplot2

使用windowsFonts這個函數(shù)就可以達到要求，如下是我自己為了畫線性回歸而寫的一個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)
             )
運行如上的程序，直接調(diào)用函數(shù)畫圖：
運行的效果：

我把gglot2里面的背景、框線都給去掉了，當然，上圖還需要進一步的修飾，不過離要求已經(jīng)很近了。折騰了半天的經(jīng)驗跟大家分享一下。

掃碼加我 拉你入群

請注明：姓名-公司-職位

以便審核進群資格，未注明則拒絕

分享1 收藏7 回帖

關鍵詞：windows字體 ggplot2 Windows Window gplot windows library 文章 軟件 雜志

這么好的東西，怎么都不頂一下呢

好東西，幫頂

謝謝分享

謝謝LZ的精彩分享！

在R15.2上做嘗試，發(fā)現(xiàn)theme開頭的一些函數(shù)過期了，按照提示重新調(diào)整后正常，代碼片段附后
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 發(fā)表于 2011-9-2 22:21
很多雜志在發(fā)表文章的時候要求用Helvetica、Arial或者Times New Roman的字體，而R軟件做圖的時候并沒有提供 ...

多謝LZ與之分享

感謝樓主分享，雪中送炭��！

jacosis 發(fā)表于 2011-9-2 22:21
很多雜志在發(fā)表文章的時候要求用Helvetica、Arial或者Times New Roman的字體，而R軟件做圖的時候并沒有提供 ...

好的好的