GGFORTIFYを使用してプロットの平均を示すABLINEをプロットする

Question

プロット上の平均点を示すABLINEを作成したいとします。 As shown in the image。

d.sales <- diff(sales) 
plot(d.sales) 
abline(h=mean(d.sales)) 

しかし、私がggfortifyを使ってこのプロットをカスタマイズしたとき、この結果を再現する方法がわかりません。

ここにコードがあります。

Differencingplot1 <- autoplot(d.sales, ts.colour = 'dodgerblue3', ts.size = (1.5)) 

Differencingplot1 + ggtitle("Seaosnal Differencing - Attempt 1") + xlab("Year-Quarterly") + ylab("Difference in Sales") 

そして結果The result shown.

は、いくつかは、これを行う方法の私をアドバイスをしてくださいでした。

Answer 1

geom_hlineはggplot2です。

は比較：

ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width)) + geom_point() 

と

ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width)) + geom_point() + 
    geom_hline(aes(yintercept=mean(Sepal.Width)))