本人新手学习R语言，问题略初级，各位大神见谅。
我想做一个折线图，然后在折线图中添加趋势线，想利用ggplot通过abline做，但是不知为何总是不成功，现将过程发上来请大神赐教。
water<-read_excel("f:/R/用水总量.xlsx")
lm(water$年份~water$全国水资源总量)
p<-ggplot(water,aes(water$年份,water$全国水资源总量))+
  geom_line()+
  geom_abline(intercept=2.008e+03,slope=-7.124e-05)

通过上面的代码，可以做出折线图来，但是不显示趋势线，不知是什么原因。我尝试用其他的数据，用同样的方法做了一下，是可以做出来的，如下面的代码
x<-c(1,2,3,4)
y<-c(5,8,9,3)
data11=data.frame(row.names = x,colnames=y)
p<-ggplot(data11,aes(x,y))+geom_line()+geom_abline()

我感觉这两组代码是一个意思，为啥下面的可以成功而上面的不行，请朋友们赐教！