1 📊 Análisis Estadístico

Autor: Julio Vergara Fecha: 09/10/2026

🔍 Este análisis cubre: datos individuales, tabla de frecuencias, resumen estadístico, gráfico de caja y bigotes, e histograma.

2 📁 Mis datos

Datos21 <- c(38, 15, 10, 12, 62, 46, 25, 56, 27, 24, 23, 21,
              20, 25, 38, 27, 48, 35, 50, 65, 59, 58, 47, 42, 37, 35,
              32, 40, 28, 14, 12, 24, 66, 73, 72, 70, 68, 65, 54, 48,
              34, 33, 21, 19, 61, 59, 47, 46, 30, 30)
Datos21
##  [1] 38 15 10 12 62 46 25 56 27 24 23 21 20 25 38 27 48 35 50 65 59 58 47 42 37
## [26] 35 32 40 28 14 12 24 66 73 72 70 68 65 54 48 34 33 21 19 61 59 47 46 30 30

3 📋Tabla de Frecuencias individuales

library(summarytools)
## Warning in fun(libname, pkgname): couldn't connect to display ":0"
## system might not have X11 capabilities; in case of errors when using dfSummary(), set st_options(use.x11 = FALSE)
datos21<-freq(Datos21)
datos21
## Frequencies  
## Datos21  
## Type: Numeric  
## 
##               Freq   % Valid   % Valid Cum.   % Total   % Total Cum.
## ----------- ------ --------- -------------- --------- --------------
##          10      1      2.00           2.00      2.00           2.00
##          12      2      4.00           6.00      4.00           6.00
##          14      1      2.00           8.00      2.00           8.00
##          15      1      2.00          10.00      2.00          10.00
##          19      1      2.00          12.00      2.00          12.00
##          20      1      2.00          14.00      2.00          14.00
##          21      2      4.00          18.00      4.00          18.00
##          23      1      2.00          20.00      2.00          20.00
##          24      2      4.00          24.00      4.00          24.00
##          25      2      4.00          28.00      4.00          28.00
##          27      2      4.00          32.00      4.00          32.00
##          28      1      2.00          34.00      2.00          34.00
##          30      2      4.00          38.00      4.00          38.00
##          32      1      2.00          40.00      2.00          40.00
##          33      1      2.00          42.00      2.00          42.00
##          34      1      2.00          44.00      2.00          44.00
##          35      2      4.00          48.00      4.00          48.00
##          37      1      2.00          50.00      2.00          50.00
##          38      2      4.00          54.00      4.00          54.00
##          40      1      2.00          56.00      2.00          56.00
##          42      1      2.00          58.00      2.00          58.00
##          46      2      4.00          62.00      4.00          62.00
##          47      2      4.00          66.00      4.00          66.00
##          48      2      4.00          70.00      4.00          70.00
##          50      1      2.00          72.00      2.00          72.00
##          54      1      2.00          74.00      2.00          74.00
##          56      1      2.00          76.00      2.00          76.00
##          58      1      2.00          78.00      2.00          78.00
##          59      2      4.00          82.00      4.00          82.00
##          61      1      2.00          84.00      2.00          84.00
##          62      1      2.00          86.00      2.00          86.00
##          65      2      4.00          90.00      4.00          90.00
##          66      1      2.00          92.00      2.00          92.00
##          68      1      2.00          94.00      2.00          94.00
##          70      1      2.00          96.00      2.00          96.00
##          72      1      2.00          98.00      2.00          98.00
##          73      1      2.00         100.00      2.00         100.00
##        <NA>      0                               0.00         100.00
##       Total     50    100.00         100.00    100.00         100.00

4 📈Resumen de datos

5 📊Histograma

library(agricolae)
h<-graph.freq(Datos21, col=colors()[75]) #[86]

#* Tabla agrupada*

summary(h)
library(DT)
tabla_freq <- summary(h)
datatable(tabla_freq, options = list(pageLength = 5), caption = "Tabla interactiva de frecuencias")

📌 Nota: El intervalo con mayor frecuencia es [19-28] años, con 11 personas (22% del total).


5.1 ✅ Conclusión

El análisis descriptivo de las edades de las 50 personas (Datos21) mostró valores entre 10 y 73 años, con un rango de 63 años, organizados en 7 intervalos de clase de amplitud 9 según la regla de Sturges.

El grupo más numeroso es el de 19 a 28 años, con 11 personas (22 % de la muestra), que corresponde a la barra más alta del histograma. Los demás intervalos tienen entre 5 y 8 personas, por lo que el resto de las edades se reparte de forma relativamente uniforme.

La media fue de 39.82 años y la mediana de 37.5, con un primer cuartil de 25 y un tercer cuartil de 55.5. Como la media queda por encima de la mediana, la distribución presenta una leve asimetría hacia la derecha: hay algunas edades altas que jalan el promedio hacia arriba. Además, la mitad central de los datos abarca unos 30 años (de 25 a 55.5), lo que indica una dispersión considerable.

Este ejercicio permitió resumir y visualizar el comportamiento de las edades con tablas de frecuencia, medidas de tendencia central y un histograma, aplicados con el software R.