Zrób kolumna z wartościami powielanych wyjątkowy w dataframe

Question

Mam dataframe gdzie kolumna zawiera zduplikowane wartości jak

employee <- data.frame(name = c('John', 'Joe', 'Mat', 'John', 'Joe'), 
      salary = c(1500, 2000, 1700, 1210, 2100), 
      startdate = c('2012-05-10', '2015-02-17', 
      '2014-09-11', '2011-11-23', '2010-10-27')) 

mogę uzyskać unikatowe elementy w kolumnie 1 przez

unique(employee$name) 

jednak Chcę, aby każdy element w kolumnie name był unikalny. Jeśli coś pojawi się po raz drugi, dołącz do niego _1. Jeśli pojawi się ponownie, dołącz do niego _2. Tak więc, w dataframe pracownika, chcę zmienić drugą kolumnę do

John 
Joe 
Mat 
John_1 
Joe_1 

Czy istnieje sposób, z wyjątkiem pętli nad nim?

Answer 1

Możemy użyć make.names z unique=TRUE. Domyślnie . zostanie dołączony przed numerami sufiks, a które mogą być zastąpione przez _ użyciu sub

employee$name <- sub('[.]', '_', make.names(employee$name, unique=TRUE)) 

lub lepszą opcję zaproponowaną przez @DavidArenburg. Jeśli kolumna jest factorname klasa, konwersja kolumny wejściowe do character klasy (as.character) przed nałożeniem make.unique

make.unique(as.character(employee$name), sep = "_") 
#[1] "John" "Joe" "Mat" "John_1" "Joe_1"