First attempt that is not working for using plotly and ggplotly with r plots