ggplot2中theme_get()$text可查看当前theme默认设置
字体默认为“sans”
可以看到支持字体 Times New Roman，只需在画图代码最后加上下面的代码
theme(text=element_text("serif"))
参考：https://stackoverflow.com/questions/34522732/changing-fonts-in-ggplot2
在R中Windows与Linux环境不同 字体写法有时也有区别下表是一些字体的对应ggplot2中theme_get()$text可查看当前theme默认设置字体默认为“sans”可以看到支持字体 Times New Roman，只需在画图代码最后加上下面的代码 theme(text=element_text("serif"))参考：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预设主题
用ggplot2作完图，输出图片或者用ggsave()保存图片时可能会碰到字体错误问题，如设置字体为Arial后：
Error in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :
字体类别出错
一种解决方法是用 showtext 包输入需要的字体：
library(showtext)
font_add('Arial','/Library/Fonts/Arial.ttf') #加载字体，MAC 中字体库在 /Lib
p<-ggplot(raw_m, aes(x=ymd(date),y = NOx/1000)) +
geom_area(size = 0.7,fill="#69b3a2", alpha=0.4)+
#alph
文章目录1.查看当前的ggplot2默认字体2.查看Windows系统下的字体3.修改成Time New Roman4.参考文献
1.查看当前的ggplot2默认字体
theme_get()$text
显示一个list，family为默认空白，默认是sans（Arial字体）。
List of 11
$ family : chr “”
$ face : chr “pl...
【R_可视化】使用wordcloud包制作分类词云图一文中，需要将绘图英文字体设为Times New Roman。
查阅资料得知，同样用于制作词云图的wordcloud包，其设置英文字体的参数为"fontFamily"，示例代码如下。
library(wordcloud2)
wordfreqs <- readxl::read_excel("D:/…….xlsx")
wordcloud2(wordfreqs,
size=0.5, ＃可更改
主要使用函数geom_text()在特定的x和y坐标处添加标签label
geom_text()支持修改所有几何对象的大多数图形属性，因为调整文本展示形式的方法不可胜数
family设置字体，当前只有3种通用字体 sans（默认）、serif和mono
sans是无衬线字体，一般和汉字中的黑体相对应
serif是有衬线字体，一般和汉字中的宋体相对应
mono是等宽字体
df <- data.frame(x = 1, y = 3:1,
family = c("sans", "serif",
>colnames(data1)[seq(2,ncol(data1),15)]
[1]"AAAA""AAGG""ATGC""ACGT""AGGA""TACG""TTCC""TCCT""TGCA""CATG"
[11]"CTTC""CCTT""CGTA""GAAG""GTAC""GCAT""GGAA""GGGG"
>gg...
ggplot(data, aes(x = x, y = y)) +
geom_point() +
labs(title = "散点图示例", x = "X轴标签", y = "Y轴标签")
这将创建一个简单的散点图，其中添加了标题和轴标签。您可以更改 `data` 数据集和 `labs` 标题和轴标签的参数来适应您的数据和需要。
