Question

我有一个意大利面条图，其数据如下：

dat <- data.frame(x=rep(1:100,20),
                  y=rnorm(1000),
                  z = rep(1:20,each=100))
p <- ggplot(data = dat,aes(x=x,y=y,group=z))
p <- p + geom_line()
p

每个组z是一个时间序列。我可以绘制一个geom_smooth（），它是时间序列的平均值吗？我认为这样可行：

datMean <- aggregate(dat$y~dat$x, FUN=mean)
names(datMean) <- c("x","y")
p <- p + geom_smooth(data=datMean)
p

但事实并非如此。

要清楚（呃），我希望这条线穿过原始情节：

ggplot(data = datMean,aes(x=x,y=y)) + geom_smooth()

有什么建议吗？

Answer 1

它不起作用，因为datMean中没有z列。仅将组审美放在geom_line中。

cucumber --tags @billing --tags @important

然后此调用将起作用

0 scenarios
0 steps
0m0.000s

geom_smooth忽略组？

1 个答案: