如何生成这个图

如何从“现有的图”做成“想要的图”。

想要的图：




现有的图：




具体要求：
1、修改“现有的图”的横坐标
2、修改“现有的图”的两个纵坐标

现有的数据：
stat_qtr1.rar (5.5 KB) 本附件包括：

• stat_qtr1.sas7bdat

2010-7-14 10:52:55 上传

现有的作图程序：
proc sgplot data=stat_qtr1 NOAUTOLEGEND;
   vline yqtr / response=all y2axis;
   vbar yqtr / response=p_pos TRANSPARENCY=0;
   vbar yqtr / response=p_neg TRANSPARENCY=0;
   format yqtr yyqc4.;
   xaxis values=('1jan72'd to '1jul07'd by year) label = "Year";
   yaxis label="Percentage" ;
   y2axis  label="# of observations" ;
run;
quit;
quit;


根据jingju11 提供的程序最后生成的结果

1. title;
   
2. proc format;
   
3. value yfmt -5000 = ' ' 0-5000 = [best7.] ;
   
4. value pfmt -15 - 15 = [best7.] 35 = ' ';
   
5. run;
   
6. proc sgplot data=stat_qtr1 NOAUTOLEGEND;
   
7. needle x =yqtr y =p_pos/baseline =0 lineattrs =(color =blue thickness =3) ;
   
8. needle x =yqtr y =p_neg/baseline =0 lineattrs =(color =red thickness =3);
   
9. series x =yqtr y =all/y2axis lineattrs =(color =green thickness =2) ;
   
10.   format yqtr year2. all yfmt. p_pos pfmt. p_neg pfmt.;
    
11. xaxis label = "Year";
    
12. yaxis grid values =(-15 to 15 by 10 35)   label="Percentage" ;
    
13. y2axis grid values =(-5000 0 to 5000 by 1000) label="# of observations" ;
    
14. run; quit;

复制代码

19# BraveMadMan

1. title;
   
2. proc format;
   
3. value Yfmt -5000 = ' ' 0-5000 = [best.];
   
4. run;
   
5. proc sgplot data=tmp1.stat_qtr1 NOAUTOLEGEND;
   
6. needle x =yqtr y =p_pos/baseline =0 lineattrs =(color =blue thickness =3);
   
7. needle x =yqtr y =p_neg/baseline =0 lineattrs =(color =red thickness =3);
   
8. series x =yqtr y =all/y2axis lineattrs =(color =green thickness =2);;
   
9.   format yqtr year2. all Yfmt.;
   
10. xaxis label = "Year"; yaxis label="Percentage" ;
    
11. y2axis grid values =(-5000 0 to 5000 by 1000) label="# of observations" ;
    
12. run; quit;

复制代码

增加到100论坛币

2# Brav
adMan

对于我来讲，很难。都用的是discrete axis。不知道有什么方法有选择性地标注x轴的数据。

楼主是一次性画一个图一定要有这个效果，还是需要一个制图模板，以后会定期更新数据啊?
太复杂的图，proc ganno或许可以试试

这个SAS应该很难一次性输出，可以后期使用sigmaplot修改下，具体的可参考刘万祥老师的《图表之道？？》

soporaeternus 发表于 2010-7-13 10:41
楼主是一次性画一个图一定要有这个效果，还是需要一个制图模板，以后会定期更新数据啊?
太复杂的图，proc ganno或许可以试试

这个图是一次性的。不过我经常碰到要划类似图的情况。

第一个图是stata 做的图吧

蓝色 发表于 2010-7-13 10:50
第一个图是stata 做的图吧

敏锐。是stata 做的图

我想到一个让两个纵坐标错开的办法，不过应该有更好的办法。

proc sgplot data=stat_qtr1 NOAUTOLEGEND;
   vline  yqtr / response=all y2axis;
   vbar yqtr / response=p_pos TRANSPARENCY=0;
   vbar yqtr / response=p_neg TRANSPARENCY=0;
   format yqtr yyqc4.;
   xaxis values=('1jan00'd to '1jul07'd by year) label = "Year";
   yaxis min=-15 max=30 label="Percentage" ;
   y2axis min =-4000 label="# of observations" ;
run;
quit;
quit;


效果图：