r - 向纵向数据线图添加趋势线

Question

如何添加代表红色和黑色组平均值的趋势线？我已经尝试过geom_line()并且geom_smooth()没有让它工作。

这是我用来制作此图表的代码：

ggplot(data = long_data, aes(x = day, y = val, group = ID, colour = outcome)) +
  geom_line(aes(color = as.factor(outcome), linetype = as.factor(outcome)), size = 0.7) +
  scale_linetype_manual(values = c("longdash", "solid")) + 
  scale_color_manual(values = c("black", "red")) + theme_bw() +
  theme(legend.position = "", panel.border = element_blank(), panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(), axis.line = element_line(colour = "black")) + 
  labs(x = "day", y = var, colour = "outcome ") +
  xlim(0, 25) + 
  ggtitle(var) +
  theme(plot.title = element_text(hjust = 0.5)) +
  ylim(0,100)

标签： rggplot2dplyrdata-visualization

Answer 1

您的分组变量是ID，这就是geom_smooth将继承的。

尝试outcome使用指定所需的分组变量geom_smooth(aes(group = outcome))