theme_get()$text
显示一个list，family为默认空白，默认是sans（Arial字体）。
 List of 11
 $ family : chr “”
 $ face : chr “plain”
 $ colour : chr “black”
 $ size : num 11
 $ hjust : num 0.5
 $ vjust : num 0.5
 $ angle : num 0
 $ lineheight : num 0.9
 $ margin : ‘margin’ num [1:4] 0pt 0pt 0pt 0pt
 …- attr(, “valid.unit”)= int 8
 …- attr(, “unit”)= chr “pt”
 $ debug : logi FALSE
 $ inherit.blank: logi TRUE
 
attr(*, “class”)= chr [1:2] “element_text” “element”
 
2.查看Windows系统下的字体
 
windowsFonts()
显示如下，
 $serif
 [1] “TT Times New Roman”
 
$sans
 [1] “TT Arial”
 
$mono
 [1] “TT Courier New”
 
3.修改成Time New Roman
 
修改theme函数，family指定serif（Times New Roman）即可。
 
p+theme(text=element_text(size=16,  family="serif"))
对于导入其它字体，参考extrafont包。
 
4.参考文献
 
【1】https://stackoverflow.com/questions/34610165/what-is-the-default-font-for-ggplot2
 【2】https://stackoverflow.com/questions/34522732/changing-fonts-in-ggplot2
                                    作者：居居
日期：2021-11-08
ggpubr是一个ggplot2的拓展包，代码量大幅度降低。主题系统简单。闲话少说，上例子，代码可以直接copy去改改，我们要致力于从复杂的绘图工作中解脱出来。
还是那句话，下面的代码懂的都懂，不明白的去看看ggplot2和ggpubr。
1.准备好程辑包（似乎只有R语言社区这么称呼这东西）
library("tidyverse")
library("rio")
library("ggpubr")
library("data.table")
2.ggpubr预设主题
                                    ggdendroplot
 一个包，可在中绘制高度可修改的树状图。 可以很容易地修改树状图并将其添加到现有的ggplot对象中。 ggdendroplot将data.frame或矩阵作为输入，其中要对列进行聚类（按行）。 然后，ggdendroplot使用R 的dist和hclust函数生成聚类矩阵和一个对象，其中包含有关分层聚类的数据。 然后使用ggplot2的geom_path图层对数据进行可视化处理。
从git仓库安装ggdendroplot软件包：
 devtools :: install_github( " solatar/dendroplot " )
默认树状图
加载软件包，在ggplot中创建第一个括号。 您可以通过clustmethod争论更改聚类算法（默认情况下为“ complete”，请检查“ hclust”以查看该方法还有哪些其他选项）。 
library( g
ggplot2中theme_get()$text可查看当前theme默认设置
字体默认为“sans”
可以看到支持字体 Times New Roman，只需在画图代码最后加上下面的代码
 theme(text=element_text("serif"))
参考：https://stackoverflow.com/questions/34522732/changing-fonts-in-ggplot2
【R_可视化】使用wordcloud包制作分类词云图一文中，需要将绘图英文字体设为Times New Roman。
	查阅资料得知，同样用于制作词云图的wordcloud包，其设置英文字体的参数为"fontFamily"，示例代码如下。
library(wordcloud2)
wordfreqs <- readxl::read_excel("D:/…….xlsx")
wordcloud2(wordfreqs,
           size=0.5,　＃可更改
p<-ggplot(raw_m, aes(x=ymd(date),y = NOx/1000)) +
  geom_area(size = 0.7,fill="#69b3a2", alpha=0.4)+
    #alph
海洋和黑夜变种中的RStudio完整端口。该主题是使用的作为模板的。海洋： 
要安装Ocean变体，请在RStudio控制台中运行以下命令：
 rstudioapi :: addTheme( " https://raw.githubusercontent.com/lusignan/RStudio-Material-Theme/main/material-ocean.rstheme " , apply = TRUE )黑夜： 
要安装Palenight变体，请在RStudio控制台中运行以下命令：
 rstudioapi :: addTheme( " https://raw.githubusercontent.com/lusignan/RStudio-Material-Theme/main/material-palenight.rstheme " , apply = 
                                    对于x轴，假设有许多数据点，默认的文本格式会导致每个刻度线的标签与其他标签重叠。如何(a)更改轴文本的字体大小，以及(b)更改文本的方向，使文本垂直于轴？处理重叠标签的另一种方法是使用。更改文本的方向，使文本垂直于轴。
                                    现在的图看上去还行，但需要修改的地方还有很多。ggplot默认的颜色有点烂大街，需要手动调色。添加拟合（smooth）、图片标题（ggtitle/ also labs）、轴标题（labs）、注释（annotate）；最后调整图的细节，代码一经写好直接套用，字体字号全都修改好，直接在论文中使用，免得去AI手动修改。花上面那张图，只需要两行代码就行了，这就是图层语言。优化后的图基本符合科研论文的绘图要求和出版规范，无论在美观程度 上还是格式等等。对比一下最初的图和优化后的结果。对比一下最初的图和优化后的结果。