title: How to extract values of confidence interval from ggplot2 stat summary in R?
body: <p>I have count data with two types of density (level: 1 and 3). I have plotted the raw data with boot-strapped confidence intervals using summary_stat function in R. I want to extract the upper and lower limits of the confidence interval from this plot. How can I achieve that?</p>
  
  <pre><code>data &lt;- data.frame(set = c(1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 4, 4), 
                     density = c(1, 3, 3, 1, 3, 1, 1, 1, 3, 3, 1, 3), 
                     counts = c(100, 2, 3, 76, 33, 12, 44, 13, 54, 36, 65, 1), 
                     ratio = c(1, 2, 3, 4, 1, 2, 3, 4, 5, 6, 90, 1))
  data$density &lt;- as.factor(data$density)
  
  pd &lt;- position_dodge(0.82)
  library(ggplot2)
  ggplot(data, aes(x=density, y=counts, fill=density)) + 
     theme_bw() +  
     stat_summary(geom="bar", fun.y=mean, position = "dodge") + 
     stat_summary(geom="errorbar", fun.data=mean_cl_boot, width = 0.1, 
                  size = 1.2, col = "grey57", position = pd) + 
     ylab("Counts")
  </code></pre>