SAS 选取部分观测

SAS  对部分观测得处理

在建立新数据集时,有以下两种方式可以从已经存在的数据集中选取观测到新数据集中。

  ·通过删除不满足条件的观测来保留想要的观测。

  ·仅接受满足条件的观测。

条件可以由IF语句、WHERE语句或数据集选项WHERE=中的条件表达式来指定。WHERE语句和数据集选项WHERE=可以用在DATA步 和PROC步中,两者的使用方法基本相同。

1.使用DELETE语句删除满足条件的观测

DATA步中可以结合使用IF语句和DELETE语句来删除满足条件 的观测,其基本形式如下:

IF  条件表达式  THEN  DELETE;

在该过程中,SAS首先判断条件表达式是否为真。如果为真,则执 行THEN从句中的DELTET语句。DELETE语句会让SAS立即返回DATA 步的开始处读取下一条观测,当前观测不会写入输出数据集中。注意, DELETE语句不会删除输入数据集中的观测。

在数据集saslib.contact中选取地址信息(Address)不为缺失 值的观测建立新数据集work.contact_address。

已经存在的数据集saslib.contact中包含客户联系信息,内容如图所示。


DATA步中IF语句用于判断Address信息是否为缺失值,DELETE语句则可将Address为缺失值的观测删除。代码如下:

data  work.contact_address;
set  saslib.contact;
if address  =  ""   then  delete;
run;
proc  print  data=work.contact_address;
run;

PRINT过程打印的数据集work.contact_address如图3.5所示。其中不 包含编号(Customer_ID)为C004的客户信息,因为其地址信息为缺失 值。

2.使用取子集的IF语句接受满足条件的观测

选择满足条件的观测另一种方式是直接选取满足条件的观测,即使 用取子集的IF语句(Subsetting IF),其基本形式如下:

IF  条件表达式;

当条件表达式的值为真时,继续处理该观测;否则停止处理该观测 并返回DATA步开始处读取下一条观测,且该观测不会写入输出数据 集。该IF语句称为选取子集的IF语句,是因为所产生的输出数据集是原 始数据集的子集。

选取数据集saslib.contact中其职位(Position)为Manager的 观测,建立新数据集work.contact_manager,并打印新生成的数据集中的数据。

代码如下:

data  work.contact_manager;
set  saslib.contact;
if position  =  "Manager";
run;
proc  print  data=work.contact_manager  noobs;
run;

DELETE语句和取子集的IF语句得选择主要依据:

  ·由于DELETE语句和取子集的IF语句需要构造的条件表达式不同, 因此在编写程序的时候,通常选择需要较少比较次数的条件表达式的语句,因为这会提高程序执行效率。

  ·在比较次数相近时,通常选择正向的条件表达式,也就是说选择 取子集的IF语句。

  ·当数据中存在缺失值或可能有拼写错误的数据值时,使用取子集 的IF语句也更容易产生需要的结果。

 

3. 使用OUTPUT语句建立多个数据集

结合条件语句和OUTPUT语句可以在一个DATA步中创建多个SAS数据集,以便分别包含输入数据集的不同观测。使用OUTPUT语句的基本形式如下:

OUTPUT  <数据集>;

OUTPUT语句将当前观测写入指定数据集。其数据集必须为在 DATA语句中出现的数据集。当未指定数据集时,SAS会将当前观测写入DATA语句的所有数据集中。

选取在数据集saslib.contact中选取职位(Position)为 Manager的观测,建立新数据集work.contact_manager,对其他职位的观 测建立新的数据集work.contact_others。

代码如下:

data  work.contact_manager work.contact_others;
set  saslib.contact;
if position  =  "Manager"  then  output  work.contact_manager;
else  output  work.contact_others;
run;
proc  print  data=work.contact_manager  noobs;
title  "Postion  is Manager";
run;
proc  print  data=work.contact_others  noobs;
title  "Postition  is not  Manager";
run;

 

  如果在DATA步中不使用任何OUTPUT语句,在每次迭代结束时会自动将观测写入DATA语句指定的所有数据集中。但是,如果在DATA 步中使用了OUTPUT语句,每次迭代结束时就不会自动将观测写入任何 数据集。因此,一旦在程序使用了OUTPUT语句,则必须为所有需要写 入数据集的观测使用OUTPUT语句。此外,还需要注意的是,如果在 OUTPUT语句之后进行计算,生成或改变的变量值也不会写入输出数据集。

  在saslib.contact中选取职位(Position)为Manager的观测输 出到数据集work.contact_manager中,并将年龄(Age)大于等于35的联 系人的观测输出到数据集work.contact_agege35中。代码如下:

data  work.contact_manager work.contact_agege35;
set  saslib.contact;
if position  =  "Manager"  then  output  work.contact_manager;
if age >=  35   then  output  work.contact_agege35;
run;
proc  print  data=work.contact_manager  noobs;
title  "Position  is Manager";
run;
proc  print  data=work.contact_agege35  noobs;
title  "Age  is older  than  35";
run;

  PRINT语句打印的两个数据集内容如图3.8所示。其中Customer_ID 为C001的观测同时存在于两个数据集work.contact_manager和 work.contact_agege35中,因为其同时满足两个IF语句的条件。

4  操作所选取的观测

  除了将满足条件的观测值直接写入结果数据集外,在DATA步中还 可以操作满足条件的观测中的变量值,例如修改变量名字以及生成新变量等。

4.1   IF-THEN/ELSE语句

SAS选取观测进行操作时,最常用的方式是通过IF-THEN/ELSE语句。其基本形式如下:

IF  条件表达式  THEN  可执行语句;
<ELSE  可执行语句;>

其中:

  • ·条件表达式是一个或多个SAS表达式,通常为由比较操作符和操作 数组成的表达式。
  • ·SAS会对条件表达式的求值,结果为真(true)时,执行THEN从 句中的可执行语句;条件表达式的值为假(false)时,SAS忽略THEN 从句。可执行语句必须是在DATA步的单次迭代中可以执行的SAS语 句。最常用的可执行语句是赋值语句。
  • ·ELSE从句提供对该观测的可选操作。当条件表达式为真(true) 时忽略该从句;为假(false)时,执行ELSE从句中指定的语句。ELSE 从句可以不存在,如果存在则必须紧跟在对应的IF-THEN语句之后。

saslib.inventory中包含了产品在各地区的库存和价格信 息。公司现决定将每种产品在北京的销售价格提高20%,其他地区保持 不变。

代码如下:

data  work.Inventory2;
set  saslib.Inventory;
if Region="BJ"  then  Price=Price*1.2;
run;
proc  print  data=work.Inventory2  noobs;
run;

公司决定将每种产品在北京的销售价格提高20%,其他地区 销售价格提高10%。这时可使用ELSE从句,代码如下:

data  work.Inventory3;
set  saslib.Inventory  ;
if Region="BJ"  then Price=Price*1.2;
else  Price=Price*1.1;
run;
proc  print  data=work.Inventory3  noobs;
run;

4.2 赋值语句

赋值语句是可执行语句,常用于对变量进行赋值。其基本形式为:

变量=表达式;

其中:

  • ·变量是已经存在的变量或新变量,可以是单个变量名、数组引用 或左侧的SUBSTR函数(即SUBSTR函数出现在赋值操作符左侧)等。 若变量已经存在,赋值语句会修改该变量的值;如果变量不存在,赋值 语句会创建新变量。
  • ·表达式是任何SAS表达式。

赋值语句用于对等号(=)右侧的表达式求值,并将结果存储在等 号(=)左侧的变量中。表达式中可包含出现在等号左侧的变量。这 时,变量的原始值用于对表达式求值,并且结果存储在等号左侧的变量 中。

在例3.8中,使用了赋值语句(Price=Price*1.2;)提高产品价格。 在处理第一条观测时,输入数据集中的Price值为125,对表达式 Price*1.2求值,结果为150,因为左侧变量为Price,所以结果仍然存储 在Price中。因此,输出数据集中Price的值为150。

4.3 DO语句

DO语句也是可执行语句。通过DO语句可以将一组可执行语句指定 为一个单元来执行。DO语句的基本形式如下:

DO;
…可执行语句组…;
END;

DO语句和END语句之间的语句称为DO组(DO Group)。DO语 句也可以嵌套DO语句。在IF-THEN/ELSE语句中,简单的DO语句通常 用于根据IF条件是否为真来指定要执行的一组可执行语句。

:基于数据集saslib.Inventory中的数据,将每种产品在北京的销售价格提高20%,库存增加1倍,其他地区的销售价格提高10%,库存 增加50%。

这时在IF语句THEN从句和ELSE从句中使用DO语句,代码如下:

data  work.Inventory4;
set  saslib.Inventory;
if Region="BJ"  then do;
Price=Price*1.2; 
Instock=Instock*2; end; else do; Price=Price*1.1;
Instock=Instock*1.5; end; run; proc print data=work.Inventory4 noobs; run;

PRINT过程打印价格所生成的数据集内容如图所示。

4.4.嵌套IF-THEN/ELSE语句

一条IF-THEN/ELSE语句可根据条件提供两种不同的可选操作。很多时候需要根据一系列互斥的条件执行不同的操作,这时可使用嵌套的 IF-THEN/ELSE语句。两层嵌套的IF-THEN/ELSE语句的基本形式如下:

IF  条件表达式1  THEN  可执行语句1; 
ELSE  IF条件表达式2 THEN可执行语句2;
ELSE可执行语句3;

其执行过程如下:

1)SAS计算条件表达式1的值。

2)当条件表达式1的结果为真时,SAS执行可执行语句1,并忽略 紧跟其后的ELSE从句,包括嵌套的IF-THEN/ELSE语句。所有执行过程 完成。

3)当条件表达式1的结果为假时,忽略紧跟其后的THEN从句,并 进行下一步。

4)判断SAS条件表达式2的值。

5)当条件表达式2的结果为真时,SAS执行可执行语句2,并忽略紧跟其后的ELSE。所有执行过程完成。

6)当条件表达式1的结果为假时,忽略紧跟其后的THEN从句,SAS执行可执行语句3。所有执行过程完成。

基于数据集saslib.Inventory中的数据,公司决定将每种产品 在北京的销售价格提高20%,在上海的销售价格提高15%,其他地区的 销售价格提高10%。 

data  work.Inventory5;
set  saslib.Inventory;
if Region="BJ"  then
Price=Price*1.2;
else  if Region="SH"  then
Price=Price*1.15;
else
Price=Price*1.1;
run;
proc  print  data=work.Inventory5  noobs;
run;

4.5  SELECT语句

还可以通过SELECT语句构造不同的条件来操作观测。SELECT语 句的基本形式如下:

SELECT  <select-表达式>;
WHEN  when-表达式  可执行语句;
<…WHEN  when-表达式  可执行语句;  >
<OTHERWISE  可执行语句;>
END;
  • ·select-表达式指定计算单个值的SAS表达式。
  • ·when-表达式为任意SAS表达式。在SELECT语句和END语句之间的语句称为SELECT组。SELECT组中要求至少有一条WHEN语句,而WHEN语句中要求至少有一个when-表达式。when-表达式为真时,执行 跟随其后的可执行语句;否则,忽略其后可执行语句。
  • ·可执行语句可以是任何可执行的SAS语句,包括赋值语句、DO语 句、SELECT语句或空语句等。空语句用于WHEN语句中时,SAS会认 为该条件为真,但是不做任何操作。
  • ·OTHERWISE从句中指定当所有的WHEN条件都不满足时需要执行 的语句。

 

将公司每种产品在北京的销售价格提高20%,在上海的销售价格提高15%,其他地区的销售价格提高10%。 使用SELECT语句的代码如下:

data  work.Inventory6;
set  saslib.Inventory;
select  (Region);
when  ("BJ")  Price=Price*1.2;
when  ("SH")  Price=Price*1.15; 
otherwise Price=Price*1.1; end; run; proc print data=work.Inventory6 noobs; run;

 

posted @ 2019-03-13 15:17  suolilian  阅读(7007)  评论(0编辑  收藏  举报