小编Sup*_*p'A的帖子

我想在箱形图上添加中线的痕迹。

像这样

到目前为止，这是我的情节：

library(plotly)
p <- plot_ly(y = ~rnorm(50), type = "box") %>%
  add_trace(y = ~rnorm(50, 1))

p