需要绘制图形，它们需要根据用户从下拉菜单或复选框中选择的内容而变化

Question

我有一个csv文件，其中有三列，state，salesman和totalsales。我已经分别为销售人员和州创建了下拉列表和复选框。我的问题是，当用户选择任何输入（来自下拉列表或复选框）时，我无法绘制图形。这些图表需要针对总销售额进行绘制，即当用户选择州时，需要绘制州与总销售额。此外，如果用户选择所有州或所有销售员，那么它也应该为此绘制图表。我已经尝试了两天但都失败了。请帮忙。

这是我的代码：

library(shiny)
require(ggplot2)
salesdata<-read.csv("C:\\Users\\Smriti\\Documents\\sampledata.csv")
#updated<-salesdata[order(salesdata$state),]
stateinfo<-table(unique(salesdata$state))
salesinfo<-data.frame(unique(salesdata$salesman))

ui <- fluidPage(

  titlePanel("Hello User"),

  fluidRow(
    column(3, 
           checkboxGroupInput("checkGroup", 
                            h3("States"), 
                            choices = stateinfo,
                            selected = 1)),
   fluidRow(
   column(3,
         dateRangeInput("dates", h3("Date range"))),

 fluidRow(
   column(3,
         selectInput("select", h3("Select a salesman"), 
                     choices = salesinfo)


 ))
 )))

 server <- function(input, output) {