library(plotly)
set.seed(1234)
plot_ly(x = ~mean(rnorm(50)), y=c(-2,2), type='scatter', mode='lines') %>%
  add_boxplot(x = ~rnorm(50), inherit = F) %>%
  layout(yaxis = list(range = c(-2, 2)))