Это должно служить примером решения.
# Data generated
dt<-data.table("Frequency" = sample(x = 1:100000,size = 40))
# New column appended with the Classification
dt[,Class := cut(x = dt$Frequency,breaks = c(-Inf,1000,5000,10000,50000,Inf),labels = c("C1","C2","C3","C4","C5"),right = T)]
Надеюсь, что поможет