library(readxl)
DATOS2024 <- read_excel("DATOS2024.xls")
DATOS2024
table_sexo<-table(DATOS2024$SEXO)
table_sexo
## 
##  F  M 
## 81 99
pie_1<-pie(table_sexo, col=c("lightblue","pink"),
        main="Estudio de Pastel.\n Distribución por sexos.", labels = table_sexo)

barp<-barplot(table_sexo, col = rainbow(5), border = "darkred",main = "Gráfico de Barras",sub = "UTB",xlab = "SEXO", ylab = "Conteo")
text(barp, table_sexo-30, labels = table_sexo)

table_sexo2<-round(table(DATOS2024$SEXO)/121*100)
table_sexo2
## 
##  F  M 
## 67 82
barp2<-barplot(table_sexo2, col = rainbow(5), border = "darkred",main = "Gráfico de Barras",sub = "UTB",xlab = "SEXO", ylab = "Porcentaje")
text(barp2, table_sexo2-10, labels = table_sexo2)

pie_1<-pie(table_sexo2, col=c("lightblue","pink"),
        main="Estudio de Pastel.\n Distribución por sexos.", labels = table_sexo2)

table_3<-table(DATOS2024$SEXO, DATOS2024$CURSO)
table_3
##    
##     ESTADISTICA I PROBABILIDAD
##   F            62           19
##   M            61           38
table_4<-round(table(DATOS2024$SEXO, DATOS2024$CURSO)/121*100)
table_4
##    
##     ESTADISTICA I PROBABILIDAD
##   F            51           16
##   M            50           31
barp4<-barplot(table_4,
        main = "Gráfico de barras CURSO vs SEXO en porcentajes",
        xlab = "CURSO", ylab = "Frecuencia",
        col = c("pink", "blue"),
        legend.text = rownames(table_4),
        beside = TRUE) # Barras agrupadas
text(barp4, table_4-5, labels = table_4)

table_5<-table(DATOS2024$ESTRATO, DATOS2024$CURSO)
table_5
##      
##       ESTADISTICA I PROBABILIDAD
##   I              36           10
##   II             36           24
##   III            29           16
##   IV             13            5
##   V               4            2
##   VI              5            0
table_6<-table(DATOS2024$ESTRATO, DATOS2024$SEXO)
table_6
##      
##        F  M
##   I   17 29
##   II  32 28
##   III 18 27
##   IV   8 10
##   V    3  3
##   VI   3  2

#Ensayo de laboratorio 11

El aprendizaje de la estadística descriptiva y su implementación en RStudio

En el ámbito académico, la estadística descriptiva se presenta como una herramienta fundamental para organizar, analizar y representar datos de manera comprensible. A través del uso de software como RStudio, los estudiantes universitarios tienen la oportunidad de explorar y aplicar conceptos estadísticos de manera práctica, lo que enriquece su comprensión y habilidades analíticas. Este ensayo reflexiona sobre los aprendizajes obtenidos al trabajar con códigos en RStudio para el análisis de datos.