R：在现有绘图中添加平均线

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")

哪个，你给出的示例数字，将给你一个如下的情节：

Answer 2

我在这个页面找到了答案：

groups.google.com/forum/#!topic/ggplot2/vd5n1jR9k40

stat_summary函数在这里很完美。