Aligned time series plots in R

joined.csv

plotAlignGraphs.r

#!/usr/bin/env Rscript
library(ggplot2)
library(gridExtra)
library(scales)

# data in columns, joined on date field
x<-read.table("./joined.csv", header=TRUE, sep=",")
x$date = as.POSIXct(x$time)
summary(x)

# Make some times series plots
p1 <- ggplot(data=x) +
	geom_line(aes(date, twcount), color="red") + 
	opts(title="Twitter", axis.title.x = theme_blank())  
p3 <- ggplot(data=x) +
	geom_line(aes(date, wpcccount + wpoccount), color="red") + 
	opts(title="Wordpress Comments", axis.title.x = theme_blank()) 
p4 <- ggplot(data=x) +
	geom_line(aes(date, ngcount), color="red") + 
	opts(title="Newsgator")+ xlab("Time (UTC)") 

png(filename = "./timelines_noalign.png", width = 550, height = 750, units = 'px', res = 100)
print(
    grid.arrange(p1, p3, p4 ,ncol = 1, 
	main=textGrob("Earthquake - Mexico - 20 March 2012", gp=gpar(fontsize=14, lineheight=18)) )
)

# Fix it by manually formatting the y-tick labels
lalb <- function(x) {
    lx <- sprintf('%04d', x) # Format the strings as HH:MM:SS
    lx <- gsub('^000', '   ', lx)            # Remove leading 00: if present
    lx <- gsub('^00', '  ', lx)              # Remove leading 00: if present
    lx <- gsub('^0', ' ', lx)                # Remove leading 0 if present
}

# Unfortunately, do to proportional spaced fonts?, spaces dont' quite do ti.  Add a manual adjustment.
p1 <- ggplot(data=x) +
	geom_line(aes(date, twcount), color="red") + 
	opts(title="Twitter", axis.title.x = theme_blank(), axis.title.y = theme_text(hjust=8)) +
	ylab("") + scale_y_continuous(labels = lalb) 
p3 <- ggplot(data=x) +
	geom_line(aes(date, wpcccount + wpoccount), color="red") + 
	opts(title="Wordpress Comments", axis.title.x = theme_blank()) +
	ylab("") + scale_y_continuous(labels = lalb) 
p4 <- ggplot(data=x) +
	geom_line(aes(date, ngcount), color="red") + 
	opts(title="Newsgator")+ xlab("Time (UTC)") + 
	ylab("") + scale_y_continuous(labels = lalb) 

png(filename = "./timelines_align.png", width = 550, height = 750, units = 'px', res = 100)
print(
    grid.arrange(p1, p3, p4 ,ncol = 1, 
	main=textGrob("Earthquake - Mexico - 20 March 2012", gp=gpar(fontsize=14, lineheight=18)) )
)
dev.off()