Aggiungere una colonna di ranghi

Question

Ho alcuni dati:

test <- data.frame(A=c("aaabbb", 
"aaaabb", 
"aaaabb", 
"aaaaab", 
"bbbaaa") 
) 

e così via. Tutti gli elementi hanno la stessa lunghezza e sono già ordinati prima che li ottenga.

Ho bisogno di creare una nuova colonna di ranghi, "Primo", "Secondo", "Terzo", qualsiasi cosa dopo di ciò può essere lasciata vuota, e ha bisogno di tenere conto dei legami. Quindi, nel caso di cui sopra, mi piacerebbe ottenere il seguente risultato:

A  B 
aaabbb First 
aaaabb Second 
aaaabb Second 
aaaaab Third 
bbbaaa 
bbbbaa 

Ho guardato rango() e alcuni altri posti che hanno usato, ma non ero in grado di arrivare a fare quello che ho stavo cercando.

Answer 1

ne dite di questo:

test$B <- match(test$A , unique(test$A)[1:3]) 
test 
     A B 
1 aaabbb 1 
2 aaaabb 2 
3 aaaabb 2 
4 aaaaab 3 
5 bbbaaa NA 
6 bbbbaa NA 

Uno dei tanti modi per fare questo. Forse non è il migliore, ma che mi viene subito in mente ed è abbastanza intuitivo. È possibile utilizzare unique perché si ricevono i dati pre-ordinati.

Quando i dati vengono ordinati un'altra funzione adatta da prendere in considerazione è rle, anche se è leggermente più ottuso in questo esempio:

rnk <- rle(as.integer(df$A))$lengths 
rnk 
# [1] 1 2 1 1 1 
test$B <- c(rep(1:3 , times = rnk[1:3]) , rep(NA, sum(rnk[-c(1:3)]))) 

rle calcola le lunghezze (e dei valori che non si preoccupano veramente qui) di esecuzioni di valori uguali in un vettore, quindi di nuovo funziona perché i dati sono già ordinati.

E se non lo fai avere avere spazi vuoti dopo il terzo elemento classificato è ancora più semplice (e più leggibile):

test$B <- rep(1:length(rnk),times=rnk) 

Answer 2

Questa sembra una buona domanda di fattori:

test$B <- as.numeric(factor(test$A, levels = unique(test$A))) 

cumsum viene anche in mente, dove aggiungiamo 1 ogni volta che il valore cambia:

test$B <- cumsum(c(TRUE, tail(test$A, -1) != head(test$A, -1))) 

(Come @Simon ha detto, ci sono molti modi per farlo ...)