0

I want to plot error bars and a ribbon shaded area to mark the average of the values of the error bars:

enter image description here

For some reason I cannot make geom_errorbar and geom_ribbon work together. A sample code:

group <- c("Group 1", "Group 1", "Group 2", "Group 2", 
           "Group 3", "Group 3", "Group 4", "Group 4")
subgroup <- c("High", "Low", "High", "Low", "High", "Low", "High", "Low")
value <- c(0.1,-0.1,0.4,0.5,0.25,0.6,-0.25,0.05)
sd <- c(0.1,0.1,0.05,0.05,-0.05,-0.05,-0.01,-0.01)
value_avg <- c(0.33,0.33,0.33,0.33, 0.33, 0.33,0.33,0.33)
sd_avg <- c(0.07,0.07,0.07,0.07,0.07,0.07,0.07,0.07)

df <- data.frame(group, subgroup,value,sd)

#Plot
ggplot(df, aes(group, value)) +
  geom_errorbar(
    aes(ymin = value-sd, ymax = value+sd, color = subgroup),
    position = position_dodge(0.3), width = 0.3
  )+
  geom_point(aes(color = subgroup), position = position_dodge(0.3))+
  geom_ribbon(aes(ymin = value_avg-sd_avg, ymax = value_avg+sd_avg), 
              fill = "grey70")

Edit 1: Showing Stefan's suggestion:

geom_ribbon(aes(ymin = value_avg-sd_avg, ymax = value_avg+sd_avg, group = 1)

enter image description here

Ronak Shah
  • 377,200
  • 20
  • 156
  • 213
Laura K
  • 207
  • 1
  • 9
  • 1
    Try with `geom_ribbon(aes(ymin = value_avg-sd_avg, ymax = value_avg+sd_avg. group = 1)`. – stefan May 24 '21 at 21:33
  • It gets much better, thank you. But the ribbon is between Group1 and Group4 and I cannot change color or transparency. I have edited the post above to show your suggestion. – Laura K May 25 '21 at 12:54

0 Answers0