r - 別の列の出現番号を持つ列を 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してください：rledata.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)