more interesting Shiny graph