Программно генерировать заголовки в блокноте R - PullRequest
Новая
       9

Программно генерировать заголовки в блокноте R

0 голосов
/ 18 октября 2018

Я пытаюсь сгенерировать отчет в блокноте 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')
}
```

Это мой вывод

Есть идеи?

...