Neat! Do you have the data posted anywhere? I'm not sure my code produces much of an improvement on yours, but you can get some nice results with ggplot2: libr

Neat! Do you have the data posted anywhere? I'm not sure my code produces much of an improvement on yours, but you can get some nice results with ggplot2: library(ggplot2) x <- Sys.time() + 60 * (1:2400) y <- rpois(2400, 50 * (sin(seq(-4 * pi, 4 * pi, len=2400)) + 1.1)) qplot(as.POSIXct(x), y, geom=c("point", "smooth"), xlab="time", ylab="count")