R - 如何将两个使用 stat_summary() 的图放在一个图中答案

【问题标题】：R - How to put two graphs that use stat_summary() in one plotR - 如何将两个使用 stat_summary() 的图放在一个图中
【发布时间】：2018-03-09 14:53:35
【问题描述】：

我用 ggplot2 包制作了两张图，标准差如下：

( pplot_1 <- ggplot(data=data, aes(x=data$Group, y=data$Data_1)) 
+ stat_summary(fun.data = mean_sdl, fun.args = list(mult = 1), geom = "errorbar", aes(width=0.05)) 
+ stat_summary(fun.y = mean, geom = "line", color='red') 
+ xlab("X-Axis") 
+ ylab("Y-Axis")
)

( pplot_2 <- ggplot(data=data, aes(x=data$Group, y=data$Data_2)) 
+ stat_summary(fun.data = mean_sdl, fun.args = list(mult = 1), geom = "errorbar", aes(width=0.05)) 
+ stat_summary(fun.y = mean, geom = "line", color='red') 
+ xlab("X-Axis") 
+ ylab("Y-Axis")
)

例子：

myTable <- "ID Data_1 Data_2 Group
        1     -50     -100    5.0
        2     -44     -101    5.0
        3     -48     -99     5.0
        4     -50     -80     4.9
        5     -44     -81     4.9
        6     -48     -82     4.9
        7     -48     -79     4.9
        8     -44     -40     4.8
        9     -49     -45     4.8
       10     -48     -44     4.8
       11     -60     -35     4.8
       10     -50     -2      4.7
       11     -80      0      4.7
Data <- read.table(text=myTable, header = TRUE)

我想将它们绘制成一个图表并手动更改轴的比例以显示它们之间的差异及其随时间的标准偏差（x 轴）。

【问题讨论】：

Overlaying two graphs using ggplot2 in R的可能重复
我不使用geom_line，它帮不了我:(
请提供一个可重现的例子。此外，切勿在 aes 中使用 $ 符号。就目前而言，你的情节是相同的。
做到了，你能解释一下为什么我不应该在 aes 中使用 $ 吗？

标签： r plot ggplot2 graph

【解决方案1】：

stat_summary 和 stat_summary_bin 默认继承美学。您可以通过将y= 美学从ggplot() 函数中取出并将其放入stat_summary 命令的美学来解决此问题，如下所示：

ggplot(data=Data, aes(x=Data$Group)) 
+ stat_summary(fun.data = mean_sdl, fun.args = list(mult = 1), geom = "errorbar", aes(y=Data$Data_1, width=0.05)) 
+ stat_summary(fun.data=mean_sdl, fun.args = list(mult=1), geom = "errorbar", aes(y=Data$Data_2, width=0.05)) 
+ stat_summary(fun.y = mean, geom = "line", color='red', aes(y=Data$Data_1)) 
+ stat_summary(fun.y = mean, geom = "line", color='blue', aes(y=Data$Data_2)) 
+ labs(x = "X-Axis", y = "Y-Axis") `

这将负责将它们绘制在单个图表中，尽管当您说要手动更改轴时，我不确定您到底在寻找什么。

【讨论】：