library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

x <- rnorm(100, 0, 10)
y <- rnorm(100, 0, 10)
z <- sample(1:4, 100, replace = TRUE)
df <- data.frame(cbind(x,y,z))