i have a problem with spreading the data only based on ID suppose that i have this data frame
DF <- data.frame(ID=rep(c("1","2","3&quo