r - 使用ggplot2重新排序可变宽度条

Question

嗨，我正在制作一个可变宽度的条形图，并希望将条形从最高到最小排序。当我运行代码时，条形图的顺序经常发生变化。图形

这是我的代码

df<-data.frame(Project=datafram$Project,Capex=datafram$Capex,width=datafram$Capex, Emissions=datafram$Emissions)
df$w <- cumsum(df$width) #cumulative sums.
df$wm <- df$w - df$width
df$Emissions<- with(df, wm + (w - wm)/2)
p  <- ggplot(df, aes(ymin = 0))
p1 <- p + geom_rect(aes(xmin = wm, xmax = w, ymax = Emissions, fill = Project))
p2<-p1 + geom_text(aes(x = wm + Capex/2, y = Emissions, label = Project), size=4, nudge_y =-300, angle = 60) 
p3<-p2+labs(title = "Abatement Curve", x = "CAPEX", y = "Capital Efficiency")
blue.bold.italic.10.text <- element_text(color = "black", size = 16)
p4<-p3+theme(axis.title = blue.bold.italic.10.text, title =blue.bold.italic.10.text)
g=p4;

这是我的数据 数据

我不确定要使用什么功能或如何使用。请帮忙

标签： rggplot2plotly