在Stata中绘制流程图

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

---

1.         *******************************************************************************
   
2.         *******************************************************************************
   
3.         *****                                                                     *****
   
4.         *****                                                                     *****
   
5.         *****                     在Stata中绘制流程图                              *****
   
6.         *****                                                                     *****
   
7.         *****                                                                     *****
   
8.         *****                                                                     *****
   
9.         *******************************************************************************
   
10.         *******************************************************************************

复制代码

1. *Definition of boxes and line styles.
   
2. local osmall = ", box margin(small) size(vsmall)"
   
3. local omain  = ", box margin(small)"
   
4. local bc     = ", lwidth(medthick) lcolor(black)"
   
5. local bca    = ", lwidth(medthick) lcolor(black) mlcolor(black) mlwidth(medthick) msize(medlarge)"
   
6. 
   
7. *Drawing the graph
   
8. twoway  /// 1) PCI to draw a box 2) pcarrowi: connecting arrows.
   
9.    pci 5.2 0 5.2 6 `bc' || pci 5.2 6 0 6 `bc' || pci 0 6 0 0 `bc' || pci 0 0 5.2 0 `bc' ///
   
10. || pci 3 1.5 3 4.5 `bc' || pci 1.9 1.5 1.9 4.5 `bc' || pci 0.9 1.5 0.9 4.5 `bc' ///
    
11. || pcarrowi 5 3 3.5 3 `bca' ///
    
12. || pcarrowi 4.35 3 4.35 3.35 `bca'  ///
    
13. || pcarrowi 3.5 3 3.2 3 `bca'  ///
    
14. || pcarrowi 3 3 2.1 3 `bca'  ///
    
15. || pcarrowi 1.9 3 1.1 3 `bca'  ///
    
16. , /// Text placed using "added text" [ACHTUNG sizes change with content]
    
17. text(5 3 "Assessed for eligibility (n= )" `omain') ///
    
18. text(4.35 4.5 "Excluded ""(n= )" ///
    
19.         "Not meeting inclusion criteria " ///
    
20.         "(n= )" ///
    
21.         "Declined to participate " ///
    
22.         "(n= )" ///
    
23.         "Other reasons""(n= )" `osmall') ///
    
24. text(3.5 3 "Randomized (n= )" `omain') ///
    
25. text(3.1 3 "Allocation"  ) ///
    
26. text(2.5 1.5 "ACTIVE" ///
    
27.         "Allocated to intervention""(n=)" ///
    
28.         "Received allocated intervention ""(n=XXX)" ///
    
29.         "Did not receive allocated intervention " ///
    
30.         "(give reasons)" ///
    
31.         "(n= )" `osmall') ///
    
32. text(2.5 4.5 "CONTROL" ///
    
33.          "Allocated to intervention" ///
    
34.          "(n= )""Received allocated intervention " ///
    
35.          "(n= )" ///
    
36.          "Did not receive allocated intervention " ///
    
37.          "(give reasons)" ///
    
38.          "(n= )" `osmall') ///
    
39. text(2 3 "Follow-Up" ) ///
    
40. text(1.5 1.5 "Lost to follow-up" ///
    
41.         "(give reasons)" ///
    
42.         "(n= )" ///
    
43.         "Discontinued intervention " ///
    
44.         "(give reasons)" ///
    
45.         "(n= )" `osmall') ///
    
46. text(1.5 4.5 "Lost to follow-up" ///
    
47.         "(give reasons)" ///
    
48.         "(n= )" ///
    
49.         "Discontinued intervention " ///
    
50.         "(give reasons)" ///
    
51.         " (n= )" `osmall') ///
    
52. text(1 3 "Analysis" ) ///
    
53. text(0.5 1.5 "Analysed" ///
    
54.         "(n= )" ///
    
55.         "Excluded from analysis" ///
    
56.         "(give reasons)" ///
    
57.         "(n= )" `osmall') ///
    
58. text(0.5 4.5 "Analysed" ///
    
59.         "(n= )" ///
    
60.         "Excluded from analysis " ///
    
61.         "(give reasons)" ///
    
62.         "(n= )" `osmall') ///
    
63. legend(off) ///
    
64. xlabel("") ylabel("") xtitle("") ytitle("") ///
    
65. plotregion(lcolor(black)) ///
    
66. graphregion(lcolor(black)) xscale(range(0 6)) ///
    
67. xsize(2) ysize(3) /// A4 aspect ratio
    
68. title("Consort Flowchart") ///
    
69. note("{bf: Adapted from:} www.consort-statement.org/consort-statement/flow-diagram" ///
    
70. , size(tiny))
    
71. 
    
72. 
    
73. //graph export "./flowchart.pdf", as(pdf) replace

复制代码

flowchart.do.rar (1 KB) 本附件包括：

• flowchart.do

2016-1-21 19:26:28 上传

参考自：https://theesspreckelsen.wordpre ... -consort-flowchart/

2）进一步手动修改的思路：

      除了在Stata Graph Editor中可直接编辑外，还可根据需要将图片保存为wmf格式， 插入图片到word中，编辑基本形状和修正连接线：（格式--->绘图工具---->编辑形状----->更改形状）

     注：上述xsize(2) ysize(3) 2:3 大致为A4纸宽高比。

1. *-以上主要使用text( ,box )/ twoway pci / twoway  pcarrowi
   
2. 
   
3. //text(   ,box )用法举例
   
4. 
   
5. sysuse auto.dta,clear
   
6. scatter price mpg, text(500 30 "Assessed for eligibility (n= )", box fcolor(blue) color(white))
   
7. 
   
8. //twoway pci 用于描线段
   
9. twoway pci 2 0 2 6 4 0 4 6 0 2 6 2 0 4 6 4  ||    ///
   
10.         scatteri 5 1 3 3, msize(ehuge) ms(X)    ||   ///
    
11.         scatteri 5 5 1 5, msize(ehuge) ms(Oh) legend(off)
    
12. //twoway  pcarrowi 用法举例
    
13. twoway pcarrowi 0 0 0 1 (3) "3 o'clock"      ///
    
14.         0 0 1 0 (12) "12 o'clock",               ///
    
15.         aspect(1) headlabel plotregion(margin(vlarge))

复制代码

扫码加我 拉你入群

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

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

分享0 收藏8 回帖

关键词：Stata tata 流程图 intervention Eligibility 流程图

师弟，有师姐欢迎回来啊。我去和客初说说~

pretty good

xddlovejiao1314 发表于 2016-1-21 19:31
师弟，有师姐欢迎回来啊。我去和客初说说~

感谢师兄、师姐一番好意，小贴纯属自娱自乐，不必烦扰客版。

houyunhuang 发表于 2016-1-21 19:46

晚清 发表于 2016-1-21 19:52
pretty good

Thanks a million!

需要这种精神，虽然程序需要简化，像tikz一样直观的语法，然后封装成函数还是不错的