This is a simple task for ggplot :
Create some data:
x <- data.frame( country = rep(c("USA", "Germany"), each=2), boss = c("Nixon", "Ford", "Brandt", "Schmidt"), start = as.Date(c("1969-01-20", "1974-08-09", "1969-10-22", "1974-05-16")) )
Make a plot:
library(ggplot2) ggplot(x, aes(x=start, y=country)) + geom_line() + geom_point() + geom_text(aes(label=boss), hjust=0, vjust=0) + xlim(c(min(x$start), max(x$start)+5*365))

Andrie
source share