柱状图
col<-c("#2E2A2BFF","#CF4E9CFF","#8C57A2FF","#358DB9FF","#82581FFF","#2F509EFF","#E5614CFF","#97A1A7FF","#3DA873FF","#DC9445FF") #自定义图的类别颜色，也可以自定义具体哪一类什么颜色
ggplot(data, aes(x=data的横轴列名, y=data的纵轴列名，fill=data的分类列名))+
geom_bar(stat = "identity", width = 0.9,position=position_dodge(a)) + #,下一行自定义颜色后去掉 这一行fill = "#E5A7A3"
scale_fill_manual(values = col)+ #设置填充的自定义颜色
# labs(x = "Sample Coverage", y = "Values", title = "HLA_C")+
# scale_y_continuous(labels = scales::percent_format(scale = 1),limits = c(0, 40))+
theme_bw()+ #背景变为白色
# theme_classic()+#去掉边框
theme(panel.grid.major = element_blank(), #不显示网格线
panel.grid.minor = element_blank(),
axis.text.x = element_text(size = 12), #vjust = 0.5，设置字体竖直距离 hjust = 0.5，设置字体水平距离
axis.text.y = element_text(size = 12),
axis.title.x = element_text(size = 14),#设置x轴标题字体
axis.title.y = element_text(size = 14),#设置y轴标题字体
# axis.title.y = element_blank(), #去掉y轴标题
# axis.title.x = element_blank() #去掉x轴标题
)
#coord_flip()图倒转