r-如何使ggplot x轴通过0？

我在 x 轴上有一个分类变量，在 Y 轴上有一个连续变量，我有几个负值。我仍然想绘制这些，但希望 x 轴经过 0，然后在图表底部有标签？我已经在下面发布了我的代码，但是 scale_x 和 scale y 函数不能解决任何问题。在某些情况下，代码是不同的海藻物种，海胆是实验中两种不同的物种之一，百分比是每种食物类型的食用百分比。

level_order1 <- c("P.l", "E.r", "C.c", "E.f", "C.t",    "A",    "D.r",  "P.c", "P.n", "C.cr")

feedgraph1 <- ggplot(trail1.df, aes(x = factor(Code, level = level_order1), 
y = as.numeric(Percentage), fill = Urchin)) + 
geom_bar(stat = "identity", position=position_dodge(width=0.9), alpha = 0.6)  + 
geom_errorbar(aes(ymin = Percentage - SE, ymax = Percentage + SE), width = .1, 
             colour="black", position=position_dodge(width=0.9)) + 
scale_y_continuous(expand = c(0,0)) + scale_x_discrete(expand = c(0,0))+
theme(axis.text.x = element_text(angle = 40, vjust= 0.3)) + theme_classic()