ggplot2 出现闪亮错误：ggplot2 不知道如何处理 packageIQR 类的数据

Question

我正在尝试构建一个简单的shiny 应用程序，该应用程序基于输入创建数据表并使用ggplot2 输出折线图。我收到以下错误：

错误：ggplot2 不知道如何处理类 packageIQR 的数据

在这个应用程序中，用户使用滑块来定义时间段或 X 的长度，以及通过定义起始值和 X 上的值变化来定义值的变化。绘图是一条线性线.我是shiny 的新手，所以如果有更好的设置方法，我还想就设置服务器代码的最佳方法提出建议，但现在我只是得到一个错误并且没有产生任何情节。

服务器.R

library(shiny)
library(ggplot2)

shinyServer(function(input, output){

  reactive({
    data <- data.table(months = seq(1, input$months, by = 1),
                   value  = seq(input$startingValue, 
                               input$startingValue + input$valueChange, 
                               length.out = input$months))
  })


   output$yield <- renderPlot({  
     p <- ggplot(data(), aes(x=months, y=value, colour=value)) +geom_line()
     print(p)
   })
})

Answer 1

你只需要定义反应函数：

data <- reactive({
        data.table(months = seq(1, input$months, by = 1),
               value  = seq(input$startingValue, 
                           input$startingValue + input$valueChange, 
                           length.out = input$months))
})

注意这里你不需要定义响应函数，因为你只有一个调用者。您可以将所有代码放在情节部分：

output$yield <- renderPlot({  
 data <- data.table(months = seq(1, input$months, by = 1),
               value  = seq(input$startingValue, 
                           input$startingValue + input$valueChange, 
                           length.out = input$months))
 p <- ggplot(data, aes(x=months, y=value, colour=value)) +geom_line()
 print(p)
})