Those ICE one trains will have power supply on every seat. Today I travelled with one of those. I killed time refining the recent traffic plot. This time I queried hits per minutes and had a closer look at the documentation of R's graphic commands:
a<-read.csv("˜/HitsPerMin.csv")
plot(a[,1],
col.sub="#555555",
axes=FALSE, type="n",
main="Free Penguin News Quake",
xlab="Minutes",
ylab="Requests",
sub="free-penguin.org requests per minute from Jan 2nd to Jan 8th 2006")
axis(1, label=FALSE)
axis(2)
points(a[,1],
pch=20,
col="#dddddd",
cex=.1)
lines(
smooth.spline(a[,1]),
col="#dd0000")
Commenting is closed for this article.