-1

ユーザーがアップロードしたシリーズとしてプロットするデータがあります。ただし、データは 1 年間のものであり、ユーザーがこれらの月のパターンを分析する必要がある場合、たとえば 1 月と 2 月の 2 か月を表示したいと思います。そのため、dateRangeInput は便利だと思いましたが、プロットにバインドする方法がわかりませんか?

データ用: http://www.filedropper.com/quo

EDITED：入力を取得するために反応引数を使用しました。ただし、別のエラーが表示されます: charToDate(x) のエラー: 文字列が標準の明確な形式ではありません。

ここに画像の説明を入力

 library(shiny)
  shinyUI(fluidPage( 
    titlePanel("Time Series Study"), 
     sidebarLayout(
      sidebarPanel(
       fileInput('file2', 'Choose Quotation File:', accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv'), multiple = FALSE),
       dateRangeInput("range",
                 "Date Range:",
                 start = "start",
                 end   = "end",
                 min = "2012.01.01",
                 max   = "2012.01.31")
        ),

        mainPanel(
        plotOutput("distPlot")  )  ) ))


 #server.r


  library(shiny)
  library(ggplot2)
     shinyServer(function(input, output) {


     dataInput <- reactive({

     `uploadedsamplefile` <- read.csv(input$file2$datapath, sep=";",check.names = FALSE)
      uploadedsamplefile1 <- uploadedsamplefile
      xx<-cbind(`uploadedsamplefile1`[1:4])
      xx$`Datee` <- as.Date( xx$`Datee`, '%d.%m.%Y')
      xx$`Datee` <- subset( xx$`Datee`,   as.Date("input$start") <= xx$`Datee`  &&  xx$`Datee` <= as.Date("input$end"))
    })
     output$distPlot <- renderPlot({
       y <- ggplot(xx, aes(x=`Datee`)) +  geom_line(aes(y=(`A`), colour = "A")) + geom_line(size=1,aes(y=(`B`), colour = "B")) + 
  geom_line(size=1,aes(y=(`C`), colour = "C")) 
       y }) })
4

1 に答える 1

1

この例input$range[1]で開始日と終了日にアクセスするには、開始日に使用しinput$range[2]、終了日にアクセスします。

于 2016-01-22T16:20:15.590 に答える