Nummer des Auftretens einer Zeichenkette in einem Datenrahmen hinzufügen

Question

Weil ich nicht weiß, wie ich mein Problem richtig beschreiben kann, schlage ich Ihnen ein Beispiel vor. Ich habe den folgenden Datenrahmen:

my.data = data.frame("names" = c("Michael","Thomas","Daniel","Peter","Michael","Thomas","Ruben","Thomas")) 

die gibt:

names 
1 Michael 
2 Thomas 
3 Daniel 
4 Peter 
5 Michael 
6 Thomas 
7 Ruben 
8 Thomas 

und meine gewünschte Ausgabe ist:

 names 
1 Michael 
2 Thomas 
3 Daniel 
4  Peter 
5 Michael.2 
6 Thomas.2 
7  Ruben 
8 Thomas.3 

Hat jemand einen Vorschlag, wie es in einem automatisierten zu erreichen Weg für einen größeren Datenrahmen?

Vielen Dank im Voraus.

Answer 1

Wir haben einige Optionen

my.data$names <- with(my.data, sub("\\.1$", "", paste(names, ave(seq_along(names), 
     names, FUN=seq_along), sep="."))) 
my.data$names 
#[1] "Michael" "Thomas" "Daniel" "Peter"  "Michael.2" "Thomas.2" "Ruben"  "Thomas.3" 

Oder die make.unique

make.unique(as.character(my.data$names)) 
#[1] "Michael" "Thomas" "Daniel" "Peter"  "Michael.1" "Thomas.1" "Ruben"  "Thomas.2"