如何生成对应数值个数的数据集

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如下数据
A：1 2 3 4

B1:2 3 3 2
B2:1 4 2 3

A行为B1,B2行对应的数据，想生成如下数据集：

B3：1 1 2 2 2 3 3 3 4 4
B4：1 2 2 2 2 3 3 4 4 4

即B行中的数值为对应A行中数值的个数。请各位指点！多谢~！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据集 数值 数据集

data ex1(drop=b4) ex2(drop=b3);
input A B1        B2 @;
   do i=1 to b1;
       b3=a;
           keep b3;
           output ex1;
        end;
   do i=1 to b2;
      b4=a;
          keep b4;
          output ex2;
        end;
cards;
1        2        1
2        3        4
3        3        2
4        2        3
;
run;
data ex;
   merge ex1 ex2;
   run;

1. data raw;
   
2.         input v1-v4;
   
3. datalines;
   
4. 1 2 3 4
   
5. 2 3 3 2
   
6. 1 4 2 3
   
7. ;
   
8. data _null_;
   
9.         retain out_dim;
   
10.         set raw end=last;
    
11.         if _n_=1 then do;
    
12.                         call symputx('base_val',catx(' ',of v1-v4));
    
13.                         call symputx('base_dim',n(of v1-v4)-1);
    
14.                 end;
    
15.         else out_dim=max(out_dim,sum(of v1-v4));
    
16.         if last then call symputx('out_dim',out_dim);
    
17. run;
    
18. data out(keep=out:);
    
19.         set raw(firstobs=2);
    
20.         array base{0:&base_dim} (&base_val);
    
21.         array mult{0:&base_dim} v:;
    
22.         array out{&out_dim};
    
23.         do i=0 to &base_dim;
    
24.                 do j=1 to mult(i);
    
25.                         k=sum(k,1);
    
26.                         out(k)=base(i);
    
27.                 end;
    
28.         end;
    
29. run;

复制代码

多谢LS两位指教，学习了~！

2# sxlion

I just simplify it to make it more readable.

data b3(keep=a)  b4(keep=a);
  input a b c ;
  do i = 1 to b;
      output b3;
   end;
  do i = 1 to c;
      output b4;
   end;
cards;
1        2        1
2        3        4
3        3        2
4        2        3
;

proc print data=b3; run;
proc print data=b4; run;

楼上的了不起。

我连楼主的问题都没有看懂。看了楼上的程序，才知道楼主要问的是什么。