R/ggplot2保存图片中文字体至PDF——showtext包一文清除所有障碍
- 文章概要
- 1.问题描述
- 2.Showtext包使用流程全注释
- 2.1案例介绍——导入线上的谷歌字体
- 2.2实例测试——导入本地字体,以宋体、新罗马为例
- 3拓展-新罗马与Serif的不同
- 4.showtext+ggsave保存图片字体大小设置
文章概要
1.解决R/ggplot2保存图片中文字体至PDF丢失问题。
2.解决新罗马字体(Times New Roman),宋体(simsun)导入失败问题。
3.熟悉并掌握showtext操作。(更新自0419)
4.解决保存字体大小问题(更新自0423)
1.问题描述
ggplot2作图后,使用ggsave保存图片中文字体丢失。经自己检查与网络搜寻,确定与保存方式无关,主要原因在于字体设置。经查询主要有两个包来解决字体,一个是extrafont,一个是showtext,推荐以及使用后者的较多,故博主选择后者。
PS:没有比对两者区别,选择相信多数人。
2.Showtext包使用流程全注释
2.1案例介绍——导入线上的谷歌字体
Showtext包的原文介绍有案例,但是对于新人友好程度不够高,本文进行全面的注释,以及实例操作进行说明。并且解决了宋体和新罗马字体无法读取的问题。
https://cran.r-project.org/web/packages/showtext/vignettes/introduction.html
showtext包作者的介绍
PS:昨天夜里大脑疲倦状态的自己用了半小时愣是没解决showtext包遇到的问题,今天早上起来很快就搞定一切~
library(tidyverse) #方便后面作图,其实只导入ggplot2也可以完成本例操作
library(showtext) #导入字体设置包# font_add_google showtext中从谷歌字体下载并导入字体的函数。
# name中的是字体名称,用于检索,必须严格对应想要字体的名字。
# family后面的是代码后面引用时的名称,自己随便起。
font_add_google(name = "Gochi Hand",family = "gochi")
font_add_google(name = "Schoolbell",family = "bell")
showtext_auto() # 后面字体均可以使用导入的字体# 画一个随机分布的直方图,只需关注字体设置部分即可
# 即family = ""。可以自行更改字体测试,注意要使用已导入字体。
hist(rnorm(1000),breaks = 30,col = "steelblue",border = "white",main = "",xlab = "",ylab = "")
title("Historgram of NRN",family = "bell",cex.main=2)
title(ylab="Frequency",family="gochi",cex.lab=2)
text(2,70,"N=1000 ffff",family="bell",cex = 2.5)
这个部分的代码同作者链接基本一致。但是还是要自己测试下才能说可以使用(因为自己昨天就导入宋体、新罗马总失败)
2.2实例测试——导入本地字体,以宋体、新罗马为例
说明中介绍,导入包方式如下:
font_add(family = "<family_name>", regular = "/path/to/font/file")
family中为自己后面代码引用的名字,自己随便定义。regular参数中需要制定包的路径+名称。默认路径为C:\Windows\Fonts。
可以使用font_paths()查看当前路径,或者添加新路径。
font_files()列出当前路径下的所有可得到的字体文件。
字体查询并没有新罗马,有宋体——“simsun.ttc”。.ttc意味着是字体安装合集,包括常规、粗体等,.ttf为单种字体,如果后缀名写错也会导入字体失败。
楼主头铁,找不到新罗马硬是要导入,报错如图。于是去文件中看新罗马字体路径。
但是右击并没有属性。双击进入该文件
选中想要导入的字体,右击属性,复制名字,我选中的是常规,代码如下。
font_add("songti","simsun.ttc")
font_add("TNM","times.ttf")
导入成功。
结果如下:
这里就可以直接用ggsave保存PDF了
3拓展-新罗马与Serif的不同
详细不同见这里
https://www.cnblogs.com/bravesunforever/p/10903035.html
楼主见到showtext包使用font_families()可以直接调用serif字体。于是比较了一下,代码如下:
font_families()
ggplot(NULL,aes(x=1,y=1))+ylim(0.5,1.0)+theme_bw()+annotate("text",x=0.7,y=0.7,family="serif",size=15,label="Hello,serif world")+annotate("text",x=0.7,y=0.9,family="TNM",size=15,label="Hello,TNM world")+annotate("text",x=0.7,y=0.8,family="songti",size=15,label="Hello,宋体")ggsave("字体测试1.pdf",width = 7,height = 4,dpi=96)
结果如下图,最上方为新罗马体,中间为宋体,最下方为serif。可以看出新罗马和serif还是有些不同的。
4.showtext+ggsave保存图片字体大小设置
真是气死个人,ggsava保存至PNG图片后,字体大小失调,经测试有两种解决方案。
1.原PNG分辨率设置为600,在使用Showtext包时会失效,设置为90可以。
2.设置保存格式为PDF。