Почему мой график масштабирования блестит от пустого ggplot2

в ваших выражениях renderPlot() вместо использования print(p) замените на p

это сработало для меня.

Ваши векторы последовательности данных имеют разную длину.

Замените определения вашего фрейма данных (оба) следующим:

n <- 100
dat <- data.frame(x = seq(1,to=100,length.out=n), 
                  y = seq(1,to=2000,length.out=n), 
                  z = seq(1,to=3000,length.out=n), 
                  dateTime = seq(input$dates[1], to=input$dates[2],length.out=n)) 

Я проверил это, и это сработало нормально. До того, как он ошибся и выдал пустой график, когда я изменил дату, а график был пустым. Что я считаю проблемой?

Вот полный код:

library (shiny)
library (shinydashboard)
library (ggplot2)

header <- dashboardHeader(title = "Example")

sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Data Estimation", tabName = "tabset1",
             dateRangeInput("dates", 
                            "Date range for regression",
                            start = as.character(Sys.Date() - 495), 
                            end = as.character(Sys.Date() - 396))
    )))

body <- dashboardBody(
  fluidRow(
    tabBox(id = "tabset1", height = "450px", width = "900px",
           tabPanel("Time Series Est", 
                    plotOutput ("plot1", height = 400,
                                brush = brushOpts(
                                  id = "plot1Brush",
                                  resetOnNew = TRUE)))
    )),
  fluidRow(
    tabBox(id = "tabset1", height = "450px", width = "900px",
           tabPanel("Zoom", 
                    plotOutput ("plot2", height = 400)
           ))))

ui <- dashboardPage(skin = "blue", header, sidebar, body)

server <- function(input, output) ({

  output$plot1 <- renderPlot({

   # dat <- data.frame(x = seq(1,100,1), y = seq(1,2000,20), z = seq(1,3000,30), dateTime = seq(input$dates[1], input$dates[2], 1))
    n <- 100
    dat <- data.frame(x = seq(1,to=100,length.out=n), 
                      y = seq(1,to=2000,length.out=n), 
                      z = seq(1,to=3000,length.out=n), 
                      dateTime = seq(input$dates[1], to=input$dates[2],length.out=n))   
    p <- ggplot() +
      geom_line(data = dat, aes(x = dateTime, y = x, color = "x")) +
      geom_line(data = dat, aes(x = dateTime, y = y, color = "y")) +
      geom_line(data = dat, aes(x = dateTime, y = z, color = "z")) +
      scale_y_log10() +
      theme_bw()
    p

  })

  ranges2 <- reactiveValues(x = NULL, y = NULL)

  observe({
    brush <- input$plot1Brush
    if (!is.null(brush)) {
      ranges2$x <- c(brush$xmin, brush$xmax)
      ranges2$y <- c(brush$ymin, brush$ymax)
    }
    else {
      ranges2$x <- NULL
      ranges2$y <- NULL
    }
  })


  output$plot2 <- renderPlot({

    if (!is.null(ranges2$x)) {
      ranges2$x <- as.Date(ranges2$x, origin = "1970-01-01")
    }
    n <- 100
    dat <- data.frame(x = seq(1,to=100,length.out=n), 
                      y = seq(1,to=2000,length.out=n), 
                      z = seq(1,to=3000,length.out=n), 
                      dateTime = seq(input$dates[1], to=input$dates[2],length.out=n))

    p <- ggplot() +
      geom_line(data = dat, aes(x = dateTime, y = x, color = "x")) +
      geom_line(data = dat, aes(x = dateTime, y = y, color = "y")) +
      geom_line(data = dat, aes(x = dateTime, y = z, color = "z")) +
      coord_cartesian(xlim = ranges2$x, ylim = ranges2$y) +
      scale_y_log10() +
      theme_bw()

    p

  })

})

shinyApp(ui, server)