Question

我尝试构建一个闪亮的应用程序，根据所选输入创建不同的绘图。总而言之，它解决了。唯一的问题是当我试图找到某一行的最小值时，我给二元运算符一个非数字参数。

这是我的代码：

    server = function(input,output,session){
  output$variableOutput = renderUI({
    selectInput("VariableInput",
                "Variable auswählen",
                choices = colnames(training),
                selected = "X1_P")
  })

  output$coolPlot = renderPlot({
    if (is.null(input$VariableInput)) {
      return(NULL)
    }  

    ggplot(data = training) + 
      geom_boxplot(aes_string(x="flag",
                       y=input$VariableInput,
                       fill="flag"),
                   outlier.shape = NA) + 
      guides(fill=FALSE)+
      scale_x_discrete(labels=c("Nicht-Ziel", "Ziel")) +
#here is the problem!!!
      #coord_cartesian(ylim = c(min(input$VariableInput),
       #                        quantile(input$VariableInput)[4] + IQR(input$VariableInput, 
        #                                                            na.rm = FALSE, type = 7)*1.9)) +
      stat_boxplot(aes_string(x="flag",
                       y=input$VariableInput,
                       fill="flag"),
                   geom ='errorbar') + 
      theme(axis.title.x = element_text(size=15,
                                        face = "bold"),
            axis.text.y  = element_text(size=12),
            axis.text.x  = element_text(size=12),
            axis.title.y = element_text(size=15,
                                        face = "bold"))+
      labs(x = paste(variables[i]),
           y = "Ausprägung der Variable")
  })

  output$coolTable = renderDataTable({ 
    training
  })
}

我离开了导致问题的代码。

提前致谢。

Answer 1

它的{ "data": [ ] }函数需要数字：

quantile()

在闪亮的应用程序中选择一列数据框

1 个答案: