关于gplot作图的axis标点宽度递减

请看下下图：



这个图的gplot的code我找到了，但是他只是（1 to 20 by 1）这种很简单的要求。

而我们的任务要求是要画这种不规则的axis描点。

就是从1到20，1的宽度是最大的，2大概1的一般，3大概是2的一半，然后累积到10，20这样。

不知有无老师接触过这类作图。能否给予相关提示或者实例文献，谢谢！

1. Options User=work;
   
2. Data temp;
   
3. Do n=1 to 100;
   
4.         x=rannor(12345)*5+10;
   
5.         m=n/10;Output;
   
6.         End;
   
7.         Run;
   
8. Data Anno1;
   
9. Length Function text Color Style $30.;
   
10. Retain Xsys Ysys "2";
    
11. Retain When "A" Position "5";
    
12. Ysys="3";
    
13. y= 11.5;
    
14. x=2;Function="Label";Text="2";Output;
    
15. x=3;Text="3";Output;
    
16. x=20;Text="20";Output;
    
17. Xsys="3";Ysys="2";
    
18. x=11;
    
19. y=2;Text="2";Output;
    
20. y=3;Text="3";Output;
    
21. 
    
22. Xsys="2";
    
23. x=0.1;y=1;Function="move";Output;
    
24. x=1;Function="Draw";Output;
    
25. y=0.1;x=1;Function="move";Output;
    
26. y=1;Function="Draw";Output;
    
27. Run;
    
28. 
    
29. 
    
30. Options PaperSize=("20cm" "15cm");
    
31. Goptions Reset=all;
    
32. Goptions Gunit=pct Cback=White;
    
33. Goptions Hsize=20cm Vsize=15cm;
    
34. Goptions Htext=5 Ftext="Simplex";
    
35. Symbol1 I=None V=Star CI=Red CV=DodgerBlue CO=Green H=4;
    
36. Axis1 Logbase=10 LogStyle=Expand
    
37.                         Order=(0.1 1 10 100)
    
38.                         Label=( "Maximum ALT (/ULN)")
    
39.                         Minor=(H=1) Major=(H=2)
    
40.                         Value=(T=1 "" T=2 "1" T=3 "10" T=4 "")
    
41.                         Offset=(0,0);
    
42. Axis2 LogBase=10 LogStyle=Expand
    
43.                         Order=(0.1 1 10)
    
44.                         Label=(Angle=90 "Maximum Total Bilirubin (/ULN)")
    
45.                         Minor=(H=1) Major=(H=2)
    
46.                         Value=(T=1 "" T=2 "1" T=3 "10")
    
47.                         Offset=(0,0);
    
48. Axis3 LogBase=10 LogStyle=Expand
    
49.                         Order=(0.1 1 10)
    
50.                         Label=None
    
51.                         Minor=(H=1) Major=(H=2)
    
52.                         Value=None
    
53.                         Offset=(0,0);
    
54. Proc Gplot data=temp Anno=Anno1;
    
55. Plot x*m/ Haxis=Axis1 Vaxis=Axis2
    
56.                                 Href=(3 20) LHref=(1 3) WHref=1
    
57.                                 Vref=2 Lvref=1 WVref=1;
    
58. Plot2 x*m/ Vaxis=Axis3;
    
59. Run;
    
60. Quit;
    
61. 
    
62. /*
    
63. References
    
64. http://support.sas.com/documentation/cdl/en/graphref/63022/HTML/default/viewer.htm#axischap.htm
    
65. */

复制代码

shangzhixi 发表于 2014-6-5 15:45

超级无敌非常感谢！！

图非常到位！！

搞忘加些分再结贴比较遗憾，不知版主能否代劳给沙发转200币？谢谢。