Based on the frequency distribution, it shows that each level frequency is within the same order of magnitude of each other.
count <- read.table("Count.txt", header = T, row.names = 1)
count <- t(count)
TrainingData <- as.data.frame(count)
colnames(TrainingData) <- make.names(colnames(TrainingData))
TrainingData[,-(1:2)]<- as.data.frame(apply(TrainingData[,-(1:2)],2, as.numeric))