SAS画图小技巧(一)

今天分享一个SAS画图小技巧。画图时,会出现某个分组没有数据的情况,这时对于缺失的数据会输出一个灰色的图例(这通常不是我们想要的),如何将这个图例去掉呢?

以sashelp.class数据集为例,我们以性别为分组,X轴为height,Y轴为weight画一个散点图。

#随机置空几行数据#;
data class;
 set sashelp.class;
 if _n_ in (1,5,7) then call missing(sex,height,weight);
run;

#画散点图#;
proc sgplot data=class;
  styleattrs datacontrastcolors=(green blue);
  scatter x=height y=weight/ group=sex markerattrs=(symbol=starfilled);
  xaxis values=(55 to 75 by 5);
  yaxis values=(40 to 160 by 20);
run;

筛掉缺失组别的数据

第一种方法,非常简单,只要将分组缺失的数据where排除掉就可以了。

proc sgplot data=class;
  where sex>'';
  styleattrs datacontrastcolors=(green blue);
  scatter x=height y=weight/ group=sex markerattrs=(symbol=starfilled);
  xaxis values=(55 to 75 by 5);
  yaxis values=(40 to 160 by 20);
run;

可能有一些其他的情况,比如,我们画的图比较复杂,一张图里需要好几个xxplot语句,这些缺失分组的数据,在xxplot1中没有用到,但在xxplot2中又是需要画出来的数据,这种情况下,就不能采用这种筛选数据的方式了。

plot语句选项控制

SAS有相应的选项来控制不输出分组缺失的数据。在GTL中,使用includemissinggroup=false;在SGPLOT中,使用nomissinggroup。

proc sgplot data=class;
  styleattrs datacontrastcolors=(green blue);
  scatter x=height y=weight/ group=sex markerattrs=(symbol=starfilled) nomissinggroup;
  xaxis values=(55 to 75 by 5);
  yaxis values=(40 to 160 by 20);
run;
proc template;
define statgraph scatterplot;
 begingraph /backgroundcolor = white designwidth = 800px designheight = 440px;;
  layout lattice / columns=1; 
   layout overlay / walldisplay=all
        yaxisopts = (linearopts = (viewmin=40 viewmax=160
                     tickvaluesequence = (start = 40 end = 160 increment = 20))
                     display = (tickvalues ticks label line))

        xaxisopts = (linearopts = (viewmin=55 viewmax=75
                     tickvaluesequence = (start = 55 end = 75 increment = 5) tickvaluefitpolicy=none) 
                     display = (tickvalues ticks label line));
    scatterplot x=height y=weight/ name="scatter"  group=sex markerattrs=(symbol=starfilled) includemissinggroup=false;
        discretelegend "scatter"/ title="性别" location = outside;
      endlayout;
    endlayout;
  endgraph;
end;
run;

proc sgrender data=class template=scatterplot;
run;

Legend选项控制

在legend语句后加上exclude= (" "),GTL同理。

proc sgplot data=class;
  styleattrs datacontrastcolors=(green blue);
  scatter x=height y=weight/ group=sex markerattrs=(symbol=starfilled);
  xaxis values=(55 to 75 by 5);
  yaxis values=(40 to 160 by 20);
  discretelegend/exclude= (" ");
run;

使用legenditem自定义图例

SGPLOT代码示例

proc sgplot data=class;
  styleattrs datacontrastcolors=(green blue);
  scatter x=height y=weight/ group=sex markerattrs=(symbol=starfilled);
  xaxis values=(55 to 75 by 5);
  yaxis values=(40 to 160 by 20);
  legenditem type=marker name="m_marker"/ markerattrs=(color=blue  symbol=starfilled) label="男";
  legenditem type=marker name="f_marker"/ markerattrs=(color=green symbol=starfilled) label="女";
  discretelegend "m_marker" "f_marker"/title="性别";
run;

GTL代码示例

data attrmap;
 length id $9 value markercolor markersymbol $100;
 id='sex';value='男';markercolor='blue';markersymbol='starfilled';output;
 id='sex';value='女';markercolor='green';markersymbol='starfilled';output;
run;

proc template;
define statgraph scatterplot;
  begingraph /backgroundcolor = white designwidth = 800px designheight = 440px;
    legenditem type=marker name="m_marker"/ markerattrs=(color=blue symbol=starfilled) label="男";
    legenditem type=marker name="f_marker"/ markerattrs=(color=green symbol=starfilled) label="女";
    layout lattice / columns=1; 
      layout overlay / walldisplay=all
        yaxisopts = (linearopts = (viewmin=40 viewmax=160
                     tickvaluesequence = (start = 40 end = 160 increment = 20))
                     display = (tickvalues ticks label line))

        xaxisopts = (linearopts = (viewmin=55 viewmax=75
                     tickvaluesequence = (start = 55 end = 75 increment = 5) tickvaluefitpolicy=none) 
                     display = (tickvalues ticks label line));

        scatterplot x=height y=weight/ name="scatter"  group=sex;
        discretelegend "m_marker" "f_marker"/title="性别" location = outside;
      endlayout;
    endlayout;
  endgraph;
end;
run;

proc sgrender data=class template=scatterplot dattrmap=attrmap;
  dattrvar sex='sex';
run;

legenditem可以完全按照我们的需求定制图例,适用于一些特殊情况,除了去掉缺失分组的图例,正常数据的图例也可以不让它显示,或者对于某些组别,我们知道只有x种可能取值,但是有时候数据中只有x-2,x-1种,这时SAS其他语句输出的图例就是图中出现的组别才显示相应的图例,如果需要将这x种的图例都强制画出来,也可以使用legenditem语句。

最终输出的效果如图:



大家可以根据自己的需求灵活选用以上方法,有其他方法也可以留言或者私信哦!

©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 216,001评论 6 498
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 92,210评论 3 392
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 161,874评论 0 351
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 58,001评论 1 291
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 67,022评论 6 388
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 51,005评论 1 295
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 39,929评论 3 416
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 38,742评论 0 271
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 45,193评论 1 309
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,427评论 2 331
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 39,583评论 1 346
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 35,305评论 5 342
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 40,911评论 3 325
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,564评论 0 21
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,731评论 1 268
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 47,581评论 2 368
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 44,478评论 2 352

推荐阅读更多精彩内容