I have the following data :
library(data.table) DT <- data.table( Pays = c("Austria", "Belgium", "Brazil", "Bulgaria&q