library(plotly)

# --> your ggplot2 methods <--
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
qplot(carat, price, data=dsamp, colour=clarity)

# --> send your ggplot2 figure to plotly <--
py <- plotly()
py$ggplotly()