使用foreach和结果的导出

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. clear
   
2. sysuse auto
   
3. set more off
   
4. foreach y of var price mpg rep78 headroom trunk weight length turn displacement gear_ratio{
   
5. foreach x of var price mpg rep78 headroom trunk weight length turn displacement gear_ratio{
   
6. reg `y' `x', noheader
   
7. est store m`y'
   
8. outreg2 m`y' using 相关性1.doc, replace
   
9. reg `x' `y', noheader
   
10. est store m`x'
    
11. outreg2 m`y' using 相关性2.doc, replace
    
12. }
    
13. }
    
14. //如题，以上代码使用的是stata的auto.dta的数据
    
15. 我现在要做的就是对所有的变量两两进行回归并且将所有结果导出到同一张表上或者word中，但是遇到了两个问题，
    
16. 一是，怎么使用条件语句剔除 `y'和`x'相同的回归，或者直接不回归
    
17. 二是，怎么将他们展示在同一张表上并且导出？
    
18. 如果问题有陈述不清楚的地方请指出！
    
19. 求教，请不吝赐教！

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：foreach Reach For Displacement placement

1. clear
   
2. sysuse auto
   
3. set more off
   
4. foreach y of var price mpg rep78 headroom trunk weight length turn displacement gear_ratio{
   
5. foreach x of var price mpg rep78 headroom trunk weight length turn displacement gear_ratio{
   
6. reg `y' `x', noheader
   
7. scatter `y' `x' || lfit `y' `x'
   
8. est store m`y'
   
9. outreg2 m`y' using 相关性1.doc, replace
   
10. reg `x' `y', noheader
    
11. scatter `x' `y' || lfit `x' `y'
    
12. est store m`x'
    
13. outreg2 m`y' using 相关性2.doc, replace
    
14. }
    
15. }
    
16. //不好意思，再加一个问题，就是绘制拟合图形

复制代码

1. clear
   
2. set more off
   
3. sysuse auto
   
4. local i = 1
   
5. local j = 1
   
6. foreach y of var price mpg rep78 {
   
7. foreach x of var price mpg rep78 {
   
8. reg `y' `x', noheader
   
9. est store a`i'
   
10. outreg2 a`i' using C:\Users\Administrator\Desktop\dofile\测试.doc
    
11. scatter `y' `x' || lfit `y' `x'
    
12. graph save C:\Users\Administrator\Desktop\dofile\b`j'.gph, replace
    
13. graph export C:\Users\Administrator\Desktop\dofile\b`j'.pdf, replace
    
14. }
    
15. }
    
16. //问题基本上解决了，就剩下画的图批量保存和删除对自身的回归，这两个问题了
    
17. //请不吝赐教
    
18. //多谢各位坛友和老师

复制代码

//问题已经解决，下边是我的程序

1. clear
   
2. set more off
   
3. sysuse auto
   
4. local i = 1
   
5. local j = 1
   
6. foreach y of var price mpg rep78 {
   
7. foreach x of var price mpg rep78 {
   
8. reg `y' `x', noheader
   
9. est store a`i'
   
10. local i=`i'+1
    
11. outreg2 a`i' using C:\Users\Administrator\Desktop\dofile\a`i'.doc
    
12. scatter `y' `x' || lfit `y' `x'
    
13. local j=`j'+1
    
14. graph export C:\Users\Administrator\Desktop\dofile\b`j'.pdf, replace
    
15. }
    
16. }

复制代码

//问题只是基本解决了，现在还有一个问题，就是：自己和自己回归怎么删掉例如reg price price

还有一个问题就是：如何把画出的图，导入到同一个图片或者pdf中

1. clear
   
2. set more off
   
3. cd C:\Users\Administrator\Desktop\Statalist
   
4. sysuse auto
   
5. local i = 0
   
6. local j = 0
   
7. foreach y of var price mpg rep78 {
   
8. foreach x of var price mpg rep78 {
   
9. reg `y' `x'
   
10. est store a`i'
    
11. local i=`i'+1
    
12. outreg2 a`i' using C:\Users\Administrator\Desktop\Statalist\a`i'.doc
    
13. predict fitted`i'
    
14. scatter `y' `x' || line fitted`i' `x'
    
15. local j=`j'+1
    
16. graph export C:\Users\Administrator\Desktop\Statalist\b`j'.pdf, replace
    
17. }
    
18. }

复制代码

这样也可以