I have
mydf1 <- data.frame(unique.id = c(aa, bb, aa, cc, bb), date = c("1/2/21", "1/4/21", "1/8/21", "1/5/21", "12/5