# website with cool R graphics: # http://addictedtor.free.fr/graphiques/RGraphGallery.php?graph=81 ## OLD FAITHFUL, default style with(faithful,{ xdata <- faithful$waiting ydata <- faithful$eruptions*60 len=length(xdata) split=180 lag=ydata[1:len-1] colours <- lag colours[lag>=split] <- "red" colours[!(lag>=split)] <- "blue" xdata=xdata[2:len] ydata=ydata[2:len] len=length(xdata) plot(ydata~xdata, col=colours, ylab="Duration (sec)", xlab="Time till next eruption (min)", main="Old Faithful Eruptions") abline(h=split, lty=2) }) ### OLD FAITHFUL, Tufte style source("http://addictedtor.free.fr/graphiques/sources/source_81.R") # BOXPLOT, BEANPLOTS and JITTER N<-1000 x<-sample(LETTERS[1:5], N, replace=TRUE) y<-rnorm(N) library(beanplot) dd<-data.frame(x=x,y=y) boxplot(y~x) beanplot(y~x) xyplot(y~x, jitter.x=TRUE, data=dd)