在y = 0时用x轴绘图

Question

当绘制y具有负值的图形时，是否可以在y=0处绘制x轴线，刻度线和标签？

在下面的示例中，x轴绘制在y=-10，即y轴的下限。

我可以使用+ geom_abline(intercept=0, slope=0)在y=0画一条线，但就是这样。

data1<-as.data.frame(1:5)
data1[,2]<-as.data.frame(c(-8,-2,2,6,10))

colnames(data1)<-c("x","y")
ggplot(data1, aes(x=x)) + 
  geom_line(aes(y = y, colour = "y"), size=0.61, colour="black") + 
  xlab("X axis lab") + ylab("Y axis lab") +
  theme_bw() + theme(legend.title = element_blank(),
                     legend.key = element_rect(fill=NA),
                     panel.border = element_blank(), 
                     axis.line = element_line(colour="black", size=0.25),
                     axis.ticks = element_line(size=0.25),
                     panel.grid.major = element_line(colour = "grey80", size=0.25),
                     panel.grid.minor = element_line(colour = "grey80", size=0.25)) +
  scale_x_continuous(expand = c(0, 0), limits=c(0,5)) + 
  scale_y_continuous(expand = c(0, 0), limits=c(-10,10)) +
  ggtitle("Title")