在数据框中添加一个字符串的次数

Question

因为我不知道如何用正确的方式在文本中描述我的问题我给你举一个例子。我已经以下数据帧：

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

其给出：

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

和我的期望的输出是：

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

是否有人有一个建议如何实现它在自动更大的数据框的方式？

在此先感谢。

Answer 1

我们有一些选择

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" 

还是make.unique

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