# NOT RUN {
p <- ggplot(iris,
mapping = aes(
Sepal.Length = Sepal.Length,
Sepal.Width = Sepal.Width,
Petal.Length = Petal.Length,
Petal.Width = Petal.Width
)
) +
geom_path(alpha = 0.2) +
coord_serialaxes(scaling = "variable")
p + geom_quantiles(colour = c("red", "green", "blue"),
quantiles = c(0.25, 0.5, 0.75),
size = 2)
# }
Run the code above in your browser using DataLab