Suppose I have data in the following form:
library(ggplot2) Data <- data.frame( "ID" = c("ABC111", "ABC111", "