vline for plotly

example.R

x <- runif(1000)

plotly::plot_ly(
  x = x,
  type = "histogram",
) |>
  plotly::layout(
    bargap = 0.05,
    shapes = list(
      vline(mean(x), "mint", "mean"),
      vline(median(x), "aqua", "median")
    ),
    xaxis = list(title = "Score"),
    yaxis = list(title = "Count"),
    title = "Histogram of thing"
  )
 

plotly-vline.R

  vline <- function(x = 0, color = "red", name = NULL) {
    list(
      type = "line",
      y0 = 0,
      y1 = 1,
      yref = "paper",
      x0 = x,
      x1 = x,
      line = list(color = color),
      text = format(x, digits = 2),
      name = name
    )
  }