[R-br] Colocar linha unindo os pontos médio dos retangulos. OGIVA

Construir  2 códigos bem simples.... f=c(0,2,11,18,10,9)# Frequencias absolutas names(f)=c("147","155","163","171","179","187") # Pontos médios das classes barplot(f,space=0,xlab="Classes", ylab="Frequência absoluta",main="Histograma") # Histograma fa=c(0,2,13,31,41,50) # Frequencia acumulada names(fa)=c("147","155","163","171","179","187") # Pontos médios das classes barplot(fa,space=0,xlab="Classes", ylab="Frequência acumulada",main="Ogiva") Gostaria de colocar uma linha unido os pontos médio dos topos do retângulos. Tentei points mas não consegui. Se alguem puder ajudar ficarei agradecido.   André Oliveira Souza