001、
c1 <- paste0("snp", sample(1:20, 6)) c1 sort(c1) c1[order(c1)] library(gtools) ## 使用gtools包中的函数 mixedsort(c1) c1[mixedorder(c1)]