Question

我正在尝试使用dygraphs闪亮。我尝试生成一个图表，根据输入变量显示时间序列数据。数据样本如下：

     date      product sold
1  2015-01-01       a    1
2  2015-01-01       b   20
3  2015-02-01       a    2
4  2015-02-01       b   15
5  2015-03-01       a    3
6  2015-03-01       b   10
7  2015-04-01       a    4
8  2015-04-01       b    5
9  2015-05-01       a    5
10 2015-05-01       b    1

我想要的是一个时间序列图，其中包含产品变量的复选框控件（查看产品a，b或两者）。

ui和服务器代码是（shinydashboard package）：

library(shiny)
library(dygraphs)
library(dplyr)
library(xts)


ui <- dashboardPage(
skin="black",
dashboardHeader(title = "title"),
dashboardSidebar(
  sidebarMenu(
    menuItem("Results", tabName = "Result1", icon = icon("th"))
  )),
dashboardBody(
  tabItems(

    tabItem(tabName = "Result1",
            fluidRow(
              dygraphOutput("Graph")
            ),

            sidebarPanel(
              uiOutput("output1")
            )

    )

  ) )
 )

 server <- function(input, output) {


 output$Graph <- renderDygraph({

  data_f <- filter(data_products,
               product==input$type)
  xts(data_f$sold, as.Date(data_f$date, format = "%Y-%m-%d")) %>%
    dygraph()
  })
  output$output1<-renderUI({
  selectizeInput("type","Choose product",
   choices=levels(data_products$product), multiple=TRUE)
  })
   }

  shinyApp(ui, server)

尝试了几种方法，但总是会出错。提前感谢任何建议。

Answer 1

在这部分代码中你必须要小心：

data_f <- filter(data_products,
               product==input$type)

在此示例中，根据您的选择input$type可以包含0,1或2个元素。如果它包含一个元素"a"或"b"，那么一切都很好，但在其他情况下，您会收到错误或警告。

如果您未在窗口小部件中选择任何值，input$type将返回NULL。因此，逻辑比较将失败，您将得到错误。为了避免这种情况 - 在使用丢失的输入之前 - 您可以使用req或validate函数，这些函数可以被读作“要求输入可用”。 Here您可以阅读更多有关处理闪亮输入的信息。

如果您同时选择"a"和"b" product==input$type，则会返回警告，因为==不适用于多重比较。而不是将其改为%in%。

由于您需要一个复选框，我将selectInput更改为checkboxGroupInput

完整示例：

library(shiny)
library(dygraphs)
library(dplyr)
library(xts)

# I pasted your example data to exces and then readed it into R with these 
# two lines of the code. It seems that product has to be a factor, because you
# use 'levels(data_products$product)'
# data_products <- as.data.frame(read_excel("~/Downloads/data.xlsx"))[-1]
# data_products$product <- as.factor(data_products$product)


ui <- dashboardPage(
  skin="black",
  dashboardHeader(title = "title"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Results", tabName = "Result1", icon = icon("th"))
    )),
  dashboardBody(
    tabItems(

      tabItem(tabName = "Result1",
              fluidRow(
                dygraphOutput("Graph")
              ),

              sidebarPanel(
                uiOutput("output1")
              )
      )
    )
  )
)

server <- function(input, output) {

  output$Graph <- renderDygraph({
    req(input$type) # require that input$type is available

    data_f <- filter(data_products,
                     product %in% input$type) # use "%in%" instead of "=="  
    xts(data_f$sold, as.Date(data_f$date, format = "%Y-%m-%d")) %>%
      dygraph()
  })
  output$output1 <- renderUI({
    # selectizeInput("type","Choose product",
    #                choices=levels(data_products$product), multiple=TRUE)
    checkboxGroupInput("type", "Choose product",
                       choices = levels(data_products$product),
                       selected = levels(data_products$product))
  })
}

shinyApp(ui, server)

<强> EDITED ：

如果您想在选择a和b时有两行，则必须更改数据格式 - 您必须从长到宽。这样做的原因是，您可以使用xts轻松创建双变量时间序列，dygraph将绘制两条不同的行。

使用Hadley Wickham的reshape2软件包很容易实现从长到宽。

# Copy data from your example
data_products <- read.table(con<-file("clipboard"),header=T)
data_products$product <- as.factor(data_products$product)
# Reshape 
data_products <- dcast(data_products, date ~ product)

您的数据集现在看起来像这样：

        date a  b
1 2015-01-01 1 20
2 2015-02-01 2 15
3 2015-03-01 3 10
4 2015-04-01 4  5
5 2015-05-01 5  1

由于数据的新特性，您必须稍微更改服务器端的代码。我在代码中留下了评论

ui <- dashboardPage(
  skin = "black",
  dashboardHeader(title = "title"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Results", tabName = "Result1", icon = icon("th"))
    )),
  dashboardBody(
    tabItems(

      tabItem(tabName = "Result1",
              fluidRow(
                dygraphOutput("Graph")
              ),

              sidebarPanel(
                uiOutput("output1")
              )
      )
    )
  )
)

server <- function(input, output) {

  output$Graph <- renderDygraph({
    req(input$type) # require that input$type is available

    # Due to the wide format we have to select columns
    data_f <- data_products[, c("date", input$type)]
    # univariate or bivariate time series
    xts(data_f[-1], as.Date(data_f$date, format = "%Y-%m-%d")) %>%
      dygraph()
  })

  output$output1 <- renderUI({
    # Since we now have data in wide format, the choices are 
    # the names of columns (expect date)
    checkboxGroupInput("type", "Choose product", 
                       choices = names(data_products)[-1])
  })
}

shinyApp(ui, server)

闪亮的dygraphs包

1 个答案: