ShinyDashboard 中的反应性输入问题

Question

我正在使用以下数据集：https://docs.google.com/spreadsheets/d/1C_P5xxzYr7HOkaZFfFiDhanqDSuSIrd2UkiC-6_G2q0/edit#gid=0

我正在使用 ShinyDashboard 并且我有一个 selectInput 允许我选择特定类型的糖果棒（在我的数据集中的糖果列中）。

我如何选择糖果，然后制作一个图表，其中包含每个购买月份所选糖果的频率？在我的 server.R 中，我不确定 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##
server <- function(input, output, session) { 


  output$candy<- renderUI({
    selectInput(
      inputId = "candy",
      label = "Candy: ",
      choices = as.character(unique(dataset$Candy)),
      selected = "Twix"
    )
  })


    output$plot2 <- renderChart2({
    candySelect<- input$candy
    df <- dataset[dataset$candy == candySelect,]
    p2 <- rPlot(freq~purchase_month, data = df, type = 'line')
    p2$guides(y = list(min = 0, title = ""))
    p2$guides(y = list(title = ""))
    p2$addParams(height = 300, dom = 'chart2')
    return(p2)
  })


  }

Answer 1

如果你可以使用 ggplot，你可以这样做：

已编辑为具有动态工具提示

## ui.R ##
library(shinydashboard)
library(shinyBS)
require(ggplot2)

dataset <- read.csv("Sample Dataset - Sheet1.csv")

ui <- dashboardPage(
  dashboardHeader(title = "Dashboard"),

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

  dashboardBody(
    sidebarPanel(
      htmlOutput("candy")
    ),
    mainPanel(
      uiOutput("plotUI")
    )
  ))

##server.R##
server <- function(input, output, session) { 

  output$candy<- renderUI({
    selectInput(
      inputId = "candy",
      label = "Candy: ",
      choices = as.character(unique(dataset$Candy)),
      selected = "Twix"
    )
  })

  output$plotUI <- renderUI({
    if(is.null(input$candy)) return(NULL)
    local({
      candySelect <- input$candy
      str1 <- sprintf("The candybar you selected is: %s",candySelect)
      str2 <- sprintf("More about %s <a>here</a>",candySelect)
      print (str1)
      popify(plotOutput('plot'),str1,str2)
    })

  }) 

  observeEvent(input$candy,{
    if(is.null(input$candy)) return(NULL)
    candySelect<- input$candy
    print ('plot')
    # Assuming only one entry for each mont per candybar
    d <- dataset[dataset$Candy==candySelect,]
    output$plot <- renderPlot({
      ggplot(data=d, aes(x=purchase_month,y=freq,group=Candy)) + 
      geom_line() + 
      ggtitle(candySelect)
    })
  })

}

shinyApp(ui = ui, server = server)

我想这应该可行，否则您可以使用 jQuery.

绑定工具提示

ShinyDashboard 中的反应性输入问题

Trouble with a Reactive Input in ShinyDashboard

r

shiny

shinydashboard