R commands:

ptime <- function(x, fmt="YYYY-mm-dd HH:MM:SS") as.POSIXct(x, format=fmt)
init.data <- function(x)
{
	x$time <- ptime(x$time)
	x$ts <- as.numeric(x$time)
	x <- x[order(x$ts),]
	x$oid <- ordered(x$id, levels=unique(x$id))
	x$noid <- as.numeric(x$oid)
	x
}
plot.olcf <- function()
{
    data <- read.csv("olcf-49-events.csv")
    olcf <- init.data(data)
    olcf$t <- olcf$ts - min(olcf$ts)
    xyplot(event ~ t | noid, olcf, subset = noid < 50, type = c('b', 'g'),main="CEDPS Data Challenge #3: OLCF Event Examination\nThe First 49 OLCF Files Transferred, Run #12")
}