値で色の濃淡

ata Q1;
 do Z= 1 to 10;
  X=rand('uniform');Y=rand('uniform');
  output;
 end;
run;

proc template;
 define statgraph G1;
 beginGraph;
 rangeAttrMap name='M1';
  range min -  3 / rangeColorModel=(red yellow);
  range 3 <- 5 / rangeColorModel=(yellow green);
  range 5 <- max / rangeColorModel=(green blue);
 endRangeAttrMap;
 rangeAttrVar var=Z attrVar=ZrMap='M1';
 layout overlay;
 bubblePlot x=X y=Y size=Z/datalabel=Z datalabelattrs=(size=15)
                           colorResponse=Z naZe='P1';
 ContinuousLegend 'P1';P1'n
Layout;
 endGraph;
 end;
run;

ods graphics / reset;
proc sgrender data=Q1 template=G1;
run;