install.packages("remotes")
remotes::install_github("lyc-1995/MySeuratWrappers")
library(MySeuratWrappers)
#需要展示的基因
markers <- c('Col1a1','Penk', 'Cxcl14', 'Tmem100', 'Ccn3', 'Meox1', 'Fibin', 'Ptn', 'Cthrc1', 'Mfap4', 'Clu', 'Col6a5', 'Upk3b','Igfbp5','Msln','Gpm6a', 'Ifit1', 'Ifit3')
my36colors <-c("#374E55FF", "#DF8F44FF", "#00A1D5FF", "#B24745FF", "#79AF97FF", "#6A6599FF" ,"#80796BFF",'#E64B35FF', '#4DBBD5FF',"#374E55FF", '#E59CC4', '#AB3282', '#23452F', '#BD956A', '#8C549C', '#585658', '#9FA3A8', '#E0D4CA', '#5F3D69', '#C5DEBA', '#58A4C3', '#E4C755', '#F7F398', '#AA9A59', '#E63863', '#E39A35', '#C1E6F3', '#6778AE', '#91D0BE', '#B53E2B', '#712820', '#DCC1DD', '#CCE0F5', '#CCC9E6', '#625D9E', '#68A180', '#3A6963', '#968175')#颜色设置
VlnPlot(fibro, features = markers,
stacked=T,pt.size=0,
cols = my36colors,#颜色
direction = "horizontal", #水平作图
x.lab = '', y.lab = '')+#横纵轴不标记任何东西
theme(axis.text.x = element_blank(),
axis.ticks.x = element_blank())#不显示坐标刻度
