Suppose I have this dataset (the actual dataset has 30+ columns and thousands of ids) df <- data.frame(id = 1:5, admission = c("Severe", "Mild", "Mild", "Mod...