Чередование объектов gridExtra с объектами ploty в rmarkdown - PullRequest
Новая
       11

Чередование объектов gridExtra с объектами ploty в rmarkdown

0 голосов
/ 01 сентября 2018

У меня есть графики из OLM-диагностики, чередующиеся с некоторыми графиками, которые я хочу сгенерировать в цикле. Я видел много сообщений, связанных с этим, но я не смог решить эту проблему

Вот минимальный воспроизводимый пример. Может быть уместно отметить, что ols_plot создается с использованием gridExtra::marrangeGrob в пакете olsrr, и, таким образом, уже имеет несколько графиков в этом объекте. 

---
title: "test_SO"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r cars}
library(plotly)
library(olsrr)
library(car)
library(htmltools)
```

## Including Plots

You can also embed plots, for example:

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

u_m <- lm(speed ~ dist, data = cars)
ols_plot<-  ols_plot_diagnostics(u_m)

line_plot <- plot_ly(cars, x = ~speed, y = ~dist, type = 'scatter', mode = 'lines')
plot_list<-list(ols_plot=ols_plot,line_plot=line_plot,ols_plot=ols_plot,line_plot=line_plot ) #creating a list of plot objects

# the below code works
# plot_list[[1]]
# htmltools::tagList(plot_list[[2]])
# plot_list[[3]]
# htmltools::tagList(plot_list[[4]])

#the for loop doesnt work
for (i in 1:4){

  if(names(plot_list[i])=="ols_plot")
  {
    print(plot_list[[1]])}
else
   if(names(plot_list[i])=="line_plot")
  {
  htmltools::tagList(plot_list[[2]])
  }
}

#htmltools::tagList(plot_list) # doesnt work either

```

Я пытался обернуть их в taglist и в div, но, похоже, не работает.

...