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)
