# Per aver solo un istogramma in cui la prima classe parte da 0 posso fare:
freq <- c(729,35,77,132,134,285,457,1401,1569)
amp <- c(  5, 5,10, 10, 10, 10, 10,  15, 25)
# Le densità di freq. sono freq/sum(freq)/amp:
barplot(freq/sum(freq)/amp*100,space=0, width=amp)
abline(h=axTicks(2),v=axTicks(1), lty=3)
title("freq.% morti tra 0 e 100 anni")
axis(1,pos=0,label=TRUE)

# Per avere la media, presi i centri degli intervalli, posso fare:
cinterv <- c(2.5, 7.5, 15, 25, 35, 45, 55, 67.5 87.5)
dati <- rep(cinterv, freq); mean(dati)
[1] 58.32019
# SE il primo intervallo NON ha come estremo sinistro 0 posso
# aggiungere la classe [0,5), o [0,A) se il primo estremo invece
# che 5 è A, con frequenza 0 e aggiungere a barplot xlim=c(A,...):
A <- 5
freq <- c(0, 35,77,132,134,285,457,1401,1569)
amp <-  c(A,  5,10, 10, 10, 10, 10,  15, 25)
barplot(freq/sum(freq)/amp*100,space=0, width=amp,xlim=c(A,100))
abline(h=axTicks(2),v=seq(10,100,10), lty=3)
title("freq.% morti tra 5 e 100 anni")
axis(1,pos=0)