library(ggplot2)
x <- read.csv("clients.csv")
x$date <- as.Date(x$date)
# Remove outlier point at 2011-03-06.
x <- x[x$date >= as.Date("2011-09-01"), ]
p <- ggplot(x[x$node=="relay", ], aes(date, clients, group=1))
p <- p + geom_line() + facet_grid(country ~ ., scales="free_y")
ggsave("relays-all.pdf", p, width=11, height=120, limitsize=FALSE)