I have data as follows:
library(data.table) DT <- structure(list(country = c("Germany", "Germany", "Germany", "Germany&q