library(datasets)
head(Loblolly)
summary(Loblolly)
plot_ly(Loblolly, x= ~height, y= ~age, color= ~Seed, type="pointcloud")