逐个观测有条件的剔除变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有的数据有点问题，所以需要有条件的剔除变量，比如
stkcd   费用1  费用2  费用3
1         管理    销售    其他
1          100   200      10
2         管理    其他    文件
2           20      50       70
3         其他   查看    文件
3          100    20        50

我想做的是比如stkcd=2时，如果观测等于‘其他’则费用3里面的文件就删掉，并且下面一行数字70页删掉。
觉得很难设计这个程序，不知道各位达人有没有办法，求助啊。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：剔除变量 stkcd STK 有没有 不知道 程序

是这样吗？

data test;
input stkcd cost1 $ cost2 $ cost3 $;
  if stkcd ne lag(stkcd) then flag=0;
  if cost2="other" then flag+1;
  if flag=1 then call missing(cost3);
  drop flag;
cards;
1 admin sale other
1 100 200 10
2 admin other file
2 20 50 70
3 other check file
3 100 20 50
;

wwang111 发表于 2016-7-21 20:42
是这样吗？

data test;

不好意思，可能我没说清楚，对于每一个stkcd，只要某一个cost等于'其他'则把这个观测和下一个观测中‘其他’后面所有变量都剔除。

我暂时想到这个办法，有点麻烦，有可能走弯路了，你先看一下：

data test;
input stkcd cost1 $ cost2 $ cost3 $;
cards;
1 admin sale other
1 100 200 10
2 admin other file
2 20 50 70
3 other check file
3 100 20 50
;

%let costnum=3; /* number of COST variables*/
data _null_;
set test end=last;  
  length _code $100 code $1000;
   retain code;
   array cost cost:;
    do i=1 to dim(cost);
         if cost="other" then vname=vname(cost);
        end;
  if vname ne '' then num=input(compress(vname,,'a'),best.)+1;
  if .<num<=&costnum
    then _code='if stkcd='||cat(stkcd)||' then call missing(of cost'||cat(num)||"-cost&costnum);";
  if _n_=1 then code=_code;
  else code=strip(code)||strip(_code);
  if last then do;
  call execute('data wanted;set test;');
  call execute(code);
  call execute('run;');
  end;
run;

wwang111 发表于 2016-7-21 21:47
我暂时想到这个办法，有点麻烦，有可能走弯路了，你先看一下：

data test;

多谢你了， length _code 100code1000; 这行可以把变量定义那么长吗？
走弯路不要紧，能得到想要的结果才比较重要

susanzhu 发表于 2016-7-22 21:01
多谢你了， length _code 100code1000; 这行可以把变量定义那么长吗？
走弯路不要紧，能得到想要的结果才 ...

我是怕你记录数太多，产生很多code，保险起见，长度只要够用就好，你可以根据具体数据调整

wwang111 发表于 2016-7-22 21:06
我是怕你记录数太多，产生很多code，保险起见，长度只要够用就好，你可以根据具体数据调整

我执行命令的时候报错说数值型变量的长度为3-8，后面的命令就没法执行了。
data re06;
set re05 end=last;  
  length _code 100code 2100;
   retain code;
   array item item:;
    do i=1 to dim(item);
         if item="其他" then vname=vname(item);
        end;
  if vname ne '' then num=input(compress(vname,,'a'),best.)+1;
  if .<num<=&itemnum
    then _code='if stkcd='||cat(stkcd)||' then call missing(of item'||cat(num)||"-item&itemnum);";
  if _n_=1 then code=_code;
  else code=strip(code)||strip(_code);
  if last then do;
  call execute('data wanted;set test;');
  call execute(code);
  call execute('run;');
  end;
run;
这是我根据您的命令修改的，麻烦您帮忙看一下哪里有问题。
总data有2000多条观测。

length _code $100 code $1000; 定义长度的时候，字符型变量要加 $

如果长度1000不够用，可以设置的更长一点，字符型变量的长度最长可以到32767

wwang111 发表于 2016-7-22 22:08
length _code $100 code $1000; 定义长度的时候，字符型变量要加 $

如果长度1000不够用，可以设置的更长 ...

好的 多谢您了