请编写一个函数,能够将一个向量中的字符串按逆序排序。我们通常使用的字符串排序是根
据字符串的首字母从小到大排序,所谓逆序排序是指根据字符串的尾字母从小到大排序,例
如:
c(“economics”, “employment”, “management”, “finance”)
的逆序排序结果是:
c(“finance”, “economics”, “management”, “employment”)
str_reverse <- function(x){
a <- strsplit(x, "")[[1]]
a <- a[length(a):1]
return(paste(a, collapse=""))
}
mysort <- function(myvector){
x <- sapply(myvector, str_reverse)
return(myvector[order(x)])
}
mysort(c("economics", "employment", "management", "finance"))