利用R语言做可重复性报告研究

插入R代码样例展示：

---

title: "R代码块"

output: html_document

---



### 不显示warnings信息

```{r,warning=FALSE}

a <- 1:4

b <- 1:3

a +b

```



***



#### 不显示代码

```{r,fig.align='left',echo=FALSE}

library(recharts)

g <- echartr(iris, Sepal.Width, Petal.Width, series =Species) %>%

  setSeries(symbolSize=8) %>%

  setSymbols(c('heart', 'arrow','diamond')) %>%

  setToolbox(show=FALSE)

g %>% addMarkPoint(series=unique(iris$Species),

                   data=data.frame(type="max",name="最大值"))

```

•Rmarkdown通常以html、word、pdf格式输出，但是也可实现slidy输出。只需将output设置为“slidy_presentation” 即可。

---

title: "Presentations with Slidy"

author: "Daniel xie"

date: "November 14, 2017"

output:

  slidy_presentation:

    incremental: yes

---



#### 使用 Markdown 的优点



-  专注你的文字内容而不是排版样式。

-  轻松的导出 HTML、PDF 和本身的 .md 文件。

-  纯文本内容，兼容所有的文本编辑器与字处理软件。

-  可读，直观。

-  适合所有人的写作语言。



#### RMarkdown简要语法



[RStudio](www.rstudio.com)



![](R.png)



**这是粗体**



*这是斜体*



<font color=#D87093>使用十六进制颜色值: color=#D87093 </font>



~~删除文本~~



#### 插入表格

```{r}

library(DT)

datatable(iris)

```



#### 输出模型结果

```{r}

fit <-lm(women)

summary(fit)

```



#### 打印图形

```{r,fig.align='center'}

par(mfrow=c(2,2))

plot(fit)

par(mfrow=c(1,1))

```



#### 交互可视化

```{r}

library(rpivotTable)

rpivotTable(mtcars)

```