根据反应输入修改我的 rChart？

Question

我写的一些代码有问题。

这是数据集的示例：https://docs.google.com/spreadsheets/d/1C_P5xxzYr7HOkaZFfFiDhanqDSuSIrd2UkiC-6_G2q0/edit?usp=sharing

Objective: 我有一个 dataset，其中包含 Purchase_Month、candy 和 freq 列，表示在给定月份购买该类型糖果的次数。

我有一个 rPlot，我要根据 SelectInput 中选择的 Candy bar 对其进行更改。并根据当月购买糖果的次数输出折线图。

我的当前代码如下，但它告诉我找不到 candyCount。

        ## ui.R ##
        library(shinydashboard)
        library(rCharts)

        dashboardPage(
          dashboardHeader(title = "Dashboard"),

          dashboardSidebar(
            width = 150,
            sidebarMenu(
              menuItem("Dashboard", tabName = "dashboard", icon = icon("bar-chart"))
            )

          ),

          dashboardBody(

          sidebarPanel(

              htmlOutput("candy")

            ),
            mainPanel(
              showOutput("plot2", "polycharts")
            ))




            )

    ##server.R##   
        library(rCharts)
        library(ggplot2)
        library(ggvis)

    server <- function(input, output, session) { 

      output$candy <- renderUI({

        available2 <- dataset[(dataset$candy == input$candy), "candy"]

        selectInput(
          inputId = "candy",
          label = "Choose a candy:  ",
          choices = sort(as.character(unique(available2))),
          selected = unique(available2[1])
        )
      })
      observeEvent(input$candy, {
    candyChoice<- toString(input$customer_issue)
    print(candyChoice)
    candyCount<- dataset[dataset$candy == candyChoice, ]
  })
      })

      output$plot2 <- renderChart2({
        p2 <- rPlot(freq~purchase_month, data = candyCount, type = 'line')
        p2$guides(y = list(min = 0, title = ""))
        p2$guides(y = list(title = sprintf("%s Claims",input$candy)))
        p2$addParams(height = 300, dom = 'chart2')
        return(p2)
      })


      }

更新数据：为什么这行不通？

  candyCount<- reactive({
    dataset[dataset$candy == input$candy, ]
    })

  output$plot2 <- renderChart2({
    p2 <- rPlot(freq~purchase, data = candyCount(), type = 'line')
    p2$guides(y = list(min = 0, title = ""))
    p2$guides(y = list(title = ""))
    p2$addParams(height = 300, dom = 'chart2')
    return(p2)
  })

Answer 1

在 available2，您正在使用 dataset$candy == input$candy 过滤有关所选糖果的数据。但是您使用相同的 available2 来确定哪些是 selectInput 处的 choices。我猜你想要：available2 <- dataset[, "candy"].

Answer 2

output$candy <- renderUI({

    available2 <- dataset[(dataset$candy == input$candy), "candy"]

    selectInput(
      inputId = "candy",
      label = "Choose a candy:  ",
      choices = sort(as.character(unique(available2))),
      selected = unique(available2[1])
    )
  })

在上文中，您试图通过输出中的输入进行子集化。 selectInput 需要在 UI.R.

内

您可能会发现有用的工作基本示例。

library(shiny)
df <- read.csv("/path/to/my.csv")

ui <- shinyUI(pageWithSidebar(

       headerPanel('Candy Data'),
       sidebarPanel(
             selectInput('candy', 'Candy', unique(as.character(df[,2])), selected = "Twix")

         ),
       mainPanel(
             plotOutput('plot1')
         )
 ))

server <- shinyServer(function(input, output, session) {
  selectedData <- reactive({
    df[which(df[,2] == input$candy),3]
  })

  output$plot1 <- renderPlot({
    barplot(selectedData())
  })

})

shinyApp(ui, server)

在上面的示例中，ui 呈现一个 selectInput，其 ID 为 candy。该值，即所选糖果现在分配给 input$candy 范围。在 server 中，我们有一个 reactive 函数监视任何 input 变化。当用户选择一个新的糖果这个函数时，df[which(df[,2] == input$candy),3] 就是说 "subset my data frame, df, by the new input$candy"。现在分配给 selectedData()。最后我们渲染箱线图。

编辑

server.R

require(rCharts)
options(RCHART_WIDTH = 500)
df <- read.csv("path/to/my.csv")
shinyServer(function(input, output, session) {
  selectedData <- reactive({
    df[which(df[,2] == input$candy),]
  })

  output$plot1 <- renderChart({
    p <- rPlot(freq~purchase_month, data = selectedData(), type = "line")
    p$addParams(dom = 'plot1')
    return(p)
  })
})

ui.R

require(rCharts)
options(RCHART_LIB = 'polycharts')
shinyUI(pageWithSidebar(

  headerPanel('Candy Data'),
  sidebarPanel(
    selectInput('candy', 'Candy', unique(as.character(df[,2])), selected = "Twix")

  ),
  mainPanel(
    showOutput('plot1', 'polycharts')
  )
))

保存目录中的文件然后runApp.

根据反应输入修改我的 rChart？

Modify my rChart based on a reactive input?

r

shiny

rcharts