如何把一个变量分割成多个变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

譬如说我有一组变量
group_all
1
2
3
4
5
6

怎样才能变为
group1     group2
1                  4
2                  5
3                  6


多谢啦

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：多个变量 Group 如何

data b;
input group_all;
cards;
1
2
3
4
5
6
;
run;
data b;
set b;
code=compress('group'||ceil(group_all/3));
run;

proc sort data = Work.B nodupkey out = _PROJ_.SPLITED0 (keep=CODE);
   by CODE;
run;

/***Assign values to macro variables***/
data _null_;
  set _PROJ_.SPLITED0 end=eof;
  newvar = compress(CODE);
  call symput('col'||left(_n_),left(trim(newvar)));
  call symput('value'||left(_n_),left(trim(CODE)));
  if eof then call symput('num',_n_);
run;

/***Subset the data set by Split-by column***/
%macro subdata;
  %*                                 ;
  %****Macro to subset a data set****;
  %*                                 ;
  %do k=1 %to #
    data temp&k (rename = (GROUP_ALL = &&col&k.&&k));
      set Work.B;
      if CODE = "&&value&k";
      drop CODE;
    run;
  %end;
%mend;

/***Create a list of all temporary data sets***/
%macro filelist;
  %*                                        ;
  %****Macro for listing temporary files****;
  %*                                        ;
  %do n=1 %to #
    temp&n
  %end;
%mend;

%subdata

/***Merge all temporary data sets***/
data c;
   merge %filelist;
run;

/***Delete temporary data sets in WORK library***/
proc datasets nolist;
   delete %filelist;
run;
quit;
quit;