我使用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")
但没有任何反应:(我不明白特别是功能"线".
谢谢您的回答...