如何在Plotly R的柱状图中添加带图例的完整宽度水平线？

问题出在分类轴的底层数值逻辑上：当你用分类标签（如"setosa"）作为add_segments的x参数时，Plotly会将线段限制在对应分类的中心位置之间，无法覆盖整个图表宽度。以下是两种可行的解决方案：

方法一：利用分类轴的底层数值索引（推荐） #

分类轴在Plotly中底层以0、1、2...的数值索引对应每个分类，通过设置x的起始/结束位置为索引的±0.5，就能让水平线铺满整个图表宽度，同时直接控制图例显示：

library(plotly)
library(dplyr)

# 预处理数据
iris_sum <- iris %>%
  group_by(Species) %>%
  summarise(sepal_length_tot = sum(Sepal.Length))

# 计算分类数量，确定水平线的x轴边界
category_count <- n_distinct(iris_sum$Species)
x_left <- -0.5
x_right <- category_count - 0.5

# 绘制图表
plot_ly(iris_sum) %>%
  # 添加柱状图
  add_trace(
    mode = "bars",
    x = ~Species,
    y = ~sepal_length_tot,
    color = ~Species,
    name = ~Species
  ) %>%
  # 添加铺满宽度的水平线并显示图例
  add_segments(
    x = x_left,
    xend = x_right,
    y = 200,
    yend = 200,
    color = I("darkred"),  # 直接指定颜色，避免自动映射
    name = "目标阈值",     # 图例中显示的名称
    showlegend = TRUE,     # 开启图例显示
    line = list(width = 2, dash = "dash")  # 自定义线样式
  ) %>%
  layout(
    xaxis = list(title = "物种"),
    yaxis = list(title = "花萼长度总和"),
    legend = list(title = list(text = "图例"))
  )

关键说明： #

• x_left = -0.5对应图表最左端，x_right = category_count - 0.5对应图表最右端，确保水平线完全覆盖宽度
• color = I("darkred")用I()包裹颜色值，避免Plotly将其纳入分类颜色映射逻辑
• 通过name和showlegend = TRUE直接将水平线加入图例

方法二：结合add_hline与空trace生成图例 #

如果偏好使用add_hline，可以通过添加一个空的线条trace来手动生成图例项：

library(plotly)
library(dplyr)

iris_sum <- iris %>%
  group_by(Species) %>%
  summarise(sepal_length_tot = sum(Sepal.Length))

plot_ly(iris_sum) %>%
  add_trace(
    mode = "bars",
    x = ~Species,
    y = ~sepal_length_tot,
    color = ~Species
  ) %>%
  # 添加铺满宽度的水平线
  add_hline(
    y = 200,
    line = list(color = "darkred", width = 2, dash = "dash")
  ) %>%
  # 添加空trace用于生成图例
  add_trace(
    x = NULL, y = NULL,
    type = "scatter",
    mode = "lines",
    line = list(color = "darkred", width = 2, dash = "dash"),
    name = "目标阈值",
    showlegend = TRUE
  ) %>%
  layout(
    xaxis = list(title = "物种"),
    yaxis = list(title = "花萼长度总和")
  )

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