Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
198 views
in Technique[技术] by (71.8m points)

sql - How to delete some observations in some groups based on a condition

I would like delete some observations in some groups based on a condition. My condition is each group : if (imput="toto") then delete but if a whole group has imput="toto" then keep it

data temp;
input siren $ class $ imput $;
cards;
A CP titi
B CP toto
C CE tata
D CE tata
F CM toto
G CM toto
H SU tata
I SU toto
;
run;

The output I want :

siren class imput
A CP titi
C CE tata
D CE tata
F CM toto
G CM toto
H SU tata

Many thanks in advance !

question from:https://stackoverflow.com/questions/65849799/how-to-delete-some-observations-in-some-groups-based-on-a-condition

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)

So you want to do two checks. Is the value toto and is the value only toto. Here is SQL that will do that. I had it explicitly create the checks as new variables so you can see what is happening. To see the check values for all observations remove the HAVING clause. If you are happy with it you can remove the check variables and just move the conditions into the having clause.

data temp;
  row+1;
  input siren $ class $ imput $;
cards;
A CP titi
B CP toto
C CE tata
D CE tata
F CM toto
G CM toto
H SU tata
I SU toto
;

proc sql ;
create table want as 
  select *
       , imput ne 'toto' as check1
       , max(imput ne 'toto') as check2
  from temp
  group by class 
  having check1 or not check2
  order by row
;
quit;

To do this with just a DATA step you will want add a "double DOW Loop" so you can calculate the overall flag for a group in the first loop and then process the individual rows in the second loop. Note this requires the input dataset is sorted (or at least grouped) by class.

data want;
  do until(last.class);
    set temp;
    by class notsorted;
    if imput ne 'toto' then check2=1;
  end;
  do until(last.class);
    set temp;
    by class notsorted;
    if imput ne 'toto' or not check2 then output;
  end;
  drop check2;
run;

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...