# NOT RUN {
e <- CO2 %>%
group_by(Type) %>%
e_charts(conc) %>%
e_scatter(uptake)
e %>%
e_legend_unselect("Quebec")
e %>%
e_legend_unselect("Quebec", btn = "btn") %>%
e_button("btn", "Quebec")
# }
Run the code above in your browser using DataLab