[Stata]转载：如何在Stata中运行R代码？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如何在 Stata 里面跑 R 代码？

EthanDeng

转自：http://ddswhu.com/2014/12/11/run-r-in-stata-using-rsource/

                                                                              
如何在 Stata 里面跑 R 代码

---

在一个计量软件（Stata）里面跑统计软件（R）代码？ 是的，你没有看错，虽说这个想法有点猎奇，但是，你仔细想下，会觉得如果能实现，那么 R 与 Stata 就能协同工作了，一个不懂 R 语言的 Stata 用户可以使用 Stata 来运行你的代码，是不是感觉世界明亮多了？，废话不多说，我们来看怎么实现吧？

准备工作安装 rsource

---

首先，要让 Stata 软件能够运行 R 代码，先要在 Stata 里面安装一个包（rsource），安装的命令如下：

1. ssc install rsource

复制代码

实现R 代码

首先我们写一个 R code，内容如下：

1. data(swiss)                                       # 使用 swiss 数据集
   
2. attach(swiss)                                    
   
3. library(foreign)                                  # 加载 foreign 包，可以写入输出其他软件的数据格式
   
4. write.dta(swiss, "D:/swiss.dta")                  # 将数据集保存为 Stata 数据
   
5. model <- lm(Fertility ~ Agriculture + Catholic)   # 线性回归
   
6. summary(model)

复制代码

我们把这个文件存为 mytest.R，存在 D 盘下，即D:/mytest.R

Stata 代码

首先，新建一个 do 文件，然后把下面代码输入其中，Stata 代码如下：

1. /*Command (1) */
   
2. 
   
3. cd "D:/"
   
4. 
   
5. /*Command (2) */
   
6. 
   
7. global Rterm_path `"F:\Program Files\R-3.1.2\bin\x64\R.exe"'
   
8. 
   
9. global Rterm_options `"--vanilla"'
   
10. 
    
11. /*Command (3) */
    
12. 
    
13. rsource using mytest.R,roptions(--slave)
    
14. 
    
15. /*Command (4) */
    
16. 
    
17. use "swiss.dta"
    
18. 
    
19. regress Fertility Agriculture Catholic

复制代码

运行之后，首先是 mytest.R 的结果显示如下（在 Stata 中）：

然后是 Stata regress 的结果：

解释

这里这个例子中，由于 swiss 数据集是 R 自带的，为了能够与 Stata 的回归结果进行对比，使用了 foreign 包把数据集写到 D 盘中（D:/swiss.dta），以便 Stata 使用（use "swiss.dta"）。本质上，如果只是为了让 Stata 运行 R 代码并不需要 foreign 包，也不需要 Stata 代码中的第四部分代码（use .... regress ...），使用到的最核心的 Stata 命令是：

1. rsource using mytest.R,roptions(--slave)

复制代码

扫码加我 拉你入群

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

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

分享0 收藏17 回帖

关键词：Stata tata R代码 stata 软件 Foreign 如何

好贴，谢谢分享。

谢楼主分享，好贴啊好贴

楼主，其他语言写的有没有类似的命令，比如热门的sas/python

玄一无相 发表于 2015-8-4 14:53
楼主，其他语言写的有没有类似的命令，比如热门的sas/python

均有，sas为： saswrapper /usesas/savesas
python为python/email

请问这个调用r包需不需要本身安装了r软件才能用？

请教一下，如果一个命令只在r中有，我在r执行完毕后封存，我也使用rsource命令，然后如何在stata中查看其运行结果呢

请问下，如果我想用stata调用现有的R程序如何调用？尝试了楼主的第二段程序，但是并不能出结果

好贴，我去试试。