我试图通过cytoband对染色体畸变进行排序

Question

我有以下data.frame"test":

Cytoband
9p 
1q
10p
22p
2q

我想得到:

Cytoband
1q
2q
9p
10p
22p

这是我的代码:

indices <- order(test$Cytoband, decreasing = FALSE)
test <- test[indices,]

但我得到:

10p
1q
22p
2q
9p

有简单的修改吗？谢谢!

Answer 1

x = c("9p","1q","10p","22p","2q")

y = x[order(as.numeric(gsub("\\D","",x)))]
y

[1] "1q"  "2q"  "9p"  "10p" "22p"