nomailrecord = read.table('/data/svn/eGovMon/experimental/FindPostListe/wordnomailrecord')
mailrecord = read.table('/data/svn/eGovMon/experimental/FindPostListe/wordmailrecord̈́')
postscript('wordsmailrecord.eps',horizontal=FALSE)
par(las=3,font=2,mex=2,mfrow=c(2,1));barplot(nomailrecord$norm*100,ylab="Pages without Mail Record",names.arg=as.character(nomailrecord$word), density = 100, col = gray.colors(50));barplot(mailrecord$norm*100,names.arg=as.character(mailrecord$word), density = 100, col = gray.colors(50),ylab="Pages with Mail Record")