如何列於data.frame與的發生數添加另一列

Question

我有以下data.frame

x y 
1 t1 5     
2 t2 2 
3 t2 7 
4 t3 9 
5 t1 6 

如何與值的發生數在第一列等添加列以下？：

x y occ 
1 t1 5 1 
2 t2 2 1 
3 t2 7 2 
4 t3 9 1 
5 t1 6 2 

Answer 1

不是100％確定，但這是你的意思嗎？

> my.df <- data.frame(x=c("t1","t2","t2","t3","t1"), y=c(5,2,7,9,6)) 
> my.df <- data.frame(x=my.df$x, 
+      y=my.df$y, 
+      occ=sapply(1:nrow(my.df), function(i) sum(my.df$x[1:i] == my.df$x[i]))) 

> my.df 
    x y occ 
1 t1 5 1 
2 t2 2 1 
3 t2 7 2 
4 t3 9 1 
5 t1 6 2 

Answer 2

使用sequence和rle您整理data.frame：

my.df <- data.frame(x=c("t1","t2","t2","t3","t1"), y=c(5,2,7,9,6)) 
# Order by x 
my.df = my.df[order(my.df$x), ] 
my.df$occ = sequence(rle(as.vector(my.df$x))$lengths) 
my.df 
# x y occ 
# 1 t1 5 1 
# 5 t1 6 2 
# 2 t2 2 1 
# 3 t2 7 2 
# 4 t3 9 1 
# Uncomment if you want to go back to original row order 
# my.df[order(rownames(my.df)), ] 

更新：東西我今天

瞭解到我看到了，但沒有使用ave功能。看起來你可以做到這一點，而不重新安排你的原始data.frame：

my.df$occ = ave(as.numeric(my.df$x), as.numeric(my.df$x), FUN=seq_along)