Comment trier un caractère vecteur selon un ordre précis?

J'ai un caractère de vecteur qui ressemble

c("white","white","blue","green","red","blue","red")

et un ordre spécifique qui est comme

c("red","white","blue","green")

. Je voudrais trier le premier vecteur selon l'ordre de la seconde vecteur afin d'obtenir l'vectorielles suivantes : c("red","red","white","white","blue","blue", "green").
Quelle serait la meilleure solution ?

OriginalL'auteur PAC | 2013-06-10

  1. 22
    x <- c("white","white","blue","green","red","blue","red")
y <- c("red","white","blue","green")
x[order(match(x, y))]
# [1] "red"   "red"   "white" "white" "blue"  "blue"  "green"

    OriginalL'auteur Matthew Plourde

  2. 4

    Faire à votre variable d'un facteur avec les niveaux dans l'ordre approprié et sort():

     x1 <- c("white","white","blue","green","red","blue","red")
 ord <- c("red","white","blue","green")
 f1 <- factor(x1,levels=ord)
 sort(f1)
 ## [1] red   red   white white blue  blue  green
 ## Levels: red white blue green

    Vous pouvez utiliser x2 <- as.character(sort(f1)) si vous voulez vraiment les résultats comme un caractère de vecteur ...

    OriginalL'auteur Ben Bolker