Plotten einer ABLINE, die den Mittelwert der Darstellung zeigt, mit GGFORTIFY

Question

Ich möchte eine ABLINE erstellen, die den Mittelwert der Grafik zeigt. As shown in the image. Ich lief den Code:

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

Jedoch, wenn ich diesen Plan mit ggfortify Customizing, ich bin nicht sicher, wie dieses Ergebnis zu reproduzieren.

Hier ist der Code.

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

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

Und das Ergebnis The result shown.

Könnten einige bitte Rat mir auf, wie dies zu tun.

Answer 1

Sie können geom_hline von ggplot2 verwenden.

vergleichen:

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

und

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