R/ggplot2保存图片中文字体至PDF——showtext包一文清除所有障碍

文章概要

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。