SAS: attribuer un numéro de série basé sur le groupe

Question

Je sais qu'il existe des questions similaires concernant les numéros de série, mais mon cas est un peu différent. Je dois attribuer un numéro de série en fonction de la variable de groupe. Maintenant, mes données sont triées par la variable de groupe. Les données suivantes ne sont qu'une partie de l'ensemble de données. Fondamentalement, je veux créer la variable "serial_num" qui assignent le numéro de série unique par le groupe comme montré ci-dessous.

Par exemple, lorsque groupe = 1, chacun a son propre numéro de série. Lorsque groupe = 2, il y a deux numéros de série identiques. J'espère que vous aurez le modèle en observant les données ci-dessous.

Merci d'avance.

serial_num group 
---------------- 
1   1 
2   1 
.   . 
.   . 
.   . 
7   2 
7   2 
8   2 
8   2 
.   . 
.   . 
.   .  
10   3 
10   3 
10   3 
11   3 
11   3 
11   3 
.   . 
.   . 
.   . 

Answer 1

Une exigence étrange, mais voici une solution utilisant l'ancienne étape de données.

data output; 
    set input; 
    by group; 
    if first.group or c = group then do; 
     c = 0; 
     serial_num + 1; 
    end; 
    c + 1; 

    drop c; 
run; 

Answer 2

Une solution grossière utilisant l'IML. Principalement pour vérifier avec vous si elle correspond au modèle que vous voulez puis si nécessaire, je peux l'agrandir pour activer la saisie de données ou apporter des améliorations.

Remarque: y est le vecteur de numéro de série généré.

proc iml; 
x={1,1,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,4,4}; 
y=j(nrow(x),1,.); 

y[1,1]=1; 
j=1; 
do i=2 to nrow(y); 
    if y[i-x[i,1],1]=j then do; 
     j=j+1; 
     y[i,1]=j; 
    end; 
    else if x[i,1]^=x[i-1,1] then y[i,1]=y[i-1,1]+1; 
    else y[i,1]=y[i-1,1]; 
end; 
print y; 
quit;