对数据框相同行名进行编号

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如图，想用R写语句，根据username进行编号，比如第一次出现任友，编号为1，第二次出现还是编号1；直到出现前面没出现过的名字如刘占玲，编号+1，依次类推，直到编号完成。
excel的编号方式是以下链接方法：https://wenda.so.com/q/1484249863494197
数据量太大的话，excel处理很慢，想用R写个语句。请各位大神帮忙。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

1. #第一步，生成一个待处理的问题，示例x1
   
2. x1=as.data.frame(letters)
   
3. x1["x"]=sample(3,26,replace=T)
   
4. x1=apply(x1, 1, function(x)c(rep(x[1],x[2])))
   
5. x1=unlist(x1,use.names = F)
   
6. #第二步，生成一个判断向量，便于计算
   
7. id_t_f=list()
   
8. id_t_f[1] <- F
   
9. for (i in 2:length(x1)) {
   
10.   id_t_f[i]= x1[i]==x1[i-1]
    
11. }
    
12. #然后，计算id编号
    
13. id=rep(1,length(x1))
    
14. for (i in 2:length(x1)){
    
15.   ifelse(id_t_f[i],id[i] <- id[i-1],id[i] <- id[i-1]+1)
    
16. }
    
17. #编号结果如下：
    
18. result=data.frame(x1,unlist(id_t_f),id)
    
19. result

复制代码

如果是已经排好序的
> aa<-data.frame(x=rep(letters[1:2], c(2,3)),y=rnorm(5))
> aa
  x          y
1 a  0.8525411
2 a  0.2887768
3 b  0.4442048
4 b -0.9417330
5 b -0.2100489
> aa$z<-rep(1:length(table(aa$x)),table(aa$x))
> aa
  x          y z
1 a  0.8525411 1
2 a  0.2887768 1
3 b  0.4442048 2
4 b -0.9417330 2
5 b -0.2100489 2

如果没有排好序
> my_data <-read.table(header = TRUE, text = "
            x  y
            a  3
            b  3
            a  4
            d  5
            d  6
            e  5
            ")
> library(dplyr)
> my_data
  x y
1 a 3
2 b 3
3 a 4
4 d 5
5 d 6
6 e 5
> my_data%>%group_by(x)%>%
   mutate(z=rep(1:length(table(x)),table(x)))
# A tibble: 6 x 3
# Groups:   x [4]
  x         y     z
  <fct> <int> <int>
1 a         3     1
2 b         3     2
3 a         4     1
4 d         5     3
5 d         6     3
6 e         5     4