во flexdashbboard, ggplotly не отображает график из цикла for - PullRequest
Новая
       9

во flexdashbboard, ggplotly не отображает график из цикла for

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

Я создаю flexdashboard, который имеет несколько вкладок.Для одного аспекта панели инструментов мне нужно создать вкладки, основанные на количестве уникальных экземпляров переменной, и разместить график на каждой вкладке.Это работает, но я не могу обернуть график в функцию ggplotly, поскольку график не отображается: 

for (r in unique(school_grade_plot$Grade)) {

cat(paste0('\n### Summary Plot, Grade ', r, '\n'))

plot2 <- ggplot(data = school_grade_plot[(school_grade_plot$School==params$school_name & school_grade_plot$Grade==r),], aes(y=percent, x = module, fill = category))  + geom_bar(stat = "identity", position = position_stack(reverse=F), width=.8) +
  ggtitle(paste0("Grade ", r)) + 
             theme(axis.title.y = element_blank(), text = element_text(size=12),legend.position="bottom",
                   legend.title = element_blank(),
                   panel.background = element_blank()) + coord_flip() +
             scale_fill_manual(values=c("steelblue3", "darkolivegreen3", "lightgoldenrod2","tomato2"))

 print(plot2)
 #print(ggplotly(plot2)) 

cat('\n')

}

Когда я выбираю «print (plot2)», я вижу графики на их правильной вкладке.Однако, когда я выбираю «print (ggplotly (plot2))», вкладки остаются пустыми.

Я искал и обнаружил, что внутри цикла for команда ggplotly должна быть заключена в команду "print", что я и пытался, но, похоже, она не работает.Есть идеи?

...