基于rmarkdown的STATA markdown

---

title: "statamarkdown"
author: "wintryheart"
date: "2019/7/3"
output: html_document

---

knitr::opts_chunk$set(echo = TRUE)
library(Statamarkdown)

1、简介

Statamarkdown是基于rmarkdown编译的，可执行STATA 代码的包。
英文资料请见Stata and R Markdown (Windows)。

2、安装包

Statamarkdown基于github.com安装，install.packages()不能安装。

在安装之前，需要安装STATA软件和devtools包。

library(devtools)

install_github("hemken/Statamarkdown")

在安装Statamarkdown的同时，安装程序会自动搜索stata.exe，并建立调用路径。

3、设置STATA引擎

```{r, echo=FALSE, message=FALSE} `r ''`
library(Statamarkdown)
```

接下来就可以使用STATA代码块。

```{stata} `r ''`

-- Stata code here --

```

4、连接代码块

注意，每个STATA代码块都是作为一个独立的STATA会话来执行，彼此相互独立。即，第一个代码块调用的数据和生成的新变量，第二个代码块并不会自动继承，而需要重新调用和生成。

代码块选项

当Statamarkdown包加载之后，Stata代码块就可以利用collectcode选项作为块钩（chunk hook），把各代码块连接起来。这样前面块调用的数据和生成的新变量，后面的代码直接继承。

A first code block:
```{stata first-Stata, collectcode=TRUE} `r ''`
sysuse auto
generate gpm = 1/mpg
summarize price gpm
```

A second, later code block:
```{stata second-Stata} `r ''`
regress price gpm
```

A first code block:

sysuse auto
generate gpm = 1/mpg
summarize price gpm

A second, later code block:

regress price gpm

5、输出样式

通过设置代码块选项，你可以选择R样式输出，还是STATA样式输出。

R样式

```{stata}`r ''`
// sysuse auto
summarize
```

// sysuse auto
summarize

STATA样式

设置代码块选项echo=FALSE, cleanlog=FALSE，输出STATA样式。

```{stata, echo=FALSE, cleanlog=FALSE}`r ''`
tab1 foreign rep78
```

tab1 foreign rep78

6、图片输出

statamarkdown并不支持STATA图片直接输出。

如果包含图片，需要调用STATA的graph export命令输出图片，然后通过图片链接在R Markdown中显示。

选项echo可以指定仅打印特定行的代码。例如下例，echo=2，输出结果只显示第2行命令，隐藏了其它命令行。

选项results="hide"则不显示结果。

```{stata, echo=2, results="hide"}`r ''`
tab1 foreign rep78
graph box mpg, over(foreign)
graph export "boxplot.png", replace  #注意设置输出图片的路径
```

graph box mpg, over(foreign)

boxplot.png