多个mean_sdl，绘制平滑

Question

如何在同一输出中完全绘制p7和p6，其中m7和m6是通过融合不同的数据集获得的？提前谢谢

p7 <- ggplot(m7,aes(x=time,y=value)) +stat_summary(fun.data = "mean_sdl", geom = "smooth")
p6 <- ggplot(m6,aes(x=time,y=value)) +stat_summary(fun.data = "mean_sdl", geom = "smooth")

Answer 1

你可以试试这个：

p7 <- ggplot(m7,aes(x=time,y=value)) +stat_summary(fun.data = "mean_sdl", geom = "smooth")
p6 <- p7 + stat_summary(aes(x=time,y=value), fun.data = "mean_sdl", geom = "smooth", data = m6)