How to draw a vertical bullet chart in R using Plotly?

Question

I know I can create a horizontal bullet plot like this in R using Plotly library:

bullet <- plot_ly(
  type = "indicator",
  mode = "number