• Print |
• E-mail  |
• Bookmark

/* Set graphics options */

goptions reset=all border;

/* Create input data set, A */

data a;
  input xvar yvar zvar $;
  datalines;
1 5 Test_1
2 1 Test_1
3 3 Test_1
4 4 Test_1
5 1 Test_1
6 7 Test_1
7 8 Test_1
8 5 Test_1
9 2 Test_1
10 2 Test_1
1 1500 Test_2
2 4000 Test_2
3 3000 Test_2
4 5200 Test_2
5 2000 Test_2
6 4500 Test_2
7 3300 Test_2
8 5300 Test_2
9 7000 Test_2
10 7500 Test_2
;

/* Create annotate data set, ANNO */

data anno;
  length function style color $8;
  retain xsys '5' ysys '2'  when 'a' style 'solid';

  /* Draw a solid white box to cover the vaxis area where the */
  /* break occurs.                                            */
  function='move'; x=1; y=50; output;
  function='bar'; x=8;  y=500;  color='white'; output;

  /* Now draw the jagged line where the vaxis breaks. */
  color='black'; size=2;
  function='move'; xsys='1'; x=0;  ysys='2'; y=50; output;
  function='draw'; xsys='B'; ysys='B'; x=+4; y=+4; output;

  function='draw';                     x=-8; y=+4; output;
  function='draw'; xsys='1'; x=0;  ysys='2'; y=500; output;

run;

proc print; 
run;

/* Assign symbol definitions */

symbol1 i=smooth v=none c=blue w=2;
symbol2 i=smooth v=none c=red  w=2;

/* Add the title */

title1 h=1.5 'Discontinuous Vaxis';

/* Create axis definitions */

axis1 order=(0 to 10 by 2, 100, 200, 1000 to 10000 by 2000)
      minor=none width=2;

axis2 order=(0 to 10 by 1) minor=none width=2;

/* Produce the plot */

proc gplot data=a;
  plot yvar*xvar=zvar / vaxis=axis1 haxis=axis2 anno=anno;
run;
quit;

Operating System and Release Information