Question

我正在使用以下数据集：

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

如何选择Candy选项，然后为每个购买月制作一个包含所选糖果条频率的图表？在我的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中的无效输入问题

1 个答案: