ROW_ORDER<-data.frame("Factory_Order"=as.integer(PHEAT_CLU$tree_row$order),
"ori_Factory_Names"=as.character(PHEAT_CLU$tree_row$labels))
ROW_ORDER$ORDER<-factor(ROW_ORDER$Factory_Order,levels=ROW_ORDER$Factory_Order)
#print(head(ROW_ORDER))
CHIP_ROW_ORDER=ROW_ORDER
CHIP_ROW_ORDER$CHIP_ORDER<-CHIP_ROW_ORDER$ORDER
NEW <- data.frame(do.call(‘rbind‘, strsplit(as.character(CHIP_ROW_ORDER$ori_Factory_Names),‘.‘,fixed=TRUE)))
CHIP_ROW_ORDER$Factory_Names<-paste0("X",NEW$X2)
# print(head(NEW))
CHIP_ROW_ORDER<-dplyr::select(CHIP_ROW_ORDER,Factory_Names,CHIP_ORDER)
原文：https://www.cnblogs.com/3Dgenome/p/14258195.html