if(interactive()) {
loonPlot <- with(iris, l_plot(Sepal.Length, Sepal.Width))
loonPlot['color'] <- iris$Species
loonPlot['selected'] <- iris$Species == "versicolor"
l_scaleto_selected(loonPlot)
loonPlot['showGuides'] <- TRUE
plot(loonPlot)
}
Run the code above in your browser using DataLab