ggplot画梯度颜色图 不同颜色 对seurat的细胞类型进行inflammatory 炎症打分 addmodule
炎症基因从https://www.gsea-msigdb.org/gsea/msigdb/genesets.jsp?collection=H 得到
inflammatory_gene=list(inflammatory_gene)
#对给定的基因集合进行打分
library(ggplot2)
mydata<- FetchData(All.merge,vars = c(“UMAP_1”,“UMAP_2”,“inflammatory_gene1”,“stim”))
head(mydata)
boxplot(mydata$inflammatory_gene1)
a <- ggplot(mydata,aes(x = UMAP_1,y =UMAP_2,colour = inflammatory_gene1))+
geom_point(size = 1)+
scale_color_gradientn(values = seq(-0.2,1,0.2),colours = c(‘blue’,‘cyan’,‘green’,‘yellow’,‘orange’,‘red’))
a+ theme_bw() + theme(panel.border = element_blank(), panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), axis.line = element_line(colour = “black”))
#####方法二
data<- FetchData(All.merge,vars = c(“cell.type”,“inflammatory_gene1”))
head(data)
mydata<- FetchData(All.merge,vars = c(“UMAP_1”,“UMAP_2”,“inflammatory_gene1”,“stim”))
head(mydata)
######成功
#https://ggplot2.tidyverse.org/reference/scale_gradient.html
#https://ggplot2.tidyverse.org/reference/scale_gradient.html
