Here's one suggestion with ggplot2
library(plyr)
xy <- rdply(24, data.frame(x=0, y=rnorm(3,3), id=1:3))
library(ggplot2)
ggplot(xy, aes(x, y, colour=factor(id))) +
facet_wrap(~.n, scales="free", ncol=4) +
geom_point() +
annotate("segment", x=-0.1, xend=-0.1, y=-Inf, yend=+Inf) +
scale_x_continuous(breaks=NULL, expand=c(0,0), lim=c(-0.1, 0.1)) +
scale_y_continuous(expand=c(0,0.1)) +
theme_minimal() +
theme(strip.text.x = element_blank(),
axis.title.x = element_blank(),
axis.title.y = element_blank()) +
scale_colour_manual("", labels=c("Treatment 1", "Control", "Treatment 2"),
values=c( "darkblue", "gray65", "maroon4"))