ggplot错误地绘制带有geom_rect的x轴

Question

我是ggplot软件包的新手，如果这是基本问题，请原谅

我在下面设置了代码，但x轴的标签弄乱了。 它与数据框的数据不匹配，而是随机的。

用于图片。我认为Start_Profit首先出现，然后是ProductionCost和SalesCost。

我让错过某件事变得重要吗？

ggplot_image

library(ggplot2)

plot_data <- data.frame(
 items = c("Start_Profit","ProductionCost","SalesCost","End_Profit"),
 diff = c(50,20,-30,40),
 type = c("Net","Increase","Decrease","Net"),
 start = c(0,50,70,40),
 end = c(50,70,40,0)
)

plot_data$id <- seq_along(plot_data$diff)


ggplot(plot_data[1:3,], aes(fill = type)) + geom_rect(aes(x = items,
                                                    xmin=id-0.45, xmax=id+0.45,
                                                    ymin = end, ymax=start))