Início / coding / Perguntas / 78359010
Accepted
jkatam
Asked: 2024-04-21 00:50:05 +0800 CST

Remova duplicatas sem alterar a ordem dos nomes

  • 772

considere os seguintes dados

Data ss;
infile datalines;
input ename $;
datalines;
Ram
Sita
Ram
Arjun
Sita
Ram
Arjun
;
run;

#output

Ram
Sita
Arjun

Conheço outras abordagens, como classificar os dados por ename e depois usar o primeiro., mas dessa forma precisamos classificar os dados e a saída começará com Arjun, Ram e Sita. No entanto, precisamos manter a ordem como mencionei na saída esperada.

proc sort data=ss;
by ename;
run;

data want;
set ss;
by ename;
if first.ename;
run;
sas

1 respostas

  1. Best Answer

    Você poderia fazer isso usando uma tabela hash ou array para controlar quais nomes foram lidos. Mas se seus dados não forem muito grandes, você também pode fazer isso adicionando uma variável rownumber e, em seguida, classificar, selecionar first.ename como mostrado e classificar novamente para restaurar a ordem.

    Data ss;
infile datalines;
input ename $;
datalines;
Ram
Sita
Ram
Arjun
Sita
Ram
Arjun
;
run;

data ss2 ;
  set ss ;
  rownum=_N_ ;
run ;

proc sort data=ss2 ;
  by ename rownum ;
run ;

data ss3 ;
  set ss2 ;
  by ename rownum ;
  if first.ename ;
run ;

proc sort data=ss3 ;
  by rownum ;
run ;

proc print data=ss3 ;
run ;

    Ou se você gosta de SQL, depois de adicionar a coluna rownum você pode fazer assim:

    proc sql ; 
  create table want as
  select ename 
  from ss2
  group by ename
  having rownum=min(rownum)
  order by rownum
  ;
quit ;
    • 1

relate perguntas