无法在我闪亮的应用程序中使用反应元素

Question

在我闪亮的应用程序中，我想更改我希望构建的 ggplot barChart。 selectinput 应该允许改变月份（见下面的数据集）所以我的情节应该相应地改变。

问题：问题是，我无法使用我的反应函数，甚至无法在 ggplot 函数中使用简单的 input$monthid。

数据集：

Month  Orders
1   Feb  984524
2   Jan 1151303
3   Mar  575000

> dput(b)
structure(list(Month = c("Feb", "Jan", "Mar"), Orders = c(984524L, 
1151303L, 575000L)), .Names = c("Month", "Orders"), class = "data.frame", row.names = c(NA, 
-3L))

ui.R

library(shiny)
library(shinythemes)

b<-read.csv("b.csv",header=TRUE,sep=",",stringsAsFactors=TRUE)

shinyUI(fluidPage(theme= shinytheme("flatly"),

  sidebarLayout(   
    sidebarPanel(
    selectInput(inputId = "monthid", label = "Month",choices = b$Month,selected = b$Month[1])),
    mainPanel(plotOutput("plot"))    

      ))
  )

server.R

library(shiny)
library(shinythemes)
library(ggplot2)
    b<-read.csv("b.csv",header=TRUE,sep=",",stringsAsFactors=TRUE)

shinyServer(function(input, output) {


  #making a reactive object
  m<-reactive ({

    as.character(input$monthid)

    })


    output$plot<- renderPlot({

    #probably I am making a subset error in x inside aes parameter  
    ggplot(data = b, aes(x = b[,m()] ,y = b$Orders)) + geom_bar(stat="identity")

    })
})

Answer 1

这是一个最小的工作示例，您可以直接在会话中复制并粘贴到运行，但是只有一个条形的条形图并没有多大意义（如果您问的话，它看起来很丑）我）：

library(shiny)

shinyApp(
  ui = fluidPage(
    sidebarLayout(   
      sidebarPanel(
        selectInput(
          inputId = "monthid", 
          label = "Month",
          choices = b$Month,
          selected = b$Month[1]
        )
      ),
      mainPanel(plotOutput("plot"))
    )
  ), 
  server = function(input, output) {
    DF <- reactive({
      b[b$Month == input$monthid, , drop = FALSE]
    })
    output$plot <- renderPlot({
      ggplot(DF(), aes(x = Month, y = Orders)) + 
        geom_bar(stat = "identity")
    })
  }
)

看起来有点像这样：

由于在我看来这看起来不太好，您可以通过突出显示当前选定的栏来做一些事情，例如：

b$highlight <- factor("Not Selected", levels = c("Not selected", "Selected"))

shinyApp(
  ui = fluidPage(
    sidebarLayout(   
      sidebarPanel(
        selectInput(
          inputId = "monthid", 
          label = "Month",
          choices = b$Month,
          selected = b$Month[1]
          )
        ),
      mainPanel(plotOutput("plot"))
      )
    ), 
  server = function(input, output) {
    DF <- reactive({
      b[b$Month == input$monthid, "highlight"] <- "Selected"
      b
    })
    output$plot <- renderPlot({
       ggplot(DF(), aes(x = Month, y = Orders, fill = highlight)) + 
         geom_bar(stat = "identity")
    })
  }
)

这看起来如下：

无法在我闪亮的应用程序中使用反应元素

Unable to use reactive element in my shiny app

r

ggplot2

shiny