SAS9.1作图颜色怎么那么难看？

呵呵，指定图片输出的device，同时指定output输出格式为HTML试试看。

1. ods listing close;
   
2. ods html;
   
3. /* Set the graphics environment */                                                                                                      
   
4. goptions reset=all border cback=white htitle=12pt htext=10pt device=png;                                                                           
   
5.                                                                                                                                        
   
6. /* Create a sample data set */                                                                                                         
   
7. data test;                                                                                                                              
   
8.    do mid=-2.5 to 2.5 by .5;                                                                                                            
   
9.       yvar=ranuni(10) * 5 ;                                                                                                            
   
10.       output;                                                                                                                           
    
11.    end;                                                                                                                                 
    
12. run;                                                                                                                                    
    
13.                                                                                                                                        
    
14. /* Create an annotate data set to draw the vertical line */                                                                             
    
15. data lines ;                                                                                                                           
    
16.    length function style color $8;                                                                                                      
    
17.    function='move'; xsys='2'; ysys='1'; midpoint=0.0; y=0; output;                                                                     
    
18.    function='draw'; xsys='2'; ysys='1'; when='a'; color='black'; midpoint=0.0; y=100;                                                   
    
19.       style='swiss'; line=2; output;                                                                                                   
    
20. run;                                                                                                                                    
    
21.                                                                                                                                        
    
22. /* Create the graph */                                                                                                                  
    
23. title1 font='Arial/bold' "Annotate a Vertical Line at a Selected Midpoint";                                                                              
    
24. proc gchart data=test;                                                                                                                  
    
25.    vbar mid / discrete sumvar=yvar patternid=midpoint space=3 width=6 annotate=lines;                                                   
    
26.    pattern1 value=solid;                                                                                                               
    
27. run;                                                                                                                                    
    
28. quit;
    
29. 
    
30. ods html close;

复制代码

tj0412ymy 发表于 2013-4-8 16:03
呵呵，指定图片输出的device，同时指定output输出格式为HTML试试看。

谢谢，原来还有这个方法

tj0412ymy 发表于 2013-4-8 16:03
呵呵，指定图片输出的device，同时指定output输出格式为HTML试试看。

您是哪个版本？为什么我复制这个代码做出来的图还是很丑，和您的不一样啊，我是9.1