多颜色的图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

由 Nick Cox 所提供的例子 I：

1. webuse assembly, clear
   
2. separate mean, by(date) veryshortlabel
   
3. local means `r(varlist)'
   
4. gen upper = mean + std
   
5. gen lower = mean - std
   
6. separate upper, by(date) veryshortlabel
   
7. separate lower, by(date) veryshortlabel
   
8. 
   
9. local colours black blue orange magenta red pink teal
   
10. 
    
11. levelsof date, local(DATES)
    
12. 
    
13. local call
    
14. local j = 1
    
15. foreach D of local DATES {
    
16.     local thiscolour : word `j' of `colours'  
    
17.     local call `call' || rcap upper`D' lower`D' date, lc(`thiscolour')
    
18.     local ++j
    
19. }
    
20. 
    
21. twoway `call' || scatter `means'  date, mc(`colours') legend(off) scheme(s1color) xla(`DATES')

复制代码

结果为： 例子 II：

1. clear
   
2. set obs 21
   
3. gen date = _n
   
4. gen mean = _n
   
5. gen std = 1
   
6. 
   
7. separate mean, by(date) veryshortlabel
   
8. local means `r(varlist)'
   
9. 
   
10. gen upper = mean + std
    
11. gen lower = mean - std
    
12. separate upper, by(date) veryshortlabel
    
13. separate lower, by(date) veryshortlabel
    
14. 
    
15. local colours black blue orange magenta red pink teal
    
16. 
    
17. levelsof date, local(DATES)
    
18. 
    
19. local call
    
20. local j = 1
    
21. foreach D of local DATES {
    
22.     if `j' == 8 local j = 1
    
23.     local thiscolour : word `j' of `colours'  
    
24.     local call `call' || rcap upper`D' lower`D' date, lc(`thiscolour')  || scatter mean`D' date, mc(`thiscolour')
    
25.     local ++j
    
26. }
    
27. 
    
28. twoway `call'  legend(off) scheme(s1color) xla(`DATES')

复制代码

结果为：

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏4 回帖

关键词：separate Assembly colours Scatter varlist

挺好的，实用

谢谢老师分享~