R: добавить среднюю строку к существующему сюжету

Question

Я сделал приложение RShiny с сюжетом, используя ggplot.

Теперь я хочу добавить среднюю строку к существующему сюжету.

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

Which с номерами примеров вы дали, даст вам сюжет, который выглядит следующим образом:

Answer 2

Я нашел ответ на этой странице:

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

функция stat_summ Здесь отлично.