R 如何创建一个连续的组号

发布于05月24日

我有一个数据框(all_data)，其中我有一个网站列表(1…到n)和他们的分数，例如.

  site  score
     1    10
     1    11  
     1    12
     4    10 
     4    11
     4    11
     8    9
     8    8
     8    7

我想创建一个列，以数字顺序对网站的每个级别进行编号，比如计数器.在本例中，站点(1、4和8)将在"数字"列中有一个从1到3的对应计数器:

site  score number
     1    10    1
     1    11    1 
     1    12    1 
     4    10    2
     4    11    2
     4    11    2
     8    9     3
     8    8     3 
     8    7     3

我相信这一定很容易解决，但我还没有找到办法.

推荐答案

试试Data$number <- as.numeric(as.factor(Data$site))

旁注:我和@Chase的解与@DWin的解之间的区别在于数字的顺序.as.factor和factor都会自动对级别进行排序，而在@DWin的解决方案中不会出现这种情况:

Dat <- data.frame(site = rep(c(1,8,4), each = 3), score = runif(9))

Dat$number <- as.numeric(factor(Dat$site))
Dat$sitenum <- match(Dat$site, unique(Dat$site) )

给予

> Dat
  site     score number sitenum
1    1 0.7377561      1       1
2    1 0.3131139      1       1
3    1 0.7862290      1       1
4    8 0.4480387      3       2
5    8 0.3873210      3       2
6    8 0.8778102      3       2
7    4 0.6916340      2       3
8    4 0.3033787      2       3
9    4 0.6552808      2       3