shiny - RStudio-Shiny 代码逐行工作（Ctrl+Enter），但不能使用“运行应用程序”按钮

Question

在 RStudio 中，如果我使用 Ctrl+Enter 逐行运行它，下面的 Shiny 代码可以正常工作。但是，如果我使用“运行应用程序”按钮运行整个代码，则会生成此错误：

ts(x) 中的错误：“ts”对象必须有一个或多个观察值

我认为这是由于“lambda”参数，但我不明白为什么。任何帮助表示赞赏。

“data.csv”的链接是https://www.dropbox.com/s/p1bhacdg8j1qx42/data.csv?dl=0

=====================================

library(shiny)
library(shinydashboard)
library(plotly)
library(forecast)

df <- read.csv("data.csv")
demand <- ts(df$demand, start = c(1995, 1), frequency = 12)

lbd <- BoxCox.lambda(demand, lower=-5, upper=5)
m <- ar(BoxCox(demand,lambda=lbd))
fit_BC <- forecast(m, h=12, lambda=lbd)

ui <- dashboardPage(
  dashboardHeader(title = "Plot"),
  dashboardSidebar(disable = TRUE),
  dashboardBody(fluidRow(column(width = 12, box(plotlyOutput("forecast_plots"),width = NULL))))
)

server <- function(input, output) {
  output$forecast_plots <- renderPlotly({
    autoplot(fit_BC)
  })
}

shinyApp(ui, server)

====================================

Answer 1

autoplot() 返回 ggplot 对象。但是您的 output$forecast_plots 需要 plotly 对象（带有 plotlyOutput() 函数）。

工作代码如下：

ui <- dashboardPage(
    dashboardHeader(title = "Plot"),
    dashboardSidebar(disable = TRUE),
    dashboardBody(fluidRow(column(width = 12, box(plotOutput("forecast_plots"),width = NULL))))
)

server <- function(input, output) {
    output$forecast_plots <- renderPlot({
        autoplot(fit_BC)
    })
}

ggplot 对象可以使用 ggplotly 函数轻松转换，但不幸的是，转换后的 plotly 自动绘图图会丢失预测区域。您可以像这样验证它：

ui <- dashboardPage(
    dashboardHeader(title = "Plot"),
    dashboardSidebar(disable = TRUE),
    dashboardBody(fluidRow(column(width = 12, box(plotlyOutput("forecast_plots"),width = NULL))))
)

server <- function(input, output) {
    output$forecast_plots <- renderPlotly({
        ggplotly(autoplot(fit_BC))
    })
}

添加

我找到了自动绘图库。https://terrytangyuan.github.io/2018/02/12/autoplotly-intro/

autoplotly() 函数可以将 autoplot 对象转换为大致正确的 plotly 对象。

library(shiny)
library(shinydashboard)
library(plotly)
library(forecast)
library(autoplotly)

df <- read.csv("c:/Users/010170283/Downloads/data.csv")
demand <- ts(df$demand, start = c(1995, 1), frequency = 12)

lbd <- BoxCox.lambda(demand, lower=-5, upper=5)
m <- ar(BoxCox(demand,lambda=lbd))
fit_BC <- forecast(m, h=12, lambda=lbd)

ui <- dashboardPage(
    dashboardHeader(title = "Plot"),
    dashboardSidebar(disable = TRUE),
    dashboardBody(fluidRow(column(width = 12, box(plotlyOutput("forecast_plots"),width = NULL))))
)

server <- function(input, output) {
    output$forecast_plots <- renderPlotly({
        autoplotly(autoplot(fit_BC))
    })
}

shinyApp(ui, server)

使用它可以看到预测区域，并且通过鼠标悬停事件呈现高/低 80 % 边缘值。