通過特定的行數R分配唯一編號

Question

我事先表示歉意-我已經嘗試過找到答案，但是我在使用正確的搜索字詞方面遇到了困難，因此可能會重復。 我有一個大型數據集，試圖為組分配一個唯一的數字。 但是我需要不在另一列中按組分配數字（因為它們不是唯一的），所以我需要按行號進行分配。 因此，我希望每三行分配一個順序號，以便每3個組現在唯一地進行標記。

這是我所擁有的非常簡化的版本。

 data<-data.frame(col1="a",col2=c("species1",       "species2","species3","species1", "species2","species3", "species1", "species2","species3")) 

如您對col1所看到的，它都是a，但是物種1重復3次，因此我無法基於此創建唯一的組。 這就是我想要的：

data2=data.frame(col1="a",col2=c("species1", "species2","species3","species1", "species2","species3", "species1", "species2","species3"), col3=c(1,1,1, 2, 2, 2, 3, 3, 3)) 

希望我能很好地解釋這一點？

謝謝

Answer 1

如果示例數據代表您的實際數據集，則以下代碼應適用：

data$col3 <- rep(seq_len(nrow(data)/3), each = 3)

data
#   col1     col2 col3
# 1    a species1    1
# 2    a species2    1
# 3    a species3    1
# 4    a species1    2
# 5    a species2    2
# 6    a species3    2
# 7    a species1    3
# 8    a species2    3
# 9    a species3    3