如何将具有多个级别的因子变量用于 selectInput() 以在 flexdashboard 中闪亮

问题描述

我正在尝试将 Shine 合并到我的 flexdashboard 中，并且在我运行应用程序时遇到了生成图以对应于分解变量的多个级别的挑战。我的目标是在我的仪表板上创建一个选项卡，用户可以在其中从一组学生组中进行选择，以查看该组的结果图。

这是我的 selectInput 的代码：

selectInput("groups","Student Group:",choices = levels(df$group))

这是我的情节的代码：

renderPlotly({
  df %>%
    group_by(!!rlang::sym(input$groups)) %>%
    ggplot(aes(assessment,score)) +
    geom_col(fill = "blue",alpha = 0.7) +
  scale_x_discrete(limits = test_order) +
  scale_y_continuous(limits = c(0,10),breaks = c(0,2,4,6,8,10)) +
   coord_flip() +
   geom_text(aes(assessment,score,label = score),nudge_y = -0.5,color = "white") +
   facet_wrap(~student_name)
 })

group 变量是我的因子变量，有五个级别，我想显示在 selectInput() 侧边栏选项卡中，每个级别都可供选择。当我运行应用程序时，具有适当级别的输入出现在侧边栏中；但是，在绘图应显示以下消息的地方会产生错误：“必须按在 .data 中找到的变量分组。未找到列 group 1。”

对于如何渲染我的应用以成功显示具有相应情节的关卡的任何帮助或输入，将不胜感激。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

flexdashboard r r selectinput shiny