Plotly test

This is the code used to create this plot:

library(plotly)
library(ggplot2)
plot<-ggplot(data=mtcars, aes(y=mpg,x=hp))+
geom_point()
ggplotly(plot)

This is the small version

asdfa