如何使用R繪製帶誤差線的兩條曲線ggplot2.qplot

Question

如何使用ggplot.qplot將兩個帶誤差線的圖放在一個圖上。

我將它儘可能繪製一個圖形使用this後誤差條：

library(ggplot2) 
time_points = c(15, 30, 60, 90, 120, 150, 180) 
control_data = c(1,2,3,4,5,6,7) 
control_sd = c(0,1, 0.2, 0.3, 0.4, 0.5, 0.6) 


treated_data = c(9,8,7,6,5,4,3) 
treated_sd = c(0,1, 0.4, 0.6, 0.8, 0.8, 0.9, 1.5) 

qplot(time_points, control_data) + geom_errorbar(aes(x = time_points, 
               ymin = control_data - control_sd, 
               ymax = control_data + control_sd)) 

主要生產：

我如何可以繪製處理數據放在同一個畫布上？

Answer 1

注意我調整了給定的矢量來創建數據幀。

library(ggplot2) 
library(dplyr) 
library(tidyr) 
library(magrittr) 

time_points = c(15, 30, 60, 90, 120, 150, 180) 
control_data = c(1,2,3,4,5,6,7) 
control_sd = c(0, 1, 0.2, 0.3, 0.4, 0.5, 0.6) 

treated_data = c(9,8,7,6,5,4,3) 
treated_sd = c(0.1, 0.4, 0.6, 0.8, 0.8, 0.9, 1.5) 

df <- data.frame(time=time_points, 
    cd=control_data, 
    td=treated_data, 
    csd=control_sd, 
    tsd=treated_sd) 

df %>% 
    # stack the control and treated columns using tidyr's gather 
    # from here we distinguish the different series by the type column 
    gather(type,value,cd,td) %>% 
    # append a column for error bar ymin, depending on stacked type 
    mutate(ymin=ifelse(type=='cd',value-csd,value-tsd)) %>% 
    # append a column for error bar ymax, depending on stacked type 
    mutate(ymax=ifelse(type=='cd',value+csd,value+tsd)) %>% 
    # pass the revised data frame to ggplot with the computed aesthetics 
    ggplot(aes(x=time,y=value,color=type,ymin=ymin,ymax=ymax)) + 
    geom_errorbar() + 
    geom_point()