Ich habe einen Vektor x, den ich basierend auf der Reihenfolge der Werte in Vektor y sortieren möchte. Die beiden Vektoren haben nicht die gleiche Länge.Wie sortiere ich einen Vektor basierend auf Werten eines anderen
x <- c(2, 2, 3, 4, 1, 4, 4, 3, 3)
y <- c(4, 2, 1, 3)
Das erwartete Ergebnis wäre:
[1] 4 4 4 2 2 1 3 3 3
hier ein Motto ist ...
y[sort(order(y)[x])]
[edit:] Dieser setzt sich wie folgt zusammen:
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
Schleife über alle y und angepaßten Wert in X bewegen Lage zu korrigieren.
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))) }
Das Ergebnis in z: 4 4 4 2 2 1 3 3 3
die wichtige Schritte:
für (i in y) - Schleifen über die Elemente von Interesse .
< z - c (z, ...) - Verkettet jeweils subexpression wiederum
Rep (i, SUM (x == i)) - Repeats i (das aktuelle Element von Interesse) sum (x == i) mal (die Anzahl der Male, die wir in x gefunden haben).
Sie x in eine geordnete Faktor umwandeln könnte:
x.factor <- factor(x, levels = y, ordered=TRUE)
sort(x)
sort(x.factor)
Natürlich können Sie Ihre Zahlen in Faktoren radikal verändert die Art und Weise Code stromabwärts x reagiert ändern. Aber da Sie uns keinen Zusammenhang darüber gegeben haben, was als nächstes passiert, dachte ich, ich würde dies als eine Option vorschlagen.
Dies sollte die beste Antwort sein, da es für nicht ganzzahlige Fälle funktionieren würde; oder auch arbeiten, wenn Werte in "x" nicht im Sortiervektor "y" mit leichter Änderung sind: 'x <- c (2, 2, 3, 4, 1, 4, 4, 3, 3, 6); y <- c (4, 2, 1, 3); as.numeric (as.character (sort (Faktor (x, unique (c (y, x)))))) – rawr
[ Edit:. Klar Ian hat den richtigen Ansatz, aber ich werde dies für die Nachwelt hinterlassen in]
du ohne Schleifen durch Indizierung auf Ihrem y Vektor tun können. Fügen Sie ein Erhöhen numerischen Wert y und kombiniere sie:
y <- data.frame(index=1:length(y), x=y)
x <- data.frame(x=x)
x <- merge(x,y)
x <- x[order(x$index),"x"]
x
[1] 4 4 4 2 2 1 3 3 3
Wie wäre es mit?:
rep(y,table(x)[as.character(y)])
(Ian ist wahrscheinlich besser noch)
was diesen ein
x[order(match(x,y))]
Das ist sehr nett, besser als die angenommene Antwort IMHO, wie es allgemeiner ist. – fmark
Ich würde gehen so weit zu sagen, dass dies in der Basis GNU-R sein sollte. –
Es ist wirklich lustig, wie oft ich über diese Situation stolpere und auf diese eine Zeilenantwort zurückkomme. Geht zu zeigen, wie SO bei den wenigsten komplexen Dingen hilfreich sein kann haha –
Im Fall müssen Sie, um auf „y“ unabhängig davon, ob es die Zahlen oder Zeichen zu erhalten:
x[order(ordered(x, levels = y))]
4 4 4 2 2 1 3 3 3
von Schritten:
a <- ordered(x, levels = y) # Create ordered factor from "x" upon order in "y".
[1] 2 2 3 4 1 4 4 3 3
Levels: 4 < 2 < 1 < 3
b <- order(a) # Define "x" order that match to order in "y".
[1] 4 6 7 1 2 5 3 8 9
x[b] # Reorder "x" according to order in "y".
[1] 4 4 4 2 2 1 3 3 3
Das ist sehr knapp, aber ich habe Schwierigkeiten herauszufinden, was dort vor sich geht. Könntest du ein wenig näher ausführen? –
Danke! order() verwirrte mich - schien die Zahlen nur willkürlich neu zu ordnen, aber das war nur ein Artefakt mit einer Sequenz von 1-4. –
Das ist hübsch und zeigt ein gutes Verständnis von R's eingebauten. +1 – Godeke