Question

我正在构建一个具有多个选项卡的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））”时，选项卡为空白。

我搜索了一下，发现ggplotly命令需要在for循环中包装在“ print”命令中，这是我一直在尝试的方法，但似乎不起作用。有见识吗？

在flexdashbboard中，ggplotly不显示for循环内部的绘图

0 个答案: