How to subtract a value from one column based on the value of another in R?

Question

I have a dataframe with a list of IDs of 1-2000 and each one of these IDs has multiple collections timepoints (each new collection is a new row). I have removed timepoint 1 for