df <- read.table("kenelnum.txt",header = F,sep="\t")
ggplot(df,aes(V2,fill=V1))+geom_histogram()+
theme_bw()+
theme(
axis.text = element_text(size=12),axis.title=element_text(size=12),
plot.margin = unit(c(1,1,1,1),"cm"),
legend.title = element_blank()
)+
labs(x='kenelnum',title="kenelnum gwas significant point")
ggsave("kenelnum.gwas.png",width = 9,height=5)