here my reproducible example
mydat=structure(list(supplier = c("TKP", "TKP", "TKP", "TKP", "TKP", "