I have done ordered column names
MAIN_CARD <- lapply(MAIN_CARD,function(x) x <- x %>% select(order(colnames(x))))
head(MAIN_CARD[[1]])
but I want to have BAD_PERFORMANCE_1 BAD_PERFORMANCE_2 BAD_PERFORMANCE_3 until BAD_PERFORMANCE_12 in order
Thank you for helping