# Seus supostos dados:

   dados <- c(143,151,151,159,160,161,162,163,164,164,165,165,166,166,167,167,
           168,169,169,169,170,170,171,172,173,173,173,173,174,174,174,174,
           175,176,177,178,179,180,181,182,182,182,183,184,185,186,187,188,
               189,190,191)

# Histograma das frequências absolutas:

   par(mfrow=c(1,2))
   Hfi = hist(dados,nclass=6,col="gray",xlab="Classes",ylab="Frequência absoluta",main="Histograma")
   lines(c(min(Hfi$breaks),Hfi$mids,max(Hfi$breaks)),c(0,Hfi$counts,0),type="l")

# Histograma das frequências acumuladas:

   cumhist <- function(dados, plot=TRUE, ...)
{
      h <- hist(dados, plot=FALSE, ...)
    h$counts <- cumsum(h$counts)
    h$density <- cumsum(h$density )
    h$itensities <- cumsum(h$itensities)

       if(plot)
       plot(h,col="gray",xlab="Classes",ylab="Frequência acumulada",main="Ogiva")
       h
   }

   Hfa <- cumhist(dados,nclass=6)
   lines(c(min(Hfa$breaks),Hfa$mids,max(Hfa$breaks)),c(0,Hfa$counts,0),type="l")

Att.
André Barbosa Ventura da Silva

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