如何找出某变量中满足条件的元素

2872

收藏 2014-03-16

数据集A（date 是年月）：
id    date
1    201001
1    201002
1    201003
1    201004
1    201005
1    201006
1    201007
1    201008
2    201001
2    201002
2    201003
2    201004
2    201005

2    201006
2    201007
2    201008

3    201001
3    201002
3    201003
3    201004
3    201005

3    201006
3    201007
3    201008

数据集B：
id date
1 201003
2 201004
3 201006

问题：我要从A中找出B中各id对应月份的前后各两月，即要得到：

数据集C：
id    date
1    201001
1    201002
1    201004
1    201005
2    201002
2    201003
2    201005
2    201006

3    201004
3    201005
3    201007
3    201008

请问如何编代码，谢谢！！

扫码加我拉你入群

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

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

全部回复

farmman60

2014-3-17 00:00:08

proc sql;
  create table want as
  select a.id, a.date from a,b
  where a.id=b.id and  ( -2<=a.date-b.date<=2  and a.date^=b.date);
  quit;

扫码加我拉你入群

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

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

dbjqw

2014-3-17 09:51:34

farmman60 发表于 2014-3-17 00:00
proc sql;
create table want as
select a.id, a.date from a,b

谢谢！

扫码加我拉你入群

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

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

dbjqw

2014-3-17 10:03:02

farmman60 发表于 2014-3-17 00:00
proc sql;
create table want as
select a.id, a.date from a,b

请问如果我的数据是跨年的应该如何解决呢?比如：
数据集A：
id    date
1    200910
1    200911
1    200912
1    201001
1    201002
1    201003
1    201004

数据集B：
id    date
1    201001

要得到数据集C：
1    200911
1    200912
1    201002
1    201003

谢谢！

扫码加我拉你入群

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

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

soporaeternus

2014-3-17 10:06:05

intck+input

扫码加我拉你入群

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

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

dbjqw

2014-3-17 10:13:00

soporaeternus 发表于 2014-3-17 10:06
intck+input

我对sql过程不懂，能不能请您说得明白一些，谢谢！

扫码加我拉你入群

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

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

点击查看更多内容…

farmman60

2014-3-17 22:36:30

data a;
input id date;
cards;
1    200910
1    200911
1    200912
1    201001
1    201002
1    201003
1    201004
2    201101
2    201102
2    201103
2    201104
2    201105
;
run;
data B;
input id    date;
cards;
1    201001
2    201103
;
run;

data a;
set a;
_date=input(put(date,6.),yymmn6.);
format _date yymmn6.;
rename _date=date;
drop date;
run;

data b;
set b;
_date=input(put(date,6.),yymmn6.);
format _date yymmn6.;
rename _date=date;
drop date;
run;

proc sql;
  create table want as
  select a.id, a.date from a,b
  where a.id=b.id and a.date between intnx('month',b.date,-2) and intnx('month',b.date,2)and a.date^=b.date;
  quit;

扫码加我拉你入群

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

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

dbjqw

2014-3-18 21:39:44

farmman60 发表于 2014-3-17 22:36
data a;
input id date;
cards;

谢谢！想问问这句：
_date=input(put(date,6.),yymmn6.);

貌似直接替换成informat date yymmn6.;也可以？

扫码加我拉你入群

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

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

sharpe123

2014-3-23 16:32:34

farmman60 发表于 2014-3-17 22:36
data a;
input id date;
cards;

想请问一下如果A的时间不是连续的。
例如200908 200911 201001 201003 201004 201005
这时想从A中找出B中各id 对应的最近的两个月的数据。该用什么函数，如何编代码？

扫码加我拉你入群

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

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

farmman60

2014-3-23 21:03:17

data a;
input id date;
cards;
1    200910
1    200911
1    201001
1    201004
2    201103
2    201105
2    201107
2    201108
;
run;
data B;
input id    date;
cards;
1    201001
2    201105
;
run;

data want(rename=(_id=id _date=date));
  if 0 then set a(rename=(id=_id date=_date));
  declare hash h(dataset:'a(rename=(id=_id date=_date))',multidata:'y',ordered:'y');
  h.definekey('_id','_date');
  h.definedata(all:'y');
  h.definedone();
  declare hiter hi('h');

  set b;
  rc=hi.setcur(key:id,key:date);
   hi.prev();
   output;
   hi.next();
   output;
   hi.next();
   output;
drop id date rc;
run;

扫码加我拉你入群

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

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

正午

2014-3-23 22:13:41

data a;
input id date;
cards;
1    201001
1    201002
1    201003
1    201004
1    201005
1    201006
1    201007
1    201008
2    201001
2    201002
2    201003
2    201004
2    201005
2    201006
2    201007
2    201008
3    201001
3    201002
3    201003
3    201004
3    201005
3    201006
3    201007
3    201008
;
run;

data b ;
input id date;
cards;
1 201003
2 201004
3 201006
;
run;
proc sort data=a; by id;run;
proc sort data=b ;by id;run;

data c;
set a;
by id;
if first.id then do;
set b(rename=(date=date_b));
end;
if date=date_b-2 or date=date_b+2 then output;
run;

没有转换成日起值，直接计算的，你可以换成日期格式计算。

扫码加我拉你入群

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

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

sharpe123

2014-3-24 16:21:12

farmman60 发表于 2014-3-23 21:03
data a;
input id date;
cards;

不是很看的懂，留着慢慢思考，
非常感谢！

扫码加我拉你入群

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

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

learsaas

2014-4-1 08:40:02

手写的代码，没调试过，需楼主自己去调试了：
proc sort data=a;
by id date;
run;
proc sort data=b;
by id date;
run;
data c1 c2;
Merge a b(rename=(date=basedate));
By id;
If date<basedate then output c1;
Else if date>basedate then output c2;
Drop basedate;
Run;
Proc sort data=c1;
By id descending date;
Run;
Data c1;
Set c1;
By id;
If first.id then n=0;
N+1;
If n<=2;
Drop n;
Run;
Proc sort data=c1;
By id date;
Run;
Data c2;
Set c2;
By id;
If first.id then n=0;
N+1;
If n<=2;
Drop n;
Run;
Data c;
Set c1 c2;
By id;
Run;

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群