ggplotly 与水平 geom_crossbar() 不匹配原始 ggplot

Question

当我使用 ggplot 和 geom_crossbar() 水平移动时，一切看起来都是我想要的。当我使用 ggplotly 绘制绘图时，参考线变得毫无意义并且方向错误。请参阅下面的代码和快照：

数据设置：

df <- data.frame(
    trt = factor(c(1, 1, 2, 2)),
    resp = c(1, 5, 3, 4),
    group = factor(c(1, 2, 1, 2)),
    upper = c(1.1, 5.3, 3.3, 4.2),
    lower = c(0.8, 4.6, 2.4, 3.6)
)

p <- ggplot(df, aes(resp, trt, colour = group)) + 
     geom_crossbar(aes(y=trt,xmin = lower, xmax = upper), width = 0.2)

ggplotly(p)

这是 ggplotly 的错误还是有我不知道的解决方法？我希望保持横杆水平，因为它根据我的实际数据看起来更好。

Answer 1

解决方法是使用

coord_flip()

，这需要切换

x

和

y

:

library(ggplot2)
library(plotly)

p <- ggplot(df, aes(trt, resp, colour = group)) +
  geom_crossbar(aes(x = trt, ymin = lower, ymax = upper),
    width = 0.2
  ) +
  coord_flip()

ggplotly(p)