Re: [R] Custom Sort Character and Numeric

Here is another solution that gets the order you posted: > myArray <- c('AFP9','AFR9','TLQP7','AFS9','AFR8','AFP8','AFS7','TLQS8') > # create a sort key > key <- sub("^(.*)(.)(.)$", "\\3\\2\\1", myArray) > key [1] "9PAF" "9RAF" "7PTLQ" "9SAF" "8RAF" "8PAF" "7SAF" "8STLQ" > # sort, but don't

Re: [R] Custom Sort Character and Numeric

Try this, but I get a different order especially based on the last digit > myArray <- c('AFP9','AFR9','TLQP7','AFS9','AFR8','AFP8','AFS7','TLQS8') > # create a sort key > key <- sub("^(.*)(.)(.)$", "\\3\\2\\1", myArray) > key [1] "9PAF" "9RAF" "7PTLQ" "9SAF" "8RAF" "8PAF" "7SAF" "8STLQ" > #