r: R Уценка не отображает несколько графиков - PullRequest
Новая
       58

r: R Уценка не отображает несколько графиков

1 голос
/ 06 июня 2019

Я создал функцию, которая программно генерирует необходимые диаграммы для предварительного моделирования Просмотр данных .

Моя цель - запустить их в R Markdown для создания презентации, однако, когда я пытаюсь создать html_document, slidy_presentation или ioslides_presentation, они не отображаются в выводе.

См. Код функции (функция работает при запуске в RStudio): 

data_review<- function(df, dateVar, depVar, indVars){
  for (i in indVars){
    scale_factor<- max(df[depVar])/max(df[i])
    cols <- c("Dependent" = "skyblue", "Independent" = "black")
    print(plotly::ggplotly(ggplot2::ggplot(df, ggplot2::aes(x= !!as.name(dateVar))) +
                         ggplot2::geom_line(ggplot2::aes(y= !!as.name(depVar), color= 'Dependent')) +
                         ggplot2::geom_line(ggplot2::aes(y= !!as.name(i)*scale_factor, color= "Independent")) +
                         ggplot2::scale_colour_manual(name= 'Variables', values=cols) +
                         ggplot2::ylab(depVar) +
                         ggplot2::xlab(toupper(dateVar)) +
                         ggplot2::ggtitle(label = paste(depVar, 'vs.', i, sep = ' '))))
  }
}

и соответствующие данные: 

df<- data.frame(date= seq(as.Date('2019-01-01'),as.Date('2019-01-10'),'days'), 
                sales= rnorm(n = 10, mean = 5, sd = 1),
                y1= rnorm(n = 10, mean = 6, sd = 2), 
                y2= rnorm(n = 10, mean = 3, sd = 1),
                y3= rnorm(n = 10, mean = 5, sd = 1)
                )

Запуск в Studio 

data_review(df = df, dateVar = 'date', depVar = 'sales', indVars = c('y1', 'y2', 'y3'))

imagedata_review output">

Run in R Markdown (slidy_presentation пример)

Графики не отображаются, только код: output in r markdown

Как получить графики для рендеринга?

1 Ответ

1 голос
/ 06 июня 2019

Работает ли это для функции data_review при создании HTML-документа? 

data_review<- function(df, dateVar, depVar, indVars){
  plotlist = list()
  for (i in indVars){
    scale_factor<- max(df[depVar])/max(df[i])
    cols <- c("Dependent" = "skyblue", "Independent" = "black")
    p <- ggplot2::ggplot(df, ggplot2::aes(x= !!as.name(dateVar))) +
                             ggplot2::geom_line(ggplot2::aes(y= !!as.name(depVar), color= 'Dependent')) +
                             ggplot2::geom_line(ggplot2::aes(y= !!as.name(i)*scale_factor, color= "Independent")) +
                             ggplot2::scale_colour_manual(name= 'Variables', values=cols) +
                             ggplot2::ylab(depVar) +
                             ggplot2::xlab(toupper(dateVar)) +
                             ggplot2::ggtitle(label = paste(depVar, 'vs.', i, sep = ' '))
    plotlist[[i]] = plotly::ggplotly(p)
  }
  htmltools::tagList(setNames(plotlist, NULL))
}
...