indic_2_vals <- (sapply(data_sub, function(x){length(unique(x))}))

indic_2_vals <- names(indic_2_vals[indic_2_vals <= 50])

data_sub <- data_sub[!(names(data_sub) %in% indic_test)]