r markdown生成一个图像并在其他地方显示

---
title: "标题"
output:
  html_document:
    toc: true
    toc_float: true
---
# Quarterly Results {.tabset}

```{r echo=FALSE}
df <- data.frame(x=c('hello1','hello4','hello3','hello4'))
```

## `r df[1,1]`
## `r df[2,1]`
## `r df[3,1]`
## `r df[4,1]`
## `r df[5,1]`
# 嵌入网页
```{r cars-plot, dev='png', fig.show='hide'}
plot(cars)
```

在另一段之后介绍了该图像：

`)