測試plotly

library(plotly)

## Loading required package: RCurl
## Loading required package: bitops
## Loading required package: RJSONIO
## Loading required package: ggplot2

library(ggplot2)
py <- plotly("Lofu", "e03xy5nf2e")
gg = ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+geom_point()  
py$ggplotly(gg)
gg