# 3D Scatter (interactive) > plot_ly(heated_only, + x = ~Moisture_pct, + y = ~PH, + z = ~Ammonia_release, + color = ~Species, + type = "scatter3d", + mode = "markers") %>% + layout(title = "3D Scatter: Moisture (%) + pH + Ammonia Release (Heated Only)")