This is a motion chart I created using the life and life domain satisfaction data from the 2003 longitudinal study of Australian young people. The satisfaction measures cover the ages 16 to 22. [cf]Satisfaction Chart[/cf]
library (MASS) covar<-mvrnorm(250, c(0, 0), matrix(c(1, 0.00, 0.00, 1), 2, 2)) mydata<-data.frame(covar) names(mydata)<-c("sat", "mot") mydata$admin<- mydata$sat + mydata$mot mydata$admin2<- ifelse (mydata$admin >=quantile(mydata$admin, .85), "pass", "fail") library(ggplot2) qplot(sat,mot, data = mydata, color = admin2) Created by Pretty R at inside-R.org