r - ggplotly 从 ggplot 中删除误差线

Question

所以我有这个data.table：

preparatoria_estado	score_global_aplicantes	score_global_sd_aplicantes
Academia Culmen - Estado de México	1098.750	74.16272
美国学校基金会 - Ciudad de México	1131.379	60.11442
Bachillerato Alexander Bain - 墨西哥城	1136.477	64.02964

我想要一个带有胡须的误差线的 ggplotly 条形图。

这是我的ggplot代码...

    score_col <- "score_global_aplicantes"
    sd_col <- "score_global_sd_aplicantes"
    p <- ggplot(gcm_filtered) +
      geom_bar(aes_string(x = paste0("reorder(preparatoria_estado, ", score_col, ")"),
                          y = score_col),
               stat = "identity",
               color = "#062c4c",
               fill = "#062c4c",
               alpha = 0.5) +
      geom_errorbar(aes_string(x = "preparatoria_estado", 
                               ymin = paste(c(score_col, sd_col), collapse = "-"), 
                               ymax = paste(c(score_col, sd_col), collapse = "+")), 
                    colour = "#a50618", 
                    alpha = 0.9,
                    size = 0.5,
                    width = 0.3) +
      coord_flip() +
      ggtitle("ggtitle") +
      xlab(label = "xlab") +
      ylab(label = "ylab") +
      theme_minimal() 

...在ggplot中看起来很棒...

但是当我转换p为 ggplotly 图时，晶须消失了。

ggplotly(p)

为什么会发生这种情况或我输入错误的参数有什么原因？

我尝试将宽度更改为 30，它们确实出现在 ggplotly 图中，但整个图看起来很糟糕。

标签： rggplot2ggplotly