come assegnare un identificatore univoco a più voci di frame di dati

Question

Ho un frame di dati di grandi dimensioni che ha tre identificatori. Per esempio:

df <- data.frame(year=c(1999,1999,2000,2000,2000), country=c('K','K','M','M','S'), 
       site=c('di','se','di','di','di')) 

che produrrà un frame di dati come questo:

year country site 
    1999 K  di 
    1999 K  se 
    2000 M  di 
    2000 M  di 
    2000 S  di 

Voglio aggiungere una colonna aggiuntiva al telaio di dati e hanno un 'id unico' assegnato utilizzando le voci per "anno", "paese" e "sito". Sarebbe simile a questa:

year country site unique_id 
    1999 K  di  1 
    1999 K  se  2 
    2000 M  di  3 
    2000 M  di  3 
    2000 S  di  4 

Qualche suggerimento su come fare questo sarebbe molto apprezzato. Sto pensando che potrebbe in qualche modo essere fatto usando il pacchetto plyr?

Answer 1

Questo dovrebbe funzionare abbastanza bene. (Si avvale del fatto che i singoli livelli di un fattore sono effettivamente memorizzati come interi e utilizza as.numeric() per accedere/estrarre quei valori interi).

df$unique_id <- 
    as.numeric(as.factor(with(df, paste(year, country, site, sep="_")))) 
df 
# year country site unique_id 
# 1 1999  K di   1 
# 2 1999  K se   2 
# 3 2000  M di   3 
# 4 2000  M di   3 
# 5 2000  S di   4 

Answer 2

lo farei come questo

lookup <- data.frame(id=1:length(unique(apply(df, 1, paste, collapse=""))), key=unique(apply(df, 1, paste, collapse=""))) 

df$id <- apply(df, 1, function(x) lookup[lookup$key==paste(x, collapse=""), "id"])