6# crackman

我的问题是说X1、 X2每列里面 如果说某一个值的频数小于3了就换成缺失值，例如X1有6个1，频数大于3了就不把1换成缺失值，相反4的频数小于3次就换成缺失值。

等于3呢？

data a;
input x1 x2 x3 x4 x5 x6 x7 x8;
obs=_n_;
cards;
1 2 0 6        3 4        2 2
2 3 2 3        1 0        4 1
3 2 1 2        2 3        1 6
1 3        1 7 4 1        2 6
1 2        2 3        1 0        1 1
3 4        2 2        3 4        2 2
1 0        4 1        2 3        1 6
1 3        1 7        1 5        9 5
4 1        2 6        3 6 7 4
3 2 1 2        2 3        1 6
1 3        1 7 4 1        2 6
1 2        2 3        1 0        1 1
3 4        2 2        3 4        2 2
9 9 9 9 9 9 9 9
;
run;
%macro a(var);
data b;
set a;
proc sort data=b (keep=&var. obs);
by &var. ;
run;
data &var.;
set b;
by &var.;
if first.&var.=1 then do;
idx=1;
end;
else idx+1;
run;
proc sql;
create table &var. as select * ,max(idx) as num from &var. group by &var. ;
data &var.;
set &var.;
if num<3 then &var. =.;
drop num idx;
run;
quit;
%mend a(var);
%macro b;
%do i=1 %to 8;
%a(x&i.);
%end;
%mend b;
%b;
data result;
merge x1-x8;
run;

merge应先根据obs排序
另我的版本 merge x1-x8用不起来
我修改了您的程序能给出正大确结果，但日志中提示有错误，请帮看一下错在那里
data a;
input x1 x2 x3 x4 x5 x6 x7 x8;
obs=_n_;
cards;
1 2 0 6 3 4 2 2
2 3 2 3 1 0 4 1
3 2 1 2 2 3 1 6
1 3 1 7 4 1 2 6
1 2 2 3 1 0 1 1
3 4 2 2 3 4 2 2
1 0 4 1 2 3 1 6
1 3 1 7 1 5 9 5
4 1 2 6 3 6 7 4
3 2 1 2 2 3 1 6
1 3 1 7 4 1 2 6
1 2 2 3 1 0 1 1
3 4 2 2 3 4 2 2
9 9 9 9 9 9 9 9
;
run;
%macro a(var);
data b;
set a;
proc sort data=b (keep=&var. obs);
by &var. ;
run;
data &var.;
set b;
by &var.;
if first.&var.=1 then do;
idx=1;
end;
else idx+1;
run;
proc sql;
create table &var. as select * ,max(idx) as num from &var. group by &var. ;
data &var.;
set &var.;
if num<3 then &var. =.;
drop num idx;
run;
proc sort data=&var.;
by obs;
run;
quit;
%mend a(var);
%macro b;
%do i=1 %to 8;
%a(x&i.);
if i=1 then do ; data result;set x&i.;end;
else if do;data result;merge result x&i.;run;end;
%end;
%mend b;
%b;

我的也是 x1-x8不能用，每次都得写个循环 靠 了
data a;
input x1 x2 x3 x4 x5 x6 x7 x8;
obs=_n_;
cards;
1 2 0 6 3 4 2 2
2 3 2 3 1 0 4 1
3 2 1 2 2 3 1 6
1 3 1 7 4 1 2 6
1 2 2 3 1 0 1 1
3 4 2 2 3 4 2 2
1 0 4 1 2 3 1 6
1 3 1 7 1 5 9 5
4 1 2 6 3 6 7 4
3 2 1 2 2 3 1 6
1 3 1 7 4 1 2 6
1 2 2 3 1 0 1 1
3 4 2 2 3 4 2 2
9 9 9 9 9 9 9 9
;
run;
%macro a(var);
data b;
set a;
proc sort data=b (keep=&var. obs);
by &var. ;
run;
data &var.;
set b;
by &var.;
if first.&var.=1 then do;
idx=1;
end;
else idx+1;
run;
proc sql;
create table &var. as select * ,max(idx) as num from &var. group by &var. ;
data &var.;
set &var.;
if num<3 then &var. =.;
drop num idx;
run;
proc sort data=&var.;
by obs;
run;
quit;
%mend a(var);
%macro b;
%do i=1 %to 8;
%a(x&i.);
%end;
data final(drop=obs);
     merge %do i=1 %to 8;
         x&i
        %end;
        ;
run;
%mend b;
%b;

11# sushe1527

merge 还有如此用法，end后第二个;什么意思

data final(drop=obs);
     merge %do i=1 %to 8;
         x&i
        %end;
        ;
run;

最后谢谢crackman和 sushe1527 的大力帮助!

不过merge X1-X8.我想目前谁的版本也运行不了吧.

不但是merge，我的set x1-x8 也不能用

14# sushe1527
set x1-x8;家里没有sas可试。我觉得好像可以吧。最起码9.2应该没有问题。

我是来看jingju说中文的.....

我的可以用的SAS 9.2

50   data result;
51   merge x1-x8;
52   run;

NOTE: 有 14 个从数据集 WORK.X1 读取的观测。
NOTE: 有 14 个从数据集 WORK.X2 读取的观测。
NOTE: 有 14 个从数据集 WORK.X3 读取的观测。
NOTE: 有 14 个从数据集 WORK.X4 读取的观测。
NOTE: 有 14 个从数据集 WORK.X5 读取的观测。
NOTE: 有 14 个从数据集 WORK.X6 读取的观测。
NOTE: 有 14 个从数据集 WORK.X7 读取的观测。
NOTE: 有 14 个从数据集 WORK.X8 读取的观测。
NOTE: 数据集 WORK.RESULT 有 14 个观测和 9 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.06 秒
      CPU 时间          0.01 秒

对不起。我的9.2怎么突然可以用了呢。呵呵。