sort matrix based on a specific order

mat<-cbind(c('w','x','y','z'),c('a','b','c','d'))
matOrd <- mat[order(factor(mat[,2], levels = c('c', 'b', 'd','a'))), ]
matOrd

Hi I have a character matrix with 2 columns A and B, If I want to sort the matrix based on the column B, but based on a specific order of characters:

mat<-cbind(c('w','x','y','z'),c('a','b','c','d'))
ind<-c('c','b','d','a')

I want "mat" to be sorted by the sequence in "ind":

     [,1] [,2]
[1,] "y"  "c"
[2,] "x"  "b"
[3,] "z"  "d"
[4,] "w"  "a"

Is there any simple function that can do this?

Thanks

John

        [[alternative HTML version deleted]]