if (FALSE) {
# Blank plot
p <- ggplot(data = mtcars, mapping = aes(colour = factor(cyl)))
# Add serial axes (returns a ggplot object)
g <- ggSerialAxes(p)
g
# An eulerian path of iris variables
# ordSeq <- PairViz::eulerian(4)
ordSeq <- c(1, 2, 3, 1, 4, 2, 3, 4)
ggSerialAxes(
ggObj = ggplot(data = iris, mapping = aes(colour = Species)),
axesLabels = colnames(iris)[ordSeq],
layout = "radial"
)
}
Run the code above in your browser using DataLab