if(interactive()) {
# set active layer
l_ggplot(mtcars, aes(mpg, wt, shape = factor(cyl))) +
geom_point(colour = "black", size = 4.5) +
geom_point(colour = "pink", size = 4) +
geom_point(aes(shape = factor(cyl))) +
# only show manual transmission cars
# in the second interactive layer
active(active = mtcars$am == 1,
activeGeomLayers = 2)
# Then, click the `reactivate` button on loon inspector
# to display all interactive points
}
Run the code above in your browser using DataLab