Please help with a code to correctly plot filtered data in R shiny app. I am trying to plot the averages for ALB,ALP,ALT,AST,BIL,CHE,CHOL,CREA,GGT$,$PROT for the selection chosen by the user. For example if the user chose age range $33-35,$ category$=$ O$,$ and male, I want the barplot to display the averages ALB,ALP,ALT,AST,BIL,CHE,CHOL,CREA,GGT$,$PROT for age range $33-35,$ category$=$ O$,$ and male.

ui $<-$ fluidPage$($ titlePanel$("$Mo Importnat data"$),$ sidebarLayout$($ sidebarPanel$($ sliderInput$("$range$",$ "Range:",$$ min $=$ min$($d$1$$Age$),$ max $=$ max$($d$1$$Age$),$ step$=1,$value $=$ c$(32,39)),$ selectInput$($inputId $=$ "Cat", $$ "Category:", $$ choices $=$ levels$($d$1$$Category$)),$ radioButtons$("$S$",$ "Choose Male or Female:", $$ choices $=$ levels$($d$1$$Sex$)),),$ mainPanel$($ textOutput$("$text$1"),$ plotOutput$("$carPlot$"),)))$server $<-$ function$($input$,$ output$)\{$ output$carPlot $<-$ renderPlot$(\{$ plot$2<-$d$1\%>\%$ select$($Category$,$Age,Sex,ALB,ALP,ALT,AST,BIL,CHE,CHOL,CREA,GGT$,$PROT$)\%>\%$filter$($Category$==$input$Cat$)\%>\%$filter$($Sex$==$input$S$)\%>\%$filter$($Age$>=$input$range$[1]$ & Age$<=$input$range$[2])$ TAR $<-$ ggplot$($tabacouni$,$ aes$($x$=$Year, y$=$Data$\_$Value,size$=$Sample$\_$Size$))$ show$($TAR $+$ geom$\_$point$($aes$($color$=$Gender$))+$ scale$\_$x$\_$continuous$($name $=$ "Year",breaks$=$input$range$[1]$:input$range$[2])+$ scale$\_$y$\_$continuous$($name$=$"Percentages"$)+$ scale$\_$color$\_$manual$($values$=$c$("$pink$",$"blue","green"$)))\})$