请教R abline的相关问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

本人新手学习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()

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

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：abline line ABL Lin gplot

初步怀疑你的数据搞错了，但是不要花精力在这上面了，你换geom_smooth(method = "lm")吧.

cheetahfly 发表于 2018-3-27 17:30
初步怀疑你的数据搞错了，但是不要花精力在这上面了，你换geom_smooth(method = "lm")吧.

谢谢提醒