цикл для создания раздела rmd с динамическим графиком - PullRequest
Новая
       16

цикл для создания раздела rmd с динамическим графиком

0 голосов
/ 17 июня 2019

Попытка создать функцию или цикл, который создает новый раздел заголовка r уценки, который содержит график (plot_ly), со столбцом графика диаграммы, связанным с заголовком раздела (т.е. имя столбца = заголовок и ось y).Мне нужно сделать это для нескольких разделов и для набора данных, который будет обновляться, поэтому я хочу избежать необходимости вручную определять каждый фрагмент кода.Это в html-документе flexdashboard.

Пытался использовать cat до / после графика, но диаграмма не будет отображаться 

library(dplyr)
library(plotly)

# simplified example dataframe
df <- data.frame(
  Date = c(1:10 + Sys.Date()), # dates after today
  Group = rep(c("A", "B"), 5),
  Column1 = rnorm(n = 10),
  Column2 = rnorm(n = 10)
)

# list of columns to plot in new sections
plottable <- c("Column1", "Column2")

# failed experiment
for(i in plottable){
  cat("  \n###", i ," \n")

  plot_ly(data = df,
          y = ~get(i),
          x = ~Date,
          color = ~Group,
          type = "scatter") %>%
    layout(yaxis = list(title = i),
           xaxis = list(title = "Sample Date"),
           margin = list(l = 70, b = 60,t = 20, pad = 2))

  cat("  \n")
}

Я ожидаю новый раздел для каждого графика, нодиаграммы не отображаются в выводе html.Я предполагаю, что это связано с сюжетом производства HTML-объекта.Я попытался поместить объект plot в оператор print и / или return, но это тоже не сработало.

...