ggplot2 - 如何在条形图上居中放置置信区间吧

Question

这已被问及其他帖子，但我还没有想出如何正确使用position_dodge。

如何将图形中每个栏中的每个CI栏居中？

df <- structure(list(Ano = c(2012, 2012, 2012, 2016, 2016, 2016), 
       Grupo = c("Controle", "Tratado", "Total", 
         "Controle", "Tratado", "Total"), 
       Margem_Mediana = c(4.4,3.1, 4.2, 3.8, 2.5, 3.6), 
       Erro_Padrao = c(0.0236, 0.0460, 0.0214, 0.0257, 0.0478, 0.0231)), 
      class = c("tbl_df", "tbl", "data.frame"), 
      row.names = c(NA, -6L), .Names = c("Ano", "Grupo", "Margem_Mediana", "CI")) 


ggplot(df, aes(x = Ano, y = Margem_Mediana, fill = Grupo)) + 
    geom_bar(data = subset(df, Grupo != 'Total'), 
         position = position_dodge(), stat = 'identity') + 
    geom_errorbar(data = subset(df, Grupo != 'Total'), 
           aes(ymin = Margem_Mediana - CI, 
        ymax = Margem_Mediana + CI), 
       width = 1.5, 
       size = 0.5) 

Answer 1

一个可能的解决方案：

添加position = position_dodge()说法在geom_errorbar，并指定你的酒吧width。

ggplot(df, aes(x = Ano, y = Margem_Mediana, fill = Grupo)) + 
    geom_bar(data = subset(df, Grupo != 'Total'), 
      width = 1.5, 
      position = position_dodge(), 
      stat = 'identity') + 
    geom_errorbar(data = subset(df, Grupo != 'Total'), 
       aes(ymin = Margem_Mediana - CI, 
        ymax = Margem_Mediana + CI), 
       width = 1.5, 
       position = position_dodge(), 
       size = 0.5) 

一些搜索（例如this post和this page），代码可以进一步提高后，

ggplot(subset(df, Grupo != 'Total'), 
     aes(x = as.factor(Ano), y = Margem_Mediana, fill = Grupo)) + 
    geom_bar(width = 0.8, 
      position = position_dodge(), 
      stat = 'identity') + 
    geom_errorbar(aes(ymin = Margem_Mediana - CI, 
         ymax = Margem_Mediana + CI), 
        width = 0.4, 
        position = position_dodge(width = 0.8)) + 
    xlab('Ano') 

也可以使用width参数在position_dodge()控制误差棒的位置和宽度，并geom_errorbar()

如果您想要居中错误栏，则可能需要指定width中的geom_bar()，如width = 0.8 （看起来像0.9是默认值），并在geom_errorbar()内使用position_dodge(width = 0.8)中的相同值（如果您没有在geom_bar中设置width，则使用0.9）。而width在geom_errorbar会告诉ggplot错误栏的宽度。