I have the following dataset in R
library(tidyr) library(dplyr) df<-data.frame("ID"= c("A", "A", "A", "A", &q