![alt](https://i-blog.csdnimg.cn/blog_migrate/8829fba22e4df503f7f4fc48c7c95c81.png)
1写在前面
总有小伙伴问我figure
的配色是怎么弄的,本期介绍一下我个人常用的一些配色R包
。 😘
2用到的包
rm(list = ls())
library(tidyverse)
library(ggsci)
library(patchwork)
3示例数据
这期使用示例数据为
movies_long
数据集。
library(ggstatsplot)
dat <- movies_long
![alt](https://i-blog.csdnimg.cn/blog_migrate/83adf8765bee8bcbbacd2781fea1d5d5.png)
我们先看一下变量的类型吧。🧐
str(dat)
![alt](https://i-blog.csdnimg.cn/blog_migrate/3775faadb791ed40cddc4b47d38a50e2.png)
4离散型配色
4.1 初步绘图
我们先用ggplot
画2个图吧,配色真的是一言难尽
啊~ 😣
p1 <- dat %>%
ggplot(aes(x = length, y = rating, colour = genre)) +
geom_point(alpha = 0.7) +
geom_smooth(method = "loess", alpha = 0.05, size = 1, span = 1) +
theme_bw()
p2 <- dat %>%
ggplot(aes(x = rating, fill = genre)) +
geom_histogram(binwidth = 0.8, position = "dodge") +
theme_bw()
p1 + p2
![alt](https://i-blog.csdnimg.cn/blog_migrate/9b7b3a9e2c5d20ab501f49d4d291151f.png)
4.2 NPG配色
出自
Nature Publishing Group
的配色。
p1_npg <- p1 + scale_color_npg()
p2_npg <- p2 + scale_fill_npg()
p1_npg + p2_npg
![alt](https://i-blog.csdnimg.cn/blog_migrate/0f9b1aa3964025e8342e436aa8cf9fc6.png)
4.3 AAAS配色
出自
American Association for the Advancement of Science
的配色。
p1_aaas <- p1 + scale_color_aaas()
p2_aaas <- p2 + scale_fill_aaas()
p1_aaas + p2_aaas
![alt](https://i-blog.csdnimg.cn/blog_migrate/4a45dde4db7c497f36e22af0342c6d5d.png)
4.4 NEJM配色
出自
The New England Journal of Medicine
的配色。
p1_nejm = p1 + scale_color_nejm()
p2_nejm = p2 + scale_fill_nejm()
p1_nejm + p2_nejm
![alt](https://i-blog.csdnimg.cn/blog_migrate/9f6cc7410f3c5b2b04b09e599ad7d7bf.png)
4.5 Lancet配色
出自
Lancet
的配色。
p1_lancet <- p1 + scale_color_lancet()
p2_lancet <- p2 + scale_fill_lancet()
p1_lancet + p2_lancet
![alt](https://i-blog.csdnimg.cn/blog_migrate/e437587ee131fa652a9b698ecddcd646.png)
4.6 JAMA配色
出自
The Journal of the American Medical Association
的配色。
p1_jama <- p1 + scale_color_jama()
p2_jama <- p2 + scale_fill_jama()
p1_jama + p2_jama
![alt](https://i-blog.csdnimg.cn/blog_migrate/e996e49b293c6c9beade579a0d6ac783.png)
4.7 JCO配色
出自
Journal of Clinical Oncology
的配色。
p1_jco <- p1 + scale_color_jco()
p2_jco <- p2 + scale_fill_jco()
p1_jco + p2_jco
![000014 (4)](https://i-blog.csdnimg.cn/blog_migrate/4662bf4d7802957cf44fa080f0fd726a.png)
4.8 UCSCGB配色
出自
UCSC Genome Browser
的配色。
p1_ucscgb <- p1 + scale_color_ucscgb()
p2_ucscgb <- p2 + scale_fill_ucscgb()
p1_ucscgb + p2_ucscgb
![alt](https://i-blog.csdnimg.cn/blog_migrate/93872a413d4ca50fdb510208896c8911.png)
4.9 D3配色
出自
D3.js
的配色。
p1_d3 <- p1 + scale_color_d3()
p2_d3 <- p2 + scale_fill_d3()
p1_d3 + p2_d3
![alt](https://i-blog.csdnimg.cn/blog_migrate/c5a59fc9eb0a0abb4c536a175d4798ed.png)
4.10 LocusZoom配色
出自
LocusZoom
的配色。
p1_locuszoom <- p1 + scale_color_locuszoom()
p2_locuszoom <- p2 + scale_fill_locuszoom()
p1_locuszoom + p2_locuszoom
![alt](https://i-blog.csdnimg.cn/blog_migrate/3960b3976e3f1e1dbb0fc2355cd47a6f.png)
4.11 Integrative Genomics Viewer配色
出自
Integrative Genomics Viewer
的配色。
p1_igv <- p1 + scale_color_igv()
p2_igv <- p2 + scale_fill_igv()
p1_igv + p2_igv
![alt](https://i-blog.csdnimg.cn/blog_migrate/ee126cd2e7b3ca0c28d5a9b93935f996.png)
4.12 UChicago配色
出自
University of Chicago
的配色。
p1_uchicago <- p1 + scale_color_uchicago()
p2_uchicago <- p2 + scale_fill_uchicago()
p1_uchicago + p2_uchicago
![000014 (8)](https://i-blog.csdnimg.cn/blog_migrate/bde83eadff0e3eaf4480bd9142168e3d.png)
4.13 Star Trek配色
出自
Star Trek
的配色。
p1_startrek <- p1 + scale_color_startrek()
p2_startrek <- p2 + scale_fill_startrek()
p1_startrek+ p2_startrek
![alt](https://i-blog.csdnimg.cn/blog_migrate/01f4d2918bc57443fd0ddd3bb09392d0.png)
4.14 Tron Legacy配色
出自
Tron Legacy
的配色。
p1_tron <- p1 + scale_color_tron()
p2_tron <- p2 + scale_fill_tron()
p1_tron + p2_tron
![alt](https://i-blog.csdnimg.cn/blog_migrate/4986a822473dfde371ca34c2cbd0af85.png)
4.15 Futurama配色
出自
Futurama
的配色。
p1_futurama <- p1 + scale_color_futurama()
p2_futurama <- p2 + scale_fill_futurama()
p1_futurama + p2_futurama
![alt](https://i-blog.csdnimg.cn/blog_migrate/ddedfe095f0365e4a10803016b385a74.png)
4.16 Rick and Morty配色
出自
Rick and Morty
的配色。
p1_rickandmorty <- p1 + scale_color_rickandmorty()
p2_rickandmorty <- p2 + scale_fill_rickandmorty()
p1_rickandmorty + p2_rickandmorty
![alt](https://i-blog.csdnimg.cn/blog_migrate/92773c0dc67ccc32077ce6853f6d1ebe.png)
4.17 The Simpsons配色
出自
The Simpsons
的配色。
p1_simpsons <- p1 + scale_color_simpsons()
p2_simpsons <- p2 + scale_fill_simpsons()
p1_simpsons + p2_simpsons
![alt](https://i-blog.csdnimg.cn/blog_migrate/d73a23903a26d154a20f030a10d05c44.png)
5连续型配色
5.1 初步绘图
应用场景:连续型配色多用于热图
、相关性矩阵
等等。
这里我们用ggplot
画个热图吧,需要整理成ggplot
需要的数据格式。 🤨
但如果大家要画相对复杂的热图还是推荐使用ComplexHeatmap
包,以后我们再介绍吧。😊
library("reshape2")
cor <- cor(unname(cbind(dat[,3:6],dat[,3:6],dat[,3:6],dat[,3:6])))
cor_melt <- melt(cor)
p3 <- cor_melt %>%
ggplot(aes(x = Var1, y = Var2, fill = value)) +
geom_tile(size = 0.3,na.rm = T) +
theme_bw() +
theme(axis.title.x = element_blank(),
axis.title.y = element_blank())
p3
![alt](https://i-blog.csdnimg.cn/blog_migrate/9362586c40b195a8c93fe8d6fc726b80.png)
5.2 GSEA配色
出自
GSEA GenePattern
的配色。
p3_gsea <- p3 + scale_fill_gsea()
p3_gsea_inv <- p3 + scale_fill_gsea(reverse = TRUE)
p3_gsea + p3_gsea_inv
![alt](https://i-blog.csdnimg.cn/blog_migrate/ec0d97c4795292c45addab722bbd4971.png)
5.3 Material Design
出自
material design color guidelines
的配色。
wrap_plots(
p3 + scale_fill_material("red"), p3 + scale_fill_material("pink"),
p3 + scale_fill_material("purple"), p3 + scale_fill_material("deep-purple"),
p3 + scale_fill_material("indigo"), p3 + scale_fill_material("blue"),
p3 + scale_fill_material("light-blue"), p3 + scale_fill_material("cyan"),
p3 + scale_fill_material("teal"), p3 + scale_fill_material("green"),
p3 + scale_fill_material("light-green"), p3 + scale_fill_material("lime"),
p3 + scale_fill_material("yellow"), p3 + scale_fill_material("amber"),
p3 + scale_fill_material("orange"), p3 + scale_fill_material("deep-orange"),
p3 + scale_fill_material("brown"), p3 + scale_fill_material("grey"),
p3 + scale_fill_material("blue-grey")
)
![alt](https://i-blog.csdnimg.cn/blog_migrate/3f95c7cf07507f97e0dab28608c28772.png)
6非ggplot中的应用
6.1 提取配色
有时候我们会遇到画的图并不是基于ggplot
的,这个时候我们可以提取配色进行应用。
mypal <- pal_npg("nrc", alpha = 0.7)(9)
mypal
![alt](https://i-blog.csdnimg.cn/blog_migrate/460a764dc3bfa552236a8bf6526da525.png)
6.2 显示配色
library("scales")
show_col(mypal)
![alt](https://i-blog.csdnimg.cn/blog_migrate/7f129d52cd39bd5fde3103b98a4b5366.png)
![](https://i-blog.csdnimg.cn/blog_migrate/6145232cf4e56eb4c001882956e0856c.png)
点个在看吧各位~ ✐.ɴɪᴄᴇ ᴅᴀʏ 〰
![alt](https://i-blog.csdnimg.cn/blog_migrate/d9adcd05068c56c984fb3e7a67cebbe9.png)
本文由 mdnice 多平台发布