Question

我拥有已转换为以下格式并根据其绘制图形的数据集。

    structure(list(Date = structure(c(17833, 17830, 17829, 17828, 
NA), class = "Date"), stocks = structure(c(1L, 1L, 1L, 1L, 1L
), .Label = c("DBS SP Equity", "OCBC SP Equity", "ST SP Equity"
), class = "factor"), cumulative = c(22.99, 23.1, 23.71, 24.1, 
NA), Industry = structure(c(1L, 1L, 1L, 1L, 1L), .Label = c("Banks", 
"Telecommunications"), class = "factor")), row.names = c(NA, 
-5L), class = c("tbl_df", "tbl", "data.frame"))

我有2个输入字段：Industry和DateRange。

我的输入

selectInput(inputId = "industry2",
                  label = "Industry",
                  choices = input_selection[input_selection !='MarketIndex'],
                  selected = NULL, 
                  multiple = TRUE),
      dateRangeInput('dateRange',
      label = 'Date range input: yyyy-mm-dd',
      start = min(sharesdata_gather$Date), end = max(sharesdata_gather$Date))

我能够为原始数据结构中的所有数据绘制2个图形-行业与日期和库存与日期对比。
但是不能仅针对用户指定的日期绘制图形。我尝试使用子集函数来过滤图形，但收到错误消息“没有活动的反应式上下文就不允许进行操作。（您试图做只能从反应式表达式或观察者内部完成的操作。”）

我的服务器功能是：

#filtering the data for input start and end date                 
dailyprice_gather <- subset(dailyprice_gather, Date>=input$dateRange[1] )
             dailyprice_gather <- subset(dailyprice_gather, Date<=input$dateRange[2] )
           #grap for Date vs Cumulative for each industry
             output$ind=renderPlot({
            ggplot(data = dailyprice_gather[dailyprice_gather$Industry == input$industry2,]) +
          geom_line(aes(x= Date , y= cumulative, color=Industry) , size=0.25) +

               ggtitle(paste0("Simple Cumulative Return over Years - Industry Wise"))

             })
             #graph for Date vs Stock 
              output$stk =renderPlot({
              ggplot(data = dailyprice_gather[dailyprice_gather$Industry == input$industry2  & dailyprice_gather$stocks == input$equities,])+
          geom_line(aes(x= Date , y= cumulative, color=stocks) , size=0.25) +
              ggtitle(paste0("Simple Cumulative Return over Years - Stock Wise"))

             })

Answer 1

您正在尝试在任何活动的反应式上下文之外使用 input $ dateRange [1] -因此，如果用户更改该值，则没有任何反应，并且 dailyprice_gather 将不会更新。

尝试使用

dailyprice_gather <- reactive({
    d <- subset(<original data name>, Date>=input$dateRange[1] )
    d <- subset(d, Date<=input$dateRange[2] )
    d
)}

，并将其称为 dailyprice_gather（）。因此，无论何时更改日期范围，上述反应式都会失效，并且依赖它的所有内容都将重新运行。请注意，您需要替换“原始数据名称”。

过滤数据框并根据开始和结束日期创建图

1 个答案: