[实际应用] data步的转置和proc transpose转置的灵活运用 [推广有奖]

1关注
0粉丝

大专生

86%

还不是VIP/贵宾

威望: 0 级
论坛币: 51 个
通用积分: 0
学术水平: 0 点
热心指数: 5 点
信用等级: 0 点
经验: 1160 点
帖子: 37
精华: 0
在线时间: 79 小时
注册时间: 2013-4-12
最后登录: 2016-6-30

楼主

phoesun 发表于 2014-8-24 12:38:23 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

      在实际应用当中，我们需要对数据进行转置，把横向的数据想变成纵向的，把纵向的数据想变成横向的，但是当数据量过大时，我们使用proc transpose 速度就会很慢，很多朋友可能会灵活使用proc transpose  但是data步的转置用的不熟悉，在下不才，举个简单的例子帮助大家了解data步的转置；
   在此我就不过多介绍proc transpose的具体使用方法，只是在此简单的举个实例，让大家了解这两种实现数据转置的方法即可，希望各位大牛们批评指正，能够做些补充。

/*此数据集为学生各科考试的成绩记录，希望一个学生姓名后面几列跟的是学生的各个科目的成绩*/
data quan1;
input  name$ course $ score;
cards;
zhangsan a 59
zhangsan b 86
zhangsan c 75
zhangsan d 76
lisi a 78
lisi c 85
lisi e 79
run;

/*先对原始数据集进行排序*/
proc sort data=quan1;
by name;
run;
/*1、transpose转置实现把纵向数据集按照需要转换成横向数据集*/
proc transpose data=quan1 out=tt(drop=_name_);
by name;
id course;
var score;
run;

/*data步转置实现：把纵向数据集按照需要转换成横向数据集*/
data temp;
set quan1;
array amount(5)  a  b  c  d  e;
retain  a  b  c  d  e;
by name;
if first.name then
  do i=1 to 5;
amount(i)=0;
  end;
   if course="a" then
  amount(1)=score;
else if course="b" then
  amount(2)=score;
else if course="c" then
  amount(3)=score;
else if course="d" then
  amount(4)=score;
else if course="e" then
  amount(5)=score;
if last.name;
drop i score course;
run;

/*2、transpose步转置实现把横向数据集按照需要转换成纵向数据集*/
proc transpose data=temp  out=dsd(rename=(_name_=course col1=score) );
by name;
run;

/*data步转置实现把横向数据集按照需要转换成纵向数据集*/
data temp1;
set temp;
array aa(5)  a  b  c  d  e;
retain  a  b  c  d  e;
by name;
do i=1 to 5;
if aa(i) ne 0 and aa(i) ne . then do;
if i=1 then course="a";
else if i=2 then course="b";
else if i=3 then course="c";
else if i=4 then course="d";
else if i=5 then course="e";
score=aa(i);
output;
end;
end;
drop i  a  b  c  d  e;
run;

这样横向纵向转置就可以初步实现，如果还想做些其他细节的修改，需要再添加一些选项即可