【500论坛币】求一段stata代码，关于reg结果输出

示例数据： stata示例数据.dta (3.23 KB)

2022-4-27 21:34:49 上传

如图：左边是stata中的3个reg回归，请问：如何用命令把3个reg回归的R2值整合到word或者Excel的表格里面?
我知道 dis e(r2)可以展示每个reg的R2，但是有什么命令可以一键把3个R2整合到1个表格里面呢？

1. * Example generated by -dataex-. For more info, type help dataex
   
2. clear
   
3. input byte a float(b c d)
   
4. 1 2 3 2
   
5. 1 2 3 2
   
6. 1 2 3 2
   
7. 1 2 3 2
   
8. 1 3 3 2
   
9. 1 3 4 5
   
10. 2 3 3 3
    
11. 2 3 5 4
    
12. 2 4 5 4
    
13. 2 4 5 3
    
14. 3 6 6 2
    
15. 3 7 6 5
    
16. 4 7 6 6
    
17. 3 6 7 6
    
18. end

复制代码

1. * Example generated by -dataex-. For more info, type help dataex
   
2. clear
   
3. input byte a float(b c d)
   
4. 1 2 3 2
   
5. 1 2 3 2
   
6. 1 2 3 2
   
7. 1 2 3 2
   
8. 1 3 3 2
   
9. 1 3 4 5
   
10. 2 3 3 3
    
11. 2 3 5 4
    
12. 2 4 5 4
    
13. 2 4 5 3
    
14. 3 6 6 2
    
15. 3 7 6 5
    
16. 4 7 6 6
    
17. 3 6 7 6
    
18. end
    
19. 
    
20. preserve
    
21. 
    
22. gen 模型="."
    
23. gen R平方=.
    
24. 
    
25. local i=1
    
26. foreach var of varlist b-d{
    
27.         reg a `var'
    
28.         replace R平方=e(r2) if _n==`i'
    
29.         replace 模型="回归1:`e(cmdline)'" if _n==`i'
    
30.         local ++i
    
31. }
    
32. replace 模型=subinstr(模型,"ress","",1)
    
33. format R平方 %5.4f
    
34. keep 模型 R平方
    
35. keep if _n <= 3
    
36. 
    
37. list,noobs
    
38. 
    
39.   +------------------------+
    
40.   |          模型    R平方 |
    
41.   |------------------------|
    
42.   | 回归1:reg a b   0.8840 |
    
43.   | 回归1:reg a c   0.7611 |
    
44.   | 回归1:reg a d   0.4438 |
    
45.   +------------------------+
    
46. 
    
47. export excel result.xlsx,first(var) replace
    
48. 
    
49. restore

复制代码

1. * Example generated by -dataex-. For more info, type help dataex
   
2. clear
   
3. input byte a float(b c d)
   
4. 1 2 3 2
   
5. 1 2 3 2
   
6. 1 2 3 2
   
7. 1 2 3 2
   
8. 1 3 3 2
   
9. 1 3 4 5
   
10. 2 3 3 3
    
11. 2 3 5 4
    
12. 2 4 5 4
    
13. 2 4 5 3
    
14. 3 6 6 2
    
15. 3 7 6 5
    
16. 4 7 6 6
    
17. 3 6 7 6
    
18. end
    
19. 
    
20. preserve
    
21. 
    
22. gen 模型="."
    
23. gen R平方=.
    
24. 
    
25. local i=1
    
26. foreach var of varlist b-d{
    
27.         reg a `var'
    
28.         replace R平方=e(r2) if _n==`i'
    
29.         replace 模型="回归`i':`e(cmdline)'" if _n==`i'
    
30.         local ++i
    
31. }
    
32. replace 模型=subinstr(模型,"ress","",1)
    
33. format R平方 %5.4f
    
34. keep 模型 R平方
    
35. keep if _n <= 3
    
36. 
    
37. list,noobs
    
38. 
    
39.   +------------------------+
    
40.   |          模型    R平方 |
    
41.   |------------------------|
    
42.   | 回归1:reg a b   0.8840 |
    
43.   | 回归2:reg a c   0.7611 |
    
44.   | 回归3:reg a d   0.4438 |
    
45.   +------------------------+
    
46. 
    
47. 
    
48. export excel result.xlsx,first(var) replace
    
49. 
    
50. restore

复制代码

zdlspace 发表于 2022-4-27 21:35

. gen 模型="."
. gen R平方=.
(14 missing values generated)
. local `i'=1
_= invalid name
r(198);

diannaoasd 发表于 2022-4-29 08:59
. gen 模型="."
. gen R平方=.
(14 missing values generated)

我写的是

1. local i=1

复制代码

并不是

1. local `i'=1

复制代码

你还是直接复制我的代码吧

zdlspace 发表于 2022-4-29 11:33
我写的是并不是你还是直接复制我的代码吧

嗯嗯，好的。