2010/11/20 Marcin Gomulka <mrgomel@gmail.com>

> I'd rather do this with a dedicated
>  package function ( like axis() ).


Probably you have to write your own function, or tune up manually plot.

plot(the_data$eventtime, abs(the_data$impact), type="h", frame.plot=FALSE,
axes =
FALSE, xlab="",ylab="", col="grey",lwd=2,ylim=c(-2,2),xlim=c(1913,2005))
text(the_data$eventtime,the_data$impact+.1, the_data$label,cex=.6,adj=1)
lines(x=c(1914,2003),y=c(0,0),lwd=2,col="blue",t="l")
axis(1,the_data$eventtime,pos=0,cex.axis=.5,padj=-2,tck=-.01)
-- 
Miłego dnia

	[[alternative HTML version deleted]]

