Question

我正在尝试使用“ ggplot2”程序包绘制线形图，该程序包随后根据滑块的输入日期进行绘制。

我的数据集如下：

Date       | Blk 6 | Blk 6 | Blk 6 | Blk 6   | Total
           | Lvl1  | Lvl1  | Lvl1  | Lvl2
           | AP01  | AP02  | AP03  | AP01
---------------------------------------------
2018-09-03 | 500   | 200   | 1000  | 2000    | 3700
2018-09-04 | 100   | 400   | 6000  | 3000    | 9500
2018-09-05 | 300   | 800   | 3000  | 4000    | 8100

这就是我的想法：

ui.R

conditionalPanel(condition="input.tabs==5",
                     sliderInput("DatesMerge", "Dates:",
                                 min = as.Date("2018-09-03","%Y-%m-%d"),
                                 max = as.Date("2019-05-30","%Y-%m-%d"),
                                 value=as.Date(c("2018-08-01","2019-01-01" )),timeFormat="%Y-%m-%d"))


server.R
# Define server logic to read selected file ----
server <- function(input, output) {

#plot the freq
          output$plot <- renderPlot({


            #select Jan - May 2019 dataset for blk 13
             blk3plot <- ggplot(data=blk3, aes(x=input$DatesMerge, y=Total)) + geom_line(color="blue") + ggtitle("Before: Blk 3 Traffic(Between 3/9/2018-30/5/2019) ") +
              ylab("Traffic (Mbps)")

            return(blk3plot)
          })

}

我不确定如何根据滑块日期格式编辑ggplot。运行时出现此错误...错误：美学必须为长度1或与数据相同（270）：x

Answer 1

您必须使用workitems.xml（长度为2的向量）过滤数据。

"[project]\New Group"

在您的数据框中看不到input$DatesMerge变量，但是我想有一个。

基于滑块的图表R中的输入日期范围

1 个答案: