ggplot+geom_bar

data type:

library(tidyverse)
df <-read.csv("spikenum.csv",header = T,sep = ',')
head(df)
ggplot(df,aes(x=x,y=heritability,fill=variable))+geom_bar(position="dodge",stat="identity")+
  theme_classic()+
  theme(
    axis.text = element_text(size=12),axis.title=element_text(size=12),
    legend.title = element_blank(),
    axis.title.x = element_blank()
    )+
  labs(title="spikenum")+
  scale_y_continuous(expand = c(0,0))  ##去掉距离x轴的空隙
ggsave("spikenum.png",width = 5,height=4)