LISTSERV at the University of Georgia
Menubar Imagemap
Home Browse Manage Request Manuals Register
Previous messageNext messagePrevious in topicNext in topicPrevious by same authorNext by same authorPrevious page (June 2004, week 4)Back to main SAS-L pageJoin or leave SAS-L (or change settings)ReplyPost a new messageSearchProportional fontNon-proportional font
Date:         Wed, 23 Jun 2004 17:31:27 -0400
Reply-To:     "Huang, Ya" <yhuang@AMYLIN.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         "Huang, Ya" <yhuang@AMYLIN.COM>
Subject:      Re: arrows

Look like use 'marker' for the arrow is better:

data T; input LABEL $ Yi Xi; cards; a 2 3 b 3 6 c -4 -9 d 5 1 X -6 4 Y 5 7 Z 7 -3 ;

data anno; set t; length function style color text position $ 8; retain hsys xsys ysys '2' position '5'; if label='a' then color='red'; else if label='b' then color='green'; else if label='c' then color='blue'; else if label='d' then color='yellow'; else if label='X' then color='pink'; else if label='Y' then color='tab'; else if label='Z' then color='purple'; function='move'; x=0; y=0; size=0.1; output; function='draw'; x=xi; y=yi; size=0.1; output; function='label'; x=xi; y=yi; size=0.5; style='marker'; alpha=atan((yi-0)/(xi-0))*180/3.1415926; if xi>0 and yi>0 then angle=alpha; else if xi>0 and yi<0 then angle=alpha+360; else if xi<0 and yi<0 then angle=alpha+180; else if xi<0 and yi>0 then angle=alpha+180; angle=angle-90; text='C'; position='5'; output; function='label'; x=xi; y=yi; style='swiss'; text=label; size=1; angle=0; color='black'; position='2'; output; run;

goptions reset=all gunit=pct;

data yy; x=0; y=0;

proc gplot; plot y*x / annotate=anno haxis=-10 to 10 vaxis=-10 to 10; run;

Back to: Top of message | Previous page | Main SAS-L page