if (FALSE) data("iris")
openPage(FALSE, layout = "table1x2")
#brushing example
#Hold Shift pressed and select a group of point on one of the charts
lc_scatter(dat(
x = iris$Sepal.Length,
y = iris$Petal.Length,
colourValue = iris$Species,
on_marked = function() {
mark(getMarked("A1"), "A2")
}
), "A1")
lc_scatter(dat(
x = iris$Sepal.Width,
y = iris$Petal.Width,
colourValue = iris$Species,
on_marked = function() {
mark(getMarked("A2"), "A1")
}
), "A2")
Run the code above in your browser using DataLab