试试在单细胞中使用庆余年配色

之前更新了看《庆余年》学科研绘图配色，我们也用在单细胞绘图里看看效果。

library(Seurat)

## Warning: 程辑包'Seurat'是用R版本4.3.3 来建造的

## 载入需要的程辑包：SeuratObject

## Warning: 程辑包'SeuratObject'是用R版本4.3.3 来建造的

## 载入需要的程辑包：sp

## Warning: 程辑包'sp'是用R版本4.3.3 来建造的

## 
## 载入程辑包：'SeuratObject'

## The following object is masked from 'package:base':
## 
##     intersect

# 读取单细胞数据：
scRNA <- readRDS('pbmcrenamed.rds')
# 我们只有五个颜色：
scRNA <- subset(scRNA,idents = unique(Idents(scRNA))[1:5])

范闲配色

# 范闲配色：
DimPlot(scRNA,cols =  c("#141A26", "#436043", "#9B9682", "#5C615D", "#23342C"))

范思辙配色

# 范思辙配色：
DimPlot(scRNA,cols = c("#1D74E7", "#E5EEF1", "#FEEB83", "#232734", "#36444E"))

林婉儿配色

# 林婉儿配色：
DimPlot(scRNA,cols = c("#D1C3AD", "#EEE572", "#CEDCE6", "#AFBF94", "#B9927F"))

海棠朵朵配色

# 海棠朵朵配色：
DimPlot(scRNA,cols =c("#ED9A7D", "#D8D6BB", "#F7EEB0", "#8D7B5A", "#80345C"))

个人觉得还不如我们此前分享的自此配色烦恼不相逢——ggsci看起来顺眼，更多单细胞可视化改造可参考：

单细胞图片改造计划：

改造单细胞降维图| 1.DimPlot的探索

改造单细胞降维图| 2.ggplot2中的DIY

改造单细胞降维图| 3.3D降维图与动图绘制

改造单细胞降维图| 4.一些造好的轮子

沉浸式统计细胞比例

改造单细胞FeaturePlot

VlnPlot用法及ggplot复现

VlnPlot的ggplot改造