Plotly type functionality in R

Thanks! Looks like there is alot of nuance to using ggplotly. I simply tried to pass it the plot in this post and several elements end up not being drawn or drawn "incorrectly".
How to add geom_vline to Legend - tidyverse - Posit Community (rstudio.com)

Here is what is looks like before and after adding ggplotly: