Now that Gaddafi\'s 40+ years rule has ended, I want to construct a timeline graph of his period in power with those of other countries over the era. e.g US presidents, German c
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 the 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)) # Add some space to right
You could construct a set of sparse, irregular zoo or xts timeseries with one for each group of related events to annotate (US presidents in one, chancellors in another). The index column would be the date and the value would be the character annotation. You've then got your choice of charting libs. With Lattice you'd be able to split it into one panel per group.
Alternately you could just construct a single regular timeseries of the years he was in power with some bogus values for each data point. Plot that with a transparent line just to setup the base plot that you'd then add your annotations to. You could use abline or similar.
Another quicker way might be this http://www.inside-r.org/packages/cran/googleVis/docs/gvisAnnotatedTimeLine http://code.google.com/apis/chart/interactive/docs/gallery/annotatedtimeline.html#Example