问一个sas数据处理问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

original sas data:
变量比较多
v1     mean_v1      v2  mean_v2    v3      mean_v3    v4.................
a         5.6            b           7.3         c           4.8          d


变成

v   mean_v

a     5.6
b     7.3
c     4.8
d      
......


有什么简单的方法吗？

谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：sas数据处理 数据处理问题 数据处理 Original Origin original 数据分析专题 数据处理 数据分析软件 数据分析报告 面板数据分析 excel数据分析 数据分析方法 项目数据分析

data a;
input v1$ mean_v1 v2$ mean_v2 v3$ mean_v3 @@;
cards;
a 5.6 b 7.3 c 4.8
;
run;
proc transpose data=a out=b;
var _all_;
run;
proc sort data=b;
by _name_;
run;
data b;
set b;
col2=lag3(col1);
drop _name_ ;
rename col1=v col2=mean_v ;
label col1="v" col2="mean_v";
if _n_>=4;
run;

只要是字符数字交错出现就可以，具体变量有多少个，名字是什么无所谓

data a;
input v1$ sdsd yy2$ mv2 vkkkk3$ ooea @@;
cards;
a 5.6 b 7.3 c 4.8
;
run;

proc transpose data=a  out=final;var _all_;run;

data final;
set final;
if mod(_n_,2)=1  then v=col1;v=lag(v);
if mod(_n_,2)=0 then mean_v=col1;
if v=mean_v=' ' then delete;
keep v mean_v;
run;

1. data b;
   
2.         set a;
   
3.         array ar_v{20} v1-v20;
   
4.         array ar_mean_v{20} mean_v1-mean_v20;
   
5.         do i=1 to 20 by 1;
   
6.                 v=ar_v{i};
   
7.                 mean_v=ar_mean_v{i};
   
8.                 output;
   
9.         end;
   
10.         keep v mean_v;
    
11. run;

复制代码

变量个数和描述变量名写死的前提下这样写就可以了
需要变化的话，改个宏吧......

funnyxuke 发表于 2010-5-10 07:10
original sas data:
变量比较多
v1     mean_v1      v2  mean_v2    v3      mean_v3    v4.................
a         5.6            b           7.3         c           4.8          d


变成

v   mean_v

a     5.6
b     7.3
c     4.8
d      
......


有什么简单的方法吗？

谢谢

Here is an example to use arrays.

data tmp;
v1='a';
mean_v1=5.6;
v2='b';
mean_v2=7.3;
v3='c';
mean_v3 =4.8;
fmtname='mapv.';
run;

data tmp2;
  length vname $2;
   set tmp;
   array mean(*) mean_v1 mean_v2 mean_v3;
   array v(*) v1 v2 v3;
   do i = 1 to dim(mean);
      vname=v(i);
      mean_v=mean(i);
      output;
   end;
   keep vname mean_v;
run;

proc print;run;

这样可以不？各位大侠
data temp;
   input  v $ mean_v @@;
   cards;
a 5.6 b 7.3 c 4.8;/*有多少复制多少*/
;
run;
proc print data = temp;
run;

4# soporaeternus 呵呵 这个不错

5# bobguy
不错