> otu <- c("OTU1", "OTU2", "OTU3", "OTU10", "OTU20", "OTU30")
> otu
[1] "OTU1" "OTU2" "OTU3" "OTU10" "OTU20" "OTU30"
文本排序:
> a <- order(otu) # order()按照OTU1,OTU10,OTU2,OTU20排序,输出排序后的索引
> a
[1] 1 4 2 5 3 6
数字排序:
> library(gtools)
> b <- mixedorder(otu) # mixedorder()按照OTU1,OTU2,OTU3,OTU10,OTU20排序,输出排序后的索引
> b
[1] 1 2 3 4 5 6