正负直方图的绘制2020-12-07

数据格式与内容为：

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