I have a datatable such as this one :
library(stringi) library(tidyverse) library(data.table) MWE <- data.table("Zone"=stri_rand_strings(9,