将平均线添加到ggplot

Question

我想建立在斜率上调节线颜色的这个例子,为平均值添加一条线(从平均值t = 1到平均值t = 2的线).

library(dplyr)
set.seed(205)
dat = data.frame(t=rep(1:2, each=10), 
                 pairs=rep(1:10,2), 
                 value=rnorm(20))

ggplot(dat %>% group_by(pairs) %>%
         mutate(slope = (value[t==2] - value[t==1])/(2-1)),
       aes(t, value, group=pairs, colour=slope > 0)) +
  geom_point() +
  geom_line()

我试着添加stat_summary(fun.y=mean, geom="line")没有任何运气.

计算失败stat_summary():'what'必须是函数或字符串

Answer 1

我没有得到您描述的错误(使用ggplot2 v 2.2.0),但为了获得所需的结果,我必须覆盖您在主图中指定的分组:

stat_summary(fun.y=mean,geom="line",lwd=2,aes(group=1))