finden einzigartige Kombination von Vars und eine neue var erstellen, wenn eine einzigartige Kombination

Question

gefunden habe ich diesen Datenrahmen als Spielzeug Beispiel

aski = data.frame(A = c("x","y","z","x","z","z"), 
        B = c("a","b","c","a","b","c")) 

i für jede einzelne Kombination von A und B prüfen Jetzt will und wenn sie einen einzigartigen combo Ich möchte eine neue Variable im Datenframe erstellen und jedes mal (z. B. r1, r2, ....) eine eindeutige Kombination inkrementieren.

Ausgangsdatenrahmen so etwas wie diese

aski2 = data.frame(A = c("x","y","z","x","z","z"), 
        B = c("a","b","c","a","b","c"), 
        output = c("r1","r2","r3","r1","r4","r3")) 

Answer 1

Try this:

aski2 <- data.frame(A = c("x","y","z","x","z","z"), 
        B = c("a","b","c","a","b","c")) 
ref <- do.call(paste, aski2) 
aski2$output <- paste("r", as.numeric(factor(ref, levels = unique(ref))), 
         sep = "") 
aski2 

Answer 2

Eine weitere Option ist group_indices verwenden; Gruppe durch Spalte A und B, und es erzeugt eine eindeutige ID für jede Gruppe (siehe group_indices?):

aski2 <- data.frame(A = c("x","y","z","x","z","z"), 
        B = c("a","b","c","a","b","c"), 
        C = c("s","v","g","v","g","d")) 

aski2 %>% mutate(output = sprintf("r%s", group_indices(., A, B))) 

# A B C output 
#1 x a s  r1 
#2 y b v  r2 
#3 z c g  r4 
#4 x a v  r1 
#5 z b g  r3 
#6 z c d  r4 

Answer 3

Eine Option ist .GRP

library(data.table) 
setDT(aski2)[, output := paste0("r", .GRP), .(A, B)]