Автоматизация генерации разделов, содержащих `ggplotly` или` DT`, с использованием `for` l oop в Rmarkdown - PullRequest
Новая
       66

Автоматизация генерации разделов, содержащих `ggplotly` или` DT`, с использованием `for` l oop в Rmarkdown

0 голосов
/ 14 марта 2020

Я пытаюсь автоматизировать создание разделов в for l oop, чтобы каждый раздел содержал заголовок и соответствующие результаты, отображаемые с использованием интерактивных ggplotly или datatable, как в примере ниже. Пример ниже не работает однако. Как это сделать правильно? 

---
title: "Automating section plotting using `glue`"
output: html_document
---

```{r setup, include=FALSE}
library(ggplot2)
library(glue)
```

## Plotting multiple graphics: standard way - without `glue` 

### Variable: `r names(cars)[1]`}

g <- ggplot(cars) + geom_histogram(aes_string(x=names(cars)[1] ))
ggplotly(g) # works

### Переменная: r names(cars)[2]} 

g <- ggplot(cars) + geom_histogram(aes_string(x=names(cars)[2] ))
ggplotly(g) # works

## Построение нескольких графиков: автоматический способ - с использованием параметра asis и glue 



for( col in 1:ncol(cars)) {
  cat(glue("\n\n\n### Variable: {names(cars)[col]}\n\n"))

  g <- ggplot(cars) + geom_histogram(aes_string(x=names(cars)[col] ) )

  print(g) # WORKS
  print ( ggplotly (g) )  # <-- does not work 

  "<br><br><p>"
}

Аналогичная проблема с datatable(cars[col]) Я не могу использовать его в l oop.

PS Это связано с: Автоматизацией генерации предварительно отформатированного текста в Rmarkdown с использованием R
Зацикливание заголовков / секций в rmarkdown?

...