<一個處理資料的問題...請教高手>

shiyiming

我有兩個問題:

1.我有一筆資料是這樣的
變數 sic1 sic2 sci3 sci4 sci5 sic6 sic7 sic8 sci9 sic10
資料   12    .     12    .     34    .     .      .     .      .     
         23    23    .     .      .      .    .      .      .      .     
         33    45    23   .      .      .    .      34    .      .
我想要找出sic1-sic10他們的值是否相同，要是全相等則dummy=1，重點是我要忽略missing值然後檢測，

像是第一行的dummy應該是0，而第二行應該dummy=1，以此類推~

2.我有一筆資料是:
sic   value
01      234
02      634
03      423
04      234

然後我想將上述資料填入以下資料

假設:
sic1 sic2 sci3 sci4 sci5 sic6 sic7 sic8 sci9 sic10
01     02    .     .     .       .     .     .      .      .
.       02    03   04   .      .     .      .      .      .

結果應該要變成:

sic1 sic2 sci3  sci4   sci5 sic6 sic7 sic8 sci9 sic10
234  634    .      .      .       .     .     .      .      .
.      634   423  234   .       .     .     .      .      .


希望有人好心可以幫我解答~謝謝~

shiyiming

第一个是不是看那几个变量不为缺失值再进行处理？用missing搞定。
第二个可以用format，将01换成格式234，依次类推。

shiyiming

我不大懂你的意思～
1.第一個有missing值所以不知道怎麼寫if指令
if sic1=sic2=sci3=sic4=sci5=sic6=sic7=sic8=sic9=sic10 then dummy=1;
可以這樣寫的話就會把missing值考慮進去
有沒有什摸辦法讓他不考慮missing值

2.format的意思是怎麼用
因為這不是讀資料而是要把資料比對進去
我想做的是如果sic=01那他就會自動去下面的答案找01=234
01  234
02  453
03  456
04   234

shiyiming

1.就是if not missing(sic1)。。。and not missing(sic10）then do;
         if sic1=sic2=sci3=sic4=sci5=sic6=sic7=sic8=sic9=sic10 then dummy=1;
2.proc format ;
values $ tran '01'=234
                 '02'=453
                 '03'=456
                 '04'=234
                other='other'
               ;
run;
然后a=put(sic,$tran.)转换下旧可以了。

shiyiming

不˙好意思~
可以把程式碼列出來給我看嗎~

因為實在試不出來~
拜託~

shiyiming

你的意思是這樣嗎:
           data all1;
           set all;
if sic1^= . then do;
if sic2^= . then do;
if sic3^= . then do;
if sic4^= . then do;
if sic5^= . then do;
if sic6^= . then do;
if sic7^= . then do;
if sic8^= . then do;
if sic9^= . then do;
if sic10^= . then do;
           if sic1=sic2=SIC3= sCI4=siC5=sic6=sic7=sic8=sic9=sic10 then dummy=1;

end;
end;
end;
end;
end;
end;
end;
end;
end;
end;


           run;

Qiong

Q1
[code:19s4zsrt]
data temp;
set temp;
array s(*)_all_;
yummy=1;
do i=2 to dim(s);
if s(i)^=&#46; and s(i)^=s(1) then yummy=0;
end;
drop i;
run;[/code:19s4zsrt]

Qiong

方便起见，把对应的数据复制进去就行，code不用改。
[code:24e99oh7]
data format;
input sic $2&#46;  value $ ;
cards;
01 234
02 634
03 423
04 234
;
data format;
  set format;
  informat start $16&#46; end $16&#46; label $40&#46; fmtname $32&#46; type $1&#46;;
  start=sic;
  end=sic;
  label=value;
  fmtname='aa';
  type='c';
  keep start end label fmtname type;
run;
proc format library=work cntlin=format;run;
data new;
informat sic1-sic10  $2&#46; ;
format sic1-sic10 $aa&#46;;
input sic1-sic10  $ ;
cards;
01 02 &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46;
&#46; 02 03 04 &#46; &#46; &#46; &#46; &#46; &#46;
;
run;[/code:24e99oh7]

shiyiming

謝謝你的答覆~第一題我寫出來了

但是第二題我還是看不董
proc format library=work cntlin=format;run;~~~~~~這是要幹麻??可以稍微解釋一下嗎~
data new;
informat sic1-sic10  $2. ;
format sic1-sic10 $aa.;
input sic1-sic10  $ ;
cards;
01 02 . . . . . . . .
. 02 03 04 . . . . . .
;
run;

Qiong

利用一个dataset来定义format，dataset要有数据的上下限，对应取值，格式名称，类型。
这样对于要定义的format分组比较多的时候，比较方便，我不知道你的分组是不是很多，就用了这个方法。
对于分组比较少的，前面的其实更方便。
[code:3j186w5k]proc format ;
values $ tran '01'=234
'02'=453
'03'=456
'04'=234
other='other'
;[/code:3j186w5k]