Inversione dell'ordine delle sezioni duplicate in un vettore

Question

Considerare il seguente vettore pre-ordinato x.

x <- c(1, 2, 2, 2, 3, 5, 7, 7, 7, 8) 

order() ci mostra l'ordine del vettore.

(o <- order(x)) 
# [1] 1 2 3 4 5 6 7 8 9 10 

Ora supponiamo che io voglio invertire l'ordine dei soli duplicati/valori ripetuti di x, nel senso che voglio per invertire solo i 2 3 4 e 7 8 9 sezioni di o perché quelli sono i valori ripetuti in x. Poi, il risultato desiderato sarebbe

[1] 1 4 3 2 5 6 9 8 7 10 

Qual è il modo migliore per farlo? In questo momento ho il seguente

w <- which(duplicated(x) | duplicated(x, fromLast = TRUE)) 
o[w] <- rev(o[w]) 

Ma questo non dà la risposta corretta qui.

o 
# [1] 1 9 8 7 5 6 4 3 2 10 

PS: lo sto utilizzando per invertire l'ordine di colonne di nomi di colonne duplicate.

Answer 1

Utilizzando data.table v1.9.6:

require(data.table) 
as.data.table(x)[, .(id = rev(.I)), by=x] 
#  x id 
# 1: 1 1 
# 2: 2 4 
# 3: 2 3 
# 4: 2 2 
# 5: 3 5 
# 6: 5 6 
# 7: 7 9 
# 8: 7 8 
# 9: 7 7 
# 10: 8 10 

---

In alternativa, si può fare:

order(x + sort(runif(length(x)), dec=TRUE)) 
# [1] 1 4 3 2 5 6 9 8 7 10 

(non del tutto sicuro se ci sono casi in cui questo potrebbe rompere)

Answer 2

Una base R 1-liner utilizzarebbe ave per raggruppare l'ordine in base a valori univoci nella riginal vettore, applicando rev per invertire l'ordinamento per ogni gruppo:

ave(order(x), x, FUN=rev) 
# [1] 1 4 3 2 5 6 9 8 7 10