Enhancing Your Shiny App Using Selectinput To Control Multiple Plot Elements