Olá chará!
Acredito que seu problema seje resolvido com as seguintes linhas de comandos:
# 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 <- c
umsum(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