Shiny App: How to use facet_wrap function to make selectInput to be worked?

Question

I\'d like to use a select input to allow to view separate plotting panels for each species, with each plot panel on the same scale. Below R code is what I\'ve done almost ev