Extracting and Plotting Average Maximum Pupillary Constriction Over Time in R

I have a data frame called CONSTRICT where I have the following variables:
(https://i.sstatic.net/ykapQXh0.png)