配色

# 十六进制颜色对照表 这里颜色根据自己的需求，也参照顶刊配色，ggsci里面有顶刊配色。

# 高质量论文配图配色（附RGB值及16进制码） 这个也蛮好看的！

Featureplot颜色修改

cols = c("#DCDCDC", "#0172b6")#这个更好看一些，这个也可以参照顶刊用图，改颜色
plot9 <- FeaturePlot(Neu.filt, features = c("Nlrp3","Ly6g","Ly86"),cols = cols, pt.size = 1)
plot9

GO富集颜色修改--待补充

library(clusterProfiler)
library(org.Mm.eg.db)
DC.markers <- FindAllMarkers(DC, only.pos = TRUE, min.pct = 0.25, logfc.threshold = 0.25)
DC.markers <- subset(DC.markers, p_val_adj<0.05&avg_log2FC>0.15)
ids=bitr(DC.markers$gene,'SYMBOL','ENTREZID','org.Mm.eg.db') ## 将SYMBOL转成ENTREZID
DC.markers=merge(DC.markers,ids,by.x='gene',by.y='SYMBOL')
gcSample=split(DC.markers$ENTREZID, DC.markers$cluster) 
## GO
xx <- compareCluster(gcSample,
                     fun = "enrichGO",
                     OrgDb = "org.Mm.eg.db",
                     ont = "BP",
                     pAdjustMethod = "BH",
                     pvalueCutoff = 0.01,
                     qvalueCutoff = 0.05
)
p <- dotplot(xx,label_format=100)
p2 <- p + scale_color_continuous(low='#374E54', high='#DE8F44')
p2

DoHeatmap(Neu.filt,features = top5$gene,label = T,
          slot = "scale.data",
          group.by = "celltype2",
          assay = 'RNA',
          group.colors = c("#00BFC4","#AB82FF","#00CD00","#C77CFF",'#F39B7FFF',"#00BFC4","#AB82FF","#00CD00","#C77CFF",'#F39B7FFF'))+
  scale_fill_gradientn(colors = c("white","grey","#DE8F44"))+
  theme(text = element_text(size=15))

ggplot颜色修改

plot1 <- ggplot(ratio) + 
  geom_bar(aes(x =Var2, y= Freq, fill = Var1),stat = "identity",width = 0.7,linewidth = 0.5,colour = '#123455')+ 
  theme_classic() +labs(x='Sample',y = 'Ratio')+coord_flip()+
  scale_fill_manual(values = c("#374E55FF", "#DF8F44FF", "#00A1D5FF", "#B24745FF", "#79AF97FF", "#6A6599FF",
                               "#80796BFF",'#E64B35FF', '#4DBBD5FF',"#374E55FF"))+theme(panel.border = element_rect(fill=NA,color="black", linewidth =1, linetype="solid"),text = element_text(size=20))
  plot1

标签

label_format :
a numeric value sets wrap length, alternatively a custom function to format axis labels. by default wraps names longer that 30 characters

参数默认值是30，当标签的长度大于30个字符就会被折叠，用多行来展示，把他设置成100，标签可以一行展示。

dotplot(ego, split="ONTOLOGY",showCategory = 10,label_format=100) + facet_grid(ONTOLOGY~., scale="free")