# NOT RUN {
if(interactive()) {
# Modify the 'linkingGroup' and 'origin' of a hist object
l_ggplot(mtcars, mapping = aes(x = wt)) +
geom_histogram() +
interactivity(linkingGroup = "mt", origin = 2)
# linking with the histogram
l_ggplot(mtcars, mapping = aes(x = wt, y = hp)) +
geom_point(size = 4) +
interactivity(linkingGroup = "mt") +
facet_wrap(~cyl)
}
# }
Run the code above in your browser using DataLab