R reorder data.frame column

PIN<- SSIN[, col_order_list]

  data_melt$ORDER<-factor(data_melt$variable,levels=COL_MERGE$Factor_Names)