编写我的第一个 shiny 应用程序，我如何通过选定的变量 plot，为什么这个脚本不起作用？

Question

我正在尝试编写我的第一个 shiny 应用程序，该应用程序将在两个变量之间进行一些统计分析，并且 plot 显示它们之间的关系。 我的数据将是预先确定的。 对于图表，我决定使用 highcharter，但我该如何编写代码呢？ 上面的代码是我的第一次尝试，但我似乎无法弄清楚为什么它不起作用。 我也尝试过来自 highcharter 指南的 shiny 的示例代码，但它似乎也不起作用。

library(shiny)
library(highcharter)
library(tidyverse)

data(iris)

ui <- fluidPage(

  selectInput("First", label = "First Variable", width = "100%",
              choices = colnames(iris)), 
  selectInput("Second", label = "Second", width = "100%",
              colnames(iris)),
  highchartOutput("hchartcont")

)

server = function(input, output) {

  output$hchartcont <- renderHighchart({
    hc <- highchart() %>% 
      hc_chart(type="line") %>% 
      hc_xAxis(input$First) %>% 
      hc_yAxis_multiples(input$Second)
    hc
  }

  )

}

shinyApp(ui = ui, server = server)

Answer 1

虽然不熟悉highcharter ，但您的代码似乎没有向 plot 提供任何数据。 您需要先获取输入数据，然后绘制 plot。

例如，这可以工作（我试图尽可能多地保留您的代码......但是，plot 行在这里没有意义；认为这只是一个快速工作示例:-)）：

library(highcharter)
library(tidyverse)
library(shiny)

ui <- fluidPage(

    selectInput("First", label = "First Variable", width = "100%",
                choices = colnames(iris)), 
    selectInput("Second", label = "Second", width = "100%",
                choices = colnames(iris)),
    highchartOutput("hchartcont")

)

server = function(input, output) {

    output$hchartcont <- renderHighchart({
        df <- iris %>% select(x = input$First, y = input$Second)
        hchart(df, "line", hcaes(x, y))
    })

}

shinyApp(ui = ui, server = server)