library(lattice)
parallelplot(~iris, group = Species, data = iris, horizontal.axis = FALSE, auto.key = TRUE)