In this assignment I will simulate some data about temperature and pressure.
library(plotly)
time <- 1:500
temp <- rnorm(500, mean = 25, sd = 2)
pres <- rnorm(500, mean = 1, sd = .01)
plot_ly(x = ~time, y = ~temp, z = ~pres, type = 'scatter3d', color = ~temp)