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錯誤欄的寬度。