ggpubr+ggplot2轻松做到中英文字体分设，离达到出版要求又近了一步

2024-05-19 10:44:50

作者：居居

日期：2021-11-08

ggpubr是一个ggplot2的拓展包，代码量大幅度降低。主题系统简单。闲话少说，上例子，代码可以直接copy去改改，我们要致力于从复杂的绘图工作中解脱出来，专心搞科研！

还是那句话，下面的代码懂的都懂，不明白的去看看ggplot2和ggpubr。

1.准备好程辑包（似乎只有R语言社区这么称呼这东西）

library("tidyverse")
library("rio")
library("ggpubr")
library("data.table")

2.ggpubr预设主题（用的时候直接复制，前面的序号可别复制进去，否则出错）

2.1 NPG
2.2 AAAS
2.3 NEJM
2.4 Lancet
2.5 JAMA
2.6 JCO
2.7 UCSCGB
2.8 D3
2.9 LocusZoom
2.10 IGV
2.11 COSMIC
2.12 UChicago
2.13 Star Trek
2.14 Tron Legacy
2.15 Futurama
2.16 Rick and Morty
2.17 The Simpsons

3.主题设置和字体设置（重头戏，中英字体分设在此，这部分只需要设置一次，后面终身使用）

fontSize=9 #字号
themE="NPG"
windowsFonts(st=windowsFont("宋体"),tnr=windowsFont("Times New Roman"),fs=windowsFont("仿宋"),wryh=windowsFont("微软雅黑"),dx=windowsFont("等线"))
p<- font("xylab", size = fontSize,family="dx")+ #坐标轴标题
#刻度的文字大小和字体font("xy.text", size = fontSize,family="tnr")+
#图例文字大小和字体font("legend.text", size = fontSize,family="tnr")+
#图例的标题的文字大小和字体font("legend.title", size = fontSize,family="tnr")+
#图例图标大小theme(legend.key.size = unit(0.1, "inches")) +
#图表网格颜色、线形、线宽grids(linetype = "dashed",color='gray66',size=0.1)+
#图表外边框的线宽border(size=0.3)+
#刻度的宽度和长度还有朝向theme(axis.ticks = element_line(size = 0.3),axis.ticks.length =unit(-0.1,'cm'))

4.准备数据

data<-dataset%>%gather("Hokkaido", "Aomori" ,  "Iwate"  ,  "Miyagi" ,  "Tokyo",key =City, ,value=Infection_population  )
data$Date<-as.character(data$Date)
data%>%dplyr::filter(Infection_population>10100 & Infection_population<20100)
data%>%select(1)
dataT<-data.table(dataset)
nrow(dataT)
view(dataT[Infection_population<1000])

5.绘图

g<-ggbarplot(data, "Date", "Infection_population",
fill = "City",
color = "white",
x.text.angle = 45 ,
y.text.angle = 0 ,
xlab="日期",
ylab="感染人数",
palette = themE,
position = position_dodge(0.9)
)+p
g+p
ggsave(filename = "foo2.png",g,width = 15, height = 9, dpi = 300, units = "cm",device='png')

由于先前设置的图片大小是15cm*9cm，所以在word中也要把图片调成这个大小，才能让字体大小等于9，英文9号对应的是中文小五号。中英文字号大小自行百度，其他的原理跟上一篇文章的一样seaborn傻瓜级主题设置，轻松使图表达到报告和论文的样式要求

ggplot2 绘图天下第一，这也是很多人不舍得放弃R的原因。欢迎交流

ggpubr+ggplot2轻松做到中英文字体分设，离达到出版要求又近了一步相关推荐

R语言-出图时的中英文字体解决方案
目录方案1- showtext 方案2-Cairo 在某些时候,需要在 R 画图中添加中文,但是默认情况下,R 对中文的支持不好. 方案1- showtext 这里推荐一个showtext的 R 包 ...
html 中英文字体自动,用ASP实现中英文字体的自动选择-ASP教程,ASP应用
用asp实现中英文字体的自动选择在windows系统中,每一种语言的字符的显示都有对应的默认字体,例如在大部分的应用程序中,简体中文(gb2312)字符默认的显示字体是"宋体", ...
R画图中英文字体完美解决方案
fontforge.png R语言用来做数据处理和分析很方便,借助ggplot2能够方便的画出比较漂亮且信息丰富的图形,但是由于历史原因,R对中文的支持并不是很好,尤其是作图的时候需要一些特殊的技巧才 ...
R语言ggplot2可视化增大图例字体实战
R语言ggplot2可视化增大图例字体实战目录 R语言ggplot2可视化增大图例字体实战 #ggplot2可视化增大图例字体(小号字
Py之Matplotlib：python包之Matplotlib库图表绘制经验总结(中英文字体修改、横坐标文字进行横/纵向显示、控制坐标轴范围等)之详细攻略
Py之Matplotlib:python包之Matplotlib库图表绘制经验总结(中英文字体修改.横坐标文字进行横/纵向显示.控制坐标轴范围等)之详细攻略目录 1.Matplotlib库图表绘制包 ...
Emacs 中英文字体设置
鱼与熊掌不可兼得,一个好的英文字体不一定能够显示好的中文字体. Emacs 在这个方面体现了较好的制定性,可以分别设置中英文字体,看着更顺眼. 在 .emacs 中加入以下字段: 其中 "m ...
Python 打印的中英文字体如何对齐？
提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档文章目录打印中英文字体如何对齐? 在Python下对齐打印中英文混合字符串 1.初步想法:利用字符串函数Format()格式化输出 ...
Java设置中文字体大小_eclipse中文字体大小修改，让中英文字体协调
貌似有不少人苦恼eclipse中文字体大小修改问题,默认的eclipse中文字体很小,和英文字体大小完全不在一个调子上,因为默认的eclipse juno中英文字体是Consolas,字体大小是10, ...
WinEdt中英文字体调节
WinEdt中英文字体调节 WinEdt10之后的版本,在编译器中设置字体只能设置一种,当我们编辑器中又有中文,又有英文的时候会变得很难看,所以我们需要更改设置脚本以对中英文字体分别设置设置英文字体 ...
java如何输出大小不同的字_Eclipse下中英文字体大小不一致,如何解决
公告: 为响应国家净网行动,部分内容已经删除,感谢读者理解. 话题:Eclipse下中英文字体大小不一致,如何解决回答:默认的是Courier字体吧?换成Courier New字体就好了,大小不用改. ...

最新文章

热门文章