# NOT RUN {
# lower quantile, median and upper quantile
p <- ggplot(iris, mapping = aes(Sepal.Length = Sepal.Length,
Sepal.Width = Sepal.Width,
Petal.Length = Petal.Length,
Petal.Width = Petal.Width)) +
geom_serialaxes(stat = "dotProduct") +
geom_serialaxes_quantile(stat = "dotProduct",
quantiles = c(0.25, 0.5, 0.75),
colour = c("red", "blue", "green"), size = 2)
p
# }
Run the code above in your browser using DataLab