Comment trier un vecteur en fonction des valeurs d'un autre vecteur ?

Question

J'ai un vecteur x, que je voudrais trier en fonction de l'ordre des valeurs du vecteur y. Les deux vecteurs ne sont pas de la même longueur.

x <- c(2, 2, 3, 4, 1, 4, 4, 3, 3)
y <- c(4, 2, 1, 3)

Le résultat attendu serait :

[1] 4 4 4 2 2 1 3 3 3

Answer 1

Et celui-là ?

x[order(match(x,y))]

Answer 2

Voici un commentaire...

y[sort(order(y)[x])]

[Cela se décompose comme suit :

order(y)             #We want to sort by y, so order() gives us the sorting order
order(y)[x]          #looks up the sorting order for each x
sort(order(y)[x])    #sorts by that order
y[sort(order(y)[x])] #converts orders back to numbers from orders

Answer 3

Vous pourriez convertir x en un facteur ordonné :

x.factor <- factor(x, levels = y, ordered=TRUE)
sort(x)
sort(x.factor)

Évidemment, changer vos nombres en facteurs peut changer radicalement la façon dont le code en aval réagit à x . Mais comme vous ne nous avez donné aucun contexte sur ce qui se passe ensuite, j'ai pensé que je pourrais suggérer cette option.

Answer 4

Et pourquoi pas ?

rep(y,table(x)[as.character(y)])

(Celle de Ian est probablement encore meilleure)

Answer 5

x <- c(2, 2, 3, 4, 1, 4, 4, 3, 3)
y <- c(4, 2, 1, 3)
for(i in y) { z <- c(z, rep(i, sum(x==i))) }

Le résultat en z : 4 4 4 2 2 1 3 3 3

Les étapes importantes :

1. for(i in y) -- Boucle sur les éléments d'intérêt.

2. z <- c(z, ...) -- Concatène chaque sous-expression à son tour

3. rep(i, sum(x==i)) -- Répète i (l'élément courant d'intérêt) sum(x==i) times (le nombre de fois que nous avons trouvé i dans x).