filtering date per factor group

Question

i have this datasets

set.seed(1)
df1<- data.frame(
  user = as.factor(rep(c("mike","john","david", "gabriel"), each