## 调整因子水平
df$x <- factor(df$x,levels=c("B","A","D","C","E"))
## 绘制条形图
ggplot(data=df,aes(x=x,y=y)) + geom_bar(stat="identity")
09-14
7159
03-16
1553
12-01
## 调整因子水平
df$x <- factor(df$x,levels=c("B","A","D","C","E"))
## 绘制条形图
ggplot(data=df,aes(x=x,y=y)) + geom_bar(stat="identity")