Ho un vettore x, che vorrei ordinare in base all'ordine dei valori nel vettore y. I due vettori non sono della stessa lunghezza.Come ordinare un vettore in base ai valori di un altro
x <- c(2, 2, 3, 4, 1, 4, 4, 3, 3)
y <- c(4, 2, 1, 3)
Il risultato atteso sarebbe:
[1] 4 4 4 2 2 1 3 3 3
Ecco un uno di linea ...
y[sort(order(y)[x])]
[edit:] Questo è ripartito come segue:
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
ciclo su y e spostare ogni valore corrispondente a X nella posizione corretta.
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))) }
Il risultato in z: 4 4 4 2 2 1 3 3 3
I passi importanti:
for (i in y) - Loops sugli elementi di interesse .
z < - c (z, ...) - Concatena ogni sottoespressione a sua volta
rep (i, sum (x == i)) - ribadisce i (l'elemento corrente di interesse) sum (x == i) volte (il numero di volte in cui ho trovato i in x).
Si potrebbe convertire x in un fattore ordinata:
x.factor <- factor(x, levels = y, ordered=TRUE)
sort(x)
sort(x.factor)
Ovviamente, cambiando i numeri in fattori può cambiare radicalmente il codice modo reagisce a valle x. Ma dal momento che non ci hai fornito alcun contesto su ciò che accadrà dopo, ho pensato di suggerire questa opzione come opzione.
questa dovrebbe essere la risposta migliore poiché potrebbe funzionare per i casi non interi; o funziona anche quando ci sono valori in 'x' non nel vettore di ordinamento' y' con leggera modifica: 'x <- c (2, 2, 3, 4, 1, 4, 4, 3, 3, 6); y <- c (4, 2, 1, 3); as.numeric (as.character (sort (factor (x, unique (c (y, x)))))) ' – rawr
[ Edit:. chiaramente Ian ha il giusto approccio, ma lascerò questo per i posteri]
È possibile farlo senza loop per l'indicizzazione sul vettore y. Aggiungere un valore numerico incrementale a y e unirle:
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
Che ne dite di?:
rep(y,table(x)[as.character(y)])
(Ian è probabilmente ancora meglio)
che dire di questo
x[order(match(x,y))]
Questo è molto bello, meglio della risposta accettata IMHO in quanto è più generale. – fmark
Direi che dovrebbe essere nella base GNU-R. –
È davvero divertente la frequenza con cui mi imbatto in questa situazione e finisco per ricorrere a questa risposta a una sola riga. Va a dimostrare come SO può essere utile per le cose meno complesse haha –
Nel caso in cui è necessario per ottenere ordine in "y", non importa se si tratta di numeri o caratteri:
x[order(ordered(x, levels = y))]
4 4 4 2 2 1 3 3 3
By passi:
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
Questo è molto sintetico, ma sto facendo fatica a capire cosa sta succedendo lì. Potresti elaborare un po '? –
Grazie! order() mi lasciava sconcertato - sembrava semplicemente riorganizzare arbitrariamente i numeri, ma quello era solo un artefatto di avere una sequenza di 1-4. –
Questo è carino e mostra una buona comprensione dei built-in di R. +1 – Godeke