data.table "tuşuna endeksleri" veya

Question

bir data.table bir anahtar oluşturma sonra "grubu sayacı":

set.seed(12345) 
DT <- data.table(x = sample(LETTERS[1:3], 10, replace = TRUE), 
       y = sample(LETTERS[1:3], 10, replace = TRUE)) 
setkey(DT, x, y) 
DT 
#  x y 
# [1,] A B 
# [2,] A B 
# [3,] B B 
# [4,] B B 
# [5,] C A 
# [6,] C A 
# [7,] C A 
# [8,] C A 
# [9,] C C 
# [10,] C C 

Bir tam sayı vektör, her satır uygun "anahtar indeksi" için veren istiyorum .

#  x y i 
# [1,] A B 1 
# [2,] A B 1 
# [3,] B B 2 
# [4,] B B 2 
# [5,] C A 3 
# [6,] C A 3 
# [7,] C A 3 
# [8,] C A 3 
# [9,] C C 4 
# [10,] C C 4 

Ben cumsum(!duplicated(DT[, key(DT), with = FALSE])) gibi bir şey kullanma hakkında düşündüm ama daha iyi bir çözüm yoktur umuyorum: Beklediğim çıkışı (kolon i) altına ne demek netleştirmenize yardımcı olur. Bu vektörün masanın içsel temsilinin bir parçası olabileceğini hissediyorum ve belki de ona erişmenin bir yolu var mı? Durum böyle olmasa bile, ne önerirsiniz?

Answer 1

Güncelleme: v1.8.3 itibaren, basitçe dahili özel kullanabilirsiniz .GRP:

DT[ , i := .GRP, by = key(DT)] 

Eski cevaplar için geçmişe bakın.

Answer 2

Ben [.data.table() hiçbir indeks karşı görüşmesinin içinden kullanılabilir olduğunu oldukça eminim çünkü ben muhtemelen sadece bu yapardım:

ii <- unique(DT) 
ii[ , i := seq_len(nrow(ii))] 
DT[ii] 
#  x y i 
# 1: A B 1 
# 2: A B 1 
# 3: B B 2 
# 4: B B 2 
# 5: C A 3 
# 6: C A 3 
# 7: C A 3 
# 8: C A 3 
# 9: C C 4 
# 10: C C 4 

Bunun bir tek satırlık yapabilir pahasına, unique.data.table() için ek bir çağrının:

DT[unique(DT)[ , i := seq_len(nrow(unique(DT)))]]