数据格式与内容为：
image.png
读取数据：
e<-read.csv(file.choose())
e
image.png
由于目标直方图中，显示的直方图中 正，负值的颜色和图例legend颜色都不同，所以，先进行数据正负判断，并加入判断列：
e$pos<- e$Percentage.change.from.monoculture>=0
e$pos
得到：
image.png
然后开始作图：
ep<-ggplot(e,aes(x=Pairwise.connections,y=Percentage.change.from.monoculture,fill=pos))+geom_bar(stat="identity")
ep
得到：
image.png
然后对图例的文字，位置，坐标轴等进行修改：
ep<-ep+theme(legend.position="bottom")#图例调整到最低部分
ep
p1<-ggplot(e,aes(x=Pairwise.connections,y=Percentage.change.from.monoculture,fill=Percentage.change.from.monoculture),)+geom_bar(stat="identity", width = 0.3)+theme(legend.text = element_blank())+theme(panel.grid.minor = element_blank() ) +theme(legend.position='none')
p1
image.png
网友评论