Puedes realizar la grafica de histograma usando la libreria agricolae
aqui pongo en link
http://tarwi.lamolina.edu.pe/~fmendiburu/
download agricolae
library(agricolae)
x<-c(4990, 7002, 7558, 7352, 7943, 7979, 9333, 8209, 8393, 6425,
9364, 8624, 10651, 8868, 9417, 8874, 10962, 10743, 11878, 9867,
7838, 11876, 12212, 8233, 6360, 4193, 7416, 5246, 6509, 4895,
6775, 7894, 5980, 5318, 7392, 7894, 3469, 1468, 3524, 5267, 5048,
1016, 5605, 8793, 3475, 1651, 5514, 9718)
h<-graph.freq(x )
> summary(h )
> plot(h,col=14)
> stat.freq(h )
$variance
[1] 7238594
$mean
[1] 7180.74
$median
[1] 7528.25
$mode
[- -] mode
[1,] 7414 9013.5 8053.8
PARA REALIZAR EL GRAFICO PUEDES MODIFICARLO
#grafico de histograma
plot(h,col=colors()[483])
text(1500,15,as.expression(substitute(sigma==des,list(des=sqrt(stat.freq(h )$variance)))))
text(1500,13,as.expression(substitute(mu==prom,list(prom=stat.freq(h )$mean))))
text(h$mids,h$counts+0.5,h$counts)
Cualquier consulta mi correo
ismael_jgr1@hotmail.com