YBS

Use aes outside the geom call to remove the extra unwanted legend in ggplotly. Consider, the basic graph p

In R Shiny, use `plotly_json()/style()` to suppress unwanted legends as mentioned in [#842](https://github.com/ropensci/plotly/issues/842). In the above example, define `p3

You can delete the unwanted legends as shown below ``` df