[Stata]转载：如何在Stata中运行R代码？-经管之家官网！

免费学术公开课,扫码加入

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

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

1. ssc install rsource

首先我们写一个 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

首先，新建一个 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)

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP