The Next Slide shows my 3D plot

FALSE   Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
FALSE  Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
FALSE  1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
FALSE  Median :5.800   Median :3.000   Median :4.350   Median :1.300  
FALSE  Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
FALSE  3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
FALSE  Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
FALSE        Species  
FALSE  setosa    :50  
FALSE  versicolor:50  
FALSE  virginica :50  
FALSE                 
FALSE                 
FALSE 

plot_ly(iris, x=~Sepal.Length, y=~Sepal.Width, 
             z=~Petal.Length, color=~Species) %>%
  add_markers(size=1) 

Thank you