R 使用Plotly添加垂直/水平参照线

我正在使用一个比例条形图，我想在一个特定的X值上画一条垂直线。我更愿意使用plotly软件包来完成这项工作，但这似乎并不容易

在上找到的解决方案似乎无法完成工作

我在下面提供了一些示例代码，可用于在X=3处绘制垂直线

library(plotly)
library(ggplot2)

plot_ly(diamonds[1:1000, ], x = ~x, y = ~cut, color = ~color) %>% add_bars()

---

我非常感谢您在这件事上的帮助。

我从捷步达康工程部找到了一些关于plotly中线路的信息。范围-0.5到4.5是因为提供的数据中有五个类别，每个类别都以整数为中心。y范围创建直线，而x常量（在3处）保持直线垂直

p <- plot_ly(diamonds[1:1000, ], x = ~x, y = ~cut, color = ~color) %>% add_bars()
p <- layout(p, shapes = list(type = "line", fillcolor = "red",
                             line = list(color = "red"),
                             opacity = 1,
                             x0 = 3, x1 = 3, xref = 'x', 
                             y0 = -0.5, y1 = 4.5, yref = 'y'))

p%add_bar（）
P