plot_ly(diamonds, x = ~length, y = ~width, z = ~depth, type = "scatter3d",
        color = ~price, mode = "markers") %>%
  layout(title = "Price of Diamonds versus dimensions")