查看原文
其他

R语言 | 使用ggsci包绘制sci风格图表

ggsci 大邓和他的Python
2024-09-09

今天分享一个R语言ggsci包,帮你绘制出美观舒服,又合期刊编辑审美风格的图表。


ggsci

安装

install.packages("ggsci")
#remotes::install_github("nanxstats/ggsci")

使用 vignette("ggsci")可以查看ggsci的vignette。


期刊风格

ggsci支持的主题风格主要参考自期刊、可视化库

风格期刊、技术框架
NPGNature旗下期刊(Nature Publishing Group)
AAASScience旗下期刊()
NEJM新英格兰医学杂志(New England Journal of Medicine)
Lancet柳叶刀杂志(Lancet Oncology)
JAMA美国医学学会杂志(Journal of the American Medical Association)
JCO临床肿瘤学杂志(Journal of Clinical Oncology)
UCSCGBUCSC基因组浏览器(UCSC Genome Browser)
D3d3.js
......

基本图表

这里准备一个常见的ggplot2图表

library("ggsci")
library("ggplot2")
library("gridExtra")

data("diamonds")

p1 = ggplot(subset(diamonds, carat >= 2.2),
aes(x = table, y = price, colour = cut)) +
geom_point(alpha = 0.7) +
geom_smooth(method = "loess", alpha = 0.05, size = 1, span = 1) +
theme_bw()

p2 = ggplot(subset(diamonds, carat > 2.2 & depth > 55 & depth < 70),
aes(x = depth, fill = cut)) +
geom_histogram(colour = "black", binwidth = 1, position = "dodge") +
theme_bw()

grid.arrange(p1, p2, ncol=2)

NPG

ature旗下期刊(Nature Publishing Group)配色风格

p1_npg = p1 + scale_color_npg()
p2_npg = p2 + scale_fill_npg()
grid.arrange(p1_npg, p2_npg, ncol = 2)

AAAS

Science旗下期刊(American Association for the Advancement of Science)配色风格

p1_aaas = p1 + scale_color_aaas()
p2_aaas = p2 + scale_fill_aaas()
grid.arrange(p1_aaas, p2_aaas, ncol = 2)

NEJM

新英格兰医学杂志(New England Journal of Medicine)配色风格

p1_nejm = p1 + scale_color_nejm()
p2_nejm = p2 + scale_fill_nejm()
grid.arrange(p1_nejm, p2_nejm, ncol = 2)

Lancet

柳叶刀杂(Lancet)志配色风格

p1_lancet = p1 + scale_color_lancet()
p2_lancet = p2 + scale_fill_lancet()
grid.arrange(p1_lancet, p2_lancet, ncol = 2)

JAMA

美国医学学会杂志(Journal of the American Medical Association)配色风格

p1_jama = p1 + scale_color_jama()
p2_jama = p2 + scale_fill_jama()
grid.arrange(p1_jama, p2_jama, ncol = 2)

JCO

临床肿瘤学杂志(Journal of Clinical Oncology)配色风格

p1_jco = p1 + scale_color_jco()
p2_jco = p2 + scale_fill_jco()
grid.arrange(p1_jco, p2_jco, ncol = 2)

D3

d3.js配色风格

p1_d3 = p1 + scale_color_d3()
p2_d3 = p2 + scale_fill_d3()
grid.arrange(p1_d3, p2_d3, ncol = 2)

更多细节

更多细节请查看ggsci文档 https://nanx.me/ggsci/


精选文章

从符号到嵌入:计算社会科学的两种文本表示

长期征稿 | 欢迎各位前来投稿

17G数据集 | 深交所企业社会责任报告

百度指数 | 使用qdata采集百度指数

推荐 | 社科(经管)文本分析快速指南

视频分享 | 文本分析在经管研究中的应用

MS | 使用网络算法识别创新的颠覆性与否

使用cntext训练Glove词嵌入模型

认知的测量 | 向量距离vs语义投影

Wordify | 发现和区分消费者词汇的工具

在jupyter中显示pdf内容

EmoBank | 中文维度情感词典

Asent库 | 英文文本数据情感分析

视频专栏课 | Python网络爬虫与文本分析

资料 | 量化历史学与经济学研究

PNAS | 文本网络分析&文化桥梁Python代码实现

BERTopic库 | 使用预训练模型做话题建模

tomotopy | 速度最快的LDA主题模型

管理世界 | 使用文本分析词构建并测量短视主义

Wow~70G上市公司定期报告数据集

100min视频 | Python文本分析与会计

在jupyter内运行R代码

blogdown包 | 使用R语言维护Hugo静态网站
R语言 | 使用posterdown包制作学术会议海报

R语言 | 将多个txt汇总到一个csv文件中

继续滑动看下一个
大邓和他的Python
向上滑动看下一个

您可能也对以下帖子感兴趣

文章有问题?点此查看未经处理的缓存