Question

我正在创建一个 ShinyApp ，用于对各种工作人员进行年度绩效评估，并希望根据所选输入显示一个或多个工作人员（W）的绩效（salespermonth）。但是，当在sidebarPanel中选择了多个“W”时，我遇到了相同“W”的值更改。有谁知道为什么？

data.b的反应函数似乎有问题，更确切地说是ID==input$ID的部分。

data.frame样本（ID从1-10开始）：

  ID Calendartime timewithfirm salespermonth cumm.sales
1  1   2006-01-01            3           800        800
2  1   2006-02-01            3           300       1100
3  1   2006-03-01            3           150       1250
4  1   2006-04-01            3           200       1450
5  1   2006-05-01            3           350       1800
6  1   2006-06-01            3           100       1900

ui.R

library(shiny)
shinyUI(pageWithSidebar( 
headerPanel(title=h1("Worker Performance Assessment", align="center")),

sidebarPanel(

uiOutput("chooseW"),
dateRangeInput("daterange", label = h3("Date range"),start = "2006-01-01",end   = "2006-12-01",format = "yyyy/mm/dd", separator="-"),  
submitButton(text="Update!")
) ,
mainPanel(
plotOutput("salesplot")
)

) 
)

server.R

library(shiny)
library(ggplot2)
library(scales) # for formatting date scales in ggplot

shinyServer(function(input, output) {

output$chooseW <- renderUI({
IDs<- dataframe$ID
selectInput("ID", label=h3("Choose a Worker"), IDs, 1 , multiple = TRUE)
 }) 

 # reactive function for plot
 data.b = reactive({
 b= subset(dataframe,Calendartime %in% (input$daterange[1]:input$daterange[2]) & ID == input$ID)
  return(b)
  })

 output$salesplot <- renderPlot({
 cc<- data.b() 
 q= ggplot(cc, aes(x=Calendartime,y=salespermonth, group=ID, colour=ID)) + 
  geom_line() +scale_x_date(breaks = date_breaks("1 month"),labels = date_format("%b"))
print(q)

})   
})

Answer 1

你是对的。问题与ID == input$ID一致。您只需将其更改为server.R中子集行中的ID %in% input$ID即可。然后问题就会解决。这里的要点是input$ID不仅仅是一个值，而是长度为＆gt;的向量。 1，如果您有多个选择。

ShinyApp：当选择多个输入时，为什么结果会在ggplot中发生变化？

1 个答案: