在R笔记本中以编程方式生成标题

Question

我正在尝试在R笔记本中生成报告，该报告中会生成大量绘图。我试图使用H1标签来拥有漂亮的目录，但是每当我运行代码时。我将标题堆积在顶部，将图形堆积在底部，而不是在标题之后放置图形。

我正在使用这个旧的SO作为模板。

这是一个简约的复制品：

---
title: "R Notebook"
output:
    html_notebook: 
    toc: yes

---

```{r, results='hide'}
library(tidyverse)

dt <- as_tibble(iris)

dt %>% mutate(Species = as.character(Species)) %>% 
  group_by(Species) %>%
  nest() %>%  
  mutate(plot = map(data, ~ ggplot(data=.x) + geom_line(aes(y= Sepal.Length, x= Sepal.Width)))) ->Plots
```

```{r echo = FALSE, results='asis'}

for( i in 1:nrow(Plots)){
  dt <- Plots[i,]
  cat('\n#', dt[[1]], '\n')
  p <- dt[[3]]
  print(p)
  cat('\n')
}
```

这是我的output

有什么想法吗？