The Data chosen for this project was ChickWeight.

data("ChickWeight")
head(ChickWeight)

##   weight Time Chick Diet
## 1     42    0     1    1
## 2     51    2     1    1
## 3     59    4     1    1
## 4     64    6     1    1
## 5     76    8     1    1
## 6     93   10     1    1

To better understand the data, a heatmap is a good plot, so plotly was loaded and the plot was generated using plot_ly function

library(plotly)

plot_ly(data=ChickWeight, y=~Time, z=~weight, x=~Diet,type='heatmap') %>%
        layout(title = 'ChickWeight Heatmap')