Histograma de frecuencias con Rbase

# Histograma frecuencias con R base completo

# datos: registro de edad de 50 estudiantes.
# 
x<- c(  4.30,  6.50,    7.20,   7.70,    5.00,  7.00,    8.70,  8.80,   2.40,   10.30,
                8.00,  0.90,    7.80,   8.00,   12.30,  3.90,    0.90,  4.90,   8.00,    3.80,
                3.70, 12.60,    2.00,   4.60,    3.80,  8.40,    4.00,  3.00,   1.40,    6.60,
                2.60, 10.30,    4.20,   2.20,    2.00,  1.00,   10.00,  3.30,   1.90,    1.60,
                15.70,  6.20,   4.80,   3.20,    4.40,  3.90,    1.10,  4.40,   4.80,    4.30)

n <-length(x) ; n                           # Tamañodemuestra

## [1] 50

min(x) ; max(x)                             # valor máximo y mínimo

## [1] 0.9

## [1] 15.7

R= max(x) - min(x) ;R                      # rango

## [1] 14.8

m <- round(1+3.322*log10(n));m              # númemro de clases

## [1] 7

c<-R/m ; c                                  # amplitud dela clase

## [1] 2.114286

# la información en listas de la distribución de frecuencias

xf <- hist(x,plot = F,right = F, breaks = seq(0,16,2));xf

## $breaks
## [1]  0  2  4  6  8 10 12 14 16
## 
## $counts
## [1]  7 13 11  7  6  3  2  1
## 
## $density
## [1] 0.07 0.13 0.11 0.07 0.06 0.03 0.02 0.01
## 
## $mids
## [1]  1  3  5  7  9 11 13 15
## 
## $xname
## [1] "x"
## 
## $equidist
## [1] TRUE
## 
## attr(,"class")
## [1] "histogram"

# con la informacion obtenida en xf se hace el histograma personalizado

# histograma con rbase ( x es la variable como vector)

hist(x,                                                      # vector de datos
     plot = T,                                      # muestra gráfico de barras
     breaks= seq(0,16,2),              # los puntos de corte  : seq(min,max,c)
     right = F,                                        # intervalos tipo:[...)
     xlab = "Edad (años)",                                    # etiqueta eje x
     ylab="Frecuencia",                                       # etiqueta eje y
     col= "lightsalmon",                                      # color de barras
     main= "Histograma de los datos de las edades 
            de los estudiantes \n (n=50)",             # título del histograma
     ylim = c(0,14),                             # ajustando escala frecuencias 
     xaxp= c(0,16,8),                             # ajustar el escalade eje x 
     labels = T)                                    #  presentar las frecuencias