ggplot水平geom_crossbar转ggplotly后样式异常问题求助

当使用ggplot绘制水平方向的geom_crossbar时显示正常，但经ggplotly()封装后，交叉参考线方向错误，失去误差线的实际意义。这是由于ggplotly对水平方向geom_crossbar的转换逻辑存在适配问题，并非不可修复，以下是两种可行的解决方法：

方法一：用geom_errorbarh+geom_point模拟水平交叉栏（推荐） #

geom_errorbarh是ggplot专门用于水平误差线的图层，ggplotly对其支持更稳定，搭配点标记可以达到和geom_crossbar完全一致的视觉效果：

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)
)

# 构建模拟水平crossbar的ggplot对象
p <- ggplot(df, aes(y = trt, x = resp, colour = group)) + 
  geom_errorbarh(aes(xmin = lower, xmax = upper), height = 0.2) +
  geom_point(size = 3)

# 转换为交互式图表
ggplotly(p)

方法二：手动修正ggplotly的trace属性（适合保留原geom_crossbar语法场景） #

如果必须使用geom_crossbar，可以手动修改ggplotly生成的图形数据（trace），将错误的垂直误差线调整为水平方向：

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)
)

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

# 转换为ggplotly对象并修正属性
ply <- ggplotly(p)

for(i in seq_along(ply$x$data)){
  if(ply$x$data[[i]]$type == "bar"){
    # 设置正确的x方向误差范围
    ply$x$data[[i]]$error_x <- list(
      type = "data",
      symmetric = FALSE,
      array = df$upper - df$resp,
      arrayminus = df$resp - df$lower
    )
    # 移除错误的y方向误差设置
    ply$x$data[[i]]$error_y <- NULL
    # 匹配原crossbar的宽度
    ply$x$data[[i]]$width <- 0.2
  }
}

# 输出修正后的交互式图表
ply

两种方法都能保留水平交叉栏的样式，适配你的实际数据需求。

内容的提问来源于stack exchange，提问作者Alex Braksator