求助:数据变形

shiyiming

from

A   5
B   2
C   3

to

A
A
A
A
A
B
B
C
C
C

谢谢了

shiyiming

data a;
input x $ y @;
cards;
A 5
B 2
C 3
;
run;
data b(drop= y i);
set a;  
if x='A' then do i=1 to y ;
output;
end;
if x='B' then do i=1 to y ;
output;
end;
if x='C' then do i=1 to y ;
output;
end;
run;

shiyiming

data tem;
set tem;
do i=1 to b;
output;
end;
keep x;
run;

shiyiming

[quote="holly":04e2b]data a;
input x $ y @;
cards;
A 5
B 2
C 3
;
run;
data b(drop= y i);
set a;  
if x='A' then do i=1 to y ;
output;
end;
if x='B' then do i=1 to y ;
output;
end;
if x='C' then do i=1 to y ;
output;
end;
run;[/quote:04e2b]

对上面的代码稍微做了一点改进，尤其当x的观测值很多时，程序相对显得简单，适用性更广一点~~~

data b(drop= y i);
set a;
by x;
if first.x then do i=1 to y ;
output;
end;
run;

shiyiming

谢 谢 各 位 ， 没 想 到 有 这 么 多 人 应 答 。

My solution:

data a (drop=count i);
input var $ count @;
do i = 1 to count;
output;
end;
datalines;
A 5
B 2
C 3
;
run;
proc print data=a;
run;

Q2:
if
A 5
B 0
C 3
then results are the same

but if
A 5
B
C 3
ie a missing value in the data, the error
ERROR: Invalid DO loop control information, either the INITIAL or TO expression is missing or
the BY expression is missing, zero, or invalid
RULE:      ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+-
160        C 3
var=B count=. i=1 _ERROR_=1 _N_=2

? 我 记 得 有 一 missover option.

data a (drop=count i);
infile datalines missover;
input var $ count @;
do i = 1 to count;
output;
end;
datalines;
A 5
B
C 3
;
run;
还 是 错 。 有 没 有 人 能 指 正 ？ 谢 谢 。

shiyiming

实 际 的 数 据 是 ：

  X Y Z P
A 5 1 1 1
B 2    3 3
C 3 2   2

如 何 变 成 to

A X
A X
A X
A X
A X
A Y
A Z
A P
B X
B X
B Z
B Z
B Z
。 。 。
。 。 。
C P
C P
是 否 一 定 要 把 missingvalue转 成 0？
谢 谢 大 家 。

shiyiming

sorry, the data shld be the following, _ stands for missing value


_ X Y Z P
A 5 1 1 1
B 2 _ 3 3
C 3 2 _ 2

shiyiming

data tem;
input class $ X Y Z P;
cards;
A 5 1 1 1
B 2 . 3 3
C 3 2 . 2
;run;

data tem;
set tem;
array arr _numeric_;
do over arr;
   if arr^=. then do;
      do i=1 to arr;
         name=upcase(vname(arr));
         output;
      end;
   end;
end;
keep class name;
run;

proc print;run;