用宏分割数据集 - 经管之家

用宏分割数据集

ihust

3541

收藏 2013-08-12

悬赏 10 个论坛币已解决

假设我有如下数据集:

var1 var2
A1    10
B2    22
C1    25
A1    30
A2    22
C1    30
......

这个数据集总共有十多万条观测，我现在想根据var1变量的值来分割，即var1的值相同的观测各自成为一个数据集，并把新生成的数据集根据各自的var1的值，分别命名为data_A1、data_B2、data_c1....

这个如何实现呢？

最佳答案

Eternal0601 查看完整内容

data raw; input var1:$8. var2; datalines; A1 10 B2 22 C1 25 A1 30 A2 22 C1 30 ; run; proc sql noprint; create table vlist as select distinct var1 from raw order by var1; quit; data _null_; set vlist; call execute('data data_' ||strip(var1) ||';'); call execute('set raw;'); call execute('where var1="'||strip(var1)||'";'); call ex ...

扫码加我拉你入群

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

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

全部回复

Eternal0601

2013-8-12 15:21:30

data raw;
input var1:$8. var2;
datalines;
A1    10
B2    22
C1    25
A1    30
A2    22
C1    30
;
run;

proc sql noprint;
create table vlist as
select distinct var1 from raw
order by var1;
quit;

data _null_;
set vlist;
call execute('data data_' ||strip(var1) ||';');
call execute('set raw;');
call execute('where var1="'||strip(var1)||'";');
call execute('run;');
run;

扫码加我拉你入群

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

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

liprayer

2013-8-12 15:32:10

问题的描述好像不是很清楚啊！

扫码加我拉你入群

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

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

ihust

2013-8-12 16:10:50

liprayer 发表于 2013-8-12 15:32
问题的描述好像不是很清楚啊！

哪里不清楚

扫码加我拉你入群

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

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

beijingdizheng

2013-8-12 16:53:15

如果var1不同的取值太多的话可以用下面的方法
data data;
input var1 $ var2 @@;
cards;
A1    10
B2    22
C1    25
A1    30
A2    22
C1    30
A2    500

;
run;
%macro xiang/parmbuff;
proc sort data=data out=data2 nodupkey;
by var1;
run;
data data2;
set data2;
id=1;
run;
data _null_;
set data2;
length var3$ 400;
by id;
retain var3;
if first.id then var3=var1;
else var3=catx(',',var1,var3);
call symput('xx',var3);
run;

%let i=1;
%do %while(%scan(&syspbuff,&i) ne);
%let var=%scan(&syspbuff,&i);
data data&var;
set data;
if var1="&var";
run;

%let i=%eval(&i+1);
%end;
%mend;
%xiang(&xx)

扫码加我拉你入群

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

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

hsaotsud

2013-8-12 20:25:00

复制代码

扫码加我拉你入群

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

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

点击查看更多内容…

ihust

2013-8-12 22:06:23

Eternal0601 发表于 2013-8-12 15:21
data raw;
input var1:$8. var2;
datalines;

好!通俗易懂，完全符合我的预期!

扫码加我拉你入群

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

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

fossilweng

2013-8-12 23:11:17

I once used a macro similar beijingdizheng's. Now feel Eternal0601's method is way better.

Thanks, Eternal0601!

扫码加我拉你入群

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

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

bobguy

2013-8-13 10:46:28

Eternal0601 发表于 2013-8-12 15:21
data raw;
input var1:$8. var2;
datalines;

The solution is very inefficient if many data sets needs to be generated.

I give a hint here,

data_a data_b data_c ....;
  set raw;
  if var1='a' then output data_a;
  else if var1='b' then output data_b;
  else if var1='c' then output data_c;
  ....
;
run;

in this way, it only reads input data set once.

扫码加我拉你入群

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

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

ihust

2013-8-13 19:03:06

bobguy 发表于 2013-8-13 10:46
The solution is very inefficient if many data sets needs to be generated.

I give a hint here,
...

I have concerned this method, but if var1 have many values, I should write so many if statements, so I think about macro to solve this problem.

扫码加我拉你入群

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

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

Eternal0601

2013-8-13 21:08:59

bobguy 发表于 2013-8-13 10:46
The solution is very inefficient if many data sets needs to be generated.

I give a hint here,
...

Thanks. I didn't consider it. Maybe the following is ok.

proc sql noprint;
create table vlist as
select distinct var1 from raw
order by var1;
quit;

data _null_;
set vlist end=last;
call symputx("v"||cats(_n_),var1);
if last then call symput("N",cats(_n_));
run;

%macro split;
data %do i= 1 %to &N.;
data_&&v&i
%end;;
set raw;
select (var1);
%do i= 1 %to &N.;
when ("&&v&i") output data_&&v&i;
%end;
end;
run;
%mend;

%split

扫码加我拉你入群

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

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

bobguy

2013-8-14 05:23:44

Eternal0601 发表于 2013-8-13 21:08
Thanks. I didn't consider it. Maybe the following is ok.

proc sql noprint;

That is the right way. Yoc can improve it by combining 1)+2) as

data raw;
  var1='a'; output; var1='a'; output;
  var1='b'; output; var1='c'; output;
run;

proc sql noprint;

      select distinct var1
      into: var1 - :var30000
      from raw
      order by var1;
quit;

%put >>>&sqlobs<<<;
%put >>>&var1 &var2 &&var&sqlobs<<<;

扫码加我拉你入群

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

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

henryyhl

2013-8-14 13:14:06

学习了一下程序，很有收获~

扫码加我拉你入群

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

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

Tigflanker

2013-8-28 13:57:20

bobguy 发表于 2013-8-14 05:23
That is the right way. Yoc can improve it by combining 1)+2) as

data raw;

Hi bob,

I have a question need to require you.

As the code show that:

proc sql noprint;
      select distinct var1
      into: var1 - :var30000
      from raw
      order by var1;
quit;

But mostly, I need to know which variable means what value. For example:

%do n=1 %to &N;
  %put &&var&n..;
%end;

So, how to write _N_ meanwhile in the SQL step as above in case I have to order the dataset raw with another sequence.

扫码加我拉你入群

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

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

bobguy

2013-9-5 08:45:44

Tigflanker 发表于 2013-8-28 13:57
Hi bob,

I have a question need to require you.

In this case,

_N_=&sqlobs

to order the dataset raw with another sequence= order by YOUR VARIABLE

扫码加我拉你入群

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

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

jingju11

2013-9-6 06:55:01

Eternal0601 发表于 2013-8-13 21:08
Thanks. I didn't consider it. Maybe the following is ok.

proc sql noprint;

真是佩服作者的sas技巧：一个人给出两种截然不同但是都很高超的sas程序。最后的取舍应该根据程序的效率。我运行了两个程序，基于一个数据集1，000，000记录，变量取值大概1000个，取值均匀的随机分布。结果是：where-call execute =140s, select/when-macro=200s.且不说如果数据sorted/indexed，where- 更有效率。也就是，你的第一个程序不但写得好，而且效率也好。
佩服。
京剧

扫码加我拉你入群

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

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

Eternal0601

2013-9-6 22:05:35

jingju11 发表于 2013-9-6 06:55
真是佩服作者的sas技巧：一个人给出两种截然不同但是都很高超的sas程序。最后的取舍应该根据程序的效率。 ...

Thanks for leting me know that. And your blog is great.

扫码加我拉你入群

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

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

jzplarry

2013-9-10 16:45:14

hsaotsud程序比较漂亮。

扫码加我拉你入群

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

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

Tato酱

2013-9-10 17:13:02

中间一段proc sql有必要吗？

扫码加我拉你入群

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

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

最佳答案

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群