R : add an average line to an existing plot

Question

我已经使用 ggplot 完成了一个带有绘图的应用程序 RShiny。

现在，我想在现有图中添加一条平均线。

library(ggplot2)

A <- c(1:10)
B <- c(1,1,2,2,3,3,4,4,5,5)

donnees <- data.frame(A,B) 
datetime<-donnees[,2]
Indcatotvalue<-donnees[,1]
df<-donnees

mn<-tapply(donnees[,1],donnees[,2],mean)
moyenne <- data.frame(template=names(mn),mean=mn)

ggplot(data=df,
   aes_q(x=datetime,
         y=Indcatotvalue)) + geom_line() 

我试图添加:

geom_line(aes(y = moyenne[,2], colour = "blue"))

或者 :

lines(moyenne[,1],moyenne[,2],col="blue")

但什么也没发生:(
我特别不明白“线”这个功能。

谢谢您的回答...

Answer 1

当你说平均线时，我假设你想绘制一条代表 Y 平均值的线( Indcatotvalue )。为此你想使用 geom_hline()它在图表上绘制水平线:

ggplot(data=df,aes_q(x=datetime,y=Indcatotvalue)) +
  geom_line() +
  geom_hline(yintercept = mean(Indcatotvalue), color="blue")

其中，使用您提供的示例数字，将为您提供如下所示的图: