freq <- c(729,35,77,132,134,285,457,1401,1569)
amp <- c(  5, 5,10, 10, 10, 10, 10,  15, 25)
barplot(freq/sum(freq)/amp*100,space=0, width=amp, xaxt="n",yaxt="n")
abline(h=axTicks(2),v=axTicks(1), lty=3)
mtext("freq.% morti tra 0 e 100 anni nel 1951",side=3)
etic <- c("0","5","10","20","30","40","50","60","75","100")
etic2 <- c(0,0.5,1,2,3,4,5,6,7.5,10)*10
mtext(etic,side=1,at=etic2,cex=0.8 )
etic <- c("0","1","2","3")
etic2 <- c(0,1,2,3)
mtext(etic,side=2,at=etic2,cex=0.8 )