測試plotly

library(plotly)

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

gg = ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+geom_point() 
gg

library(plotly)
library(ggplot2)
py <- plotly()

```