ACTIVIDAD

Teniendo en cuenta el ejemplo anterior de edades del grupo en general y con la base de datos que se organizo de la caracterización del grupo. usted debe realizar esta misma actividad pero con dos vectores, uno con las edades de mujeres llamado (EdadesM) y otro con las edades de los hombres llamado (EdadesH), realizar el respectivo análisis con cada uno de los resultados de las medidas halladas; por otro lado interprete los dos graficos siguientes como parte inicial de la exploración.

Grafico de sectores o torta el cualitativa (sexo)

slices <- c(8,5)
lbls <- c("Hombres", "Mujeres")
pct <- round((slices/sum(slices)*100),2)
lbls <- paste(lbls, pct) 
lbls <- paste(lbls,"%",sep="") 
pie(slices,labels = lbls, col=rainbow(length(lbls)),
    main=" Grafico: 1 Proporción de Hombres y Mujeres en Análisis de Datos I")

Se carga la Base de datos a utilizar

library(readxl)
BaseGrupo <- read_excel("BaseGrupo.xlsx")

Grafico de cajas y bigotes para la variable edad en mujeres y hombres del grupo de Análisis de Datos I.

Se codifica la variable Sexo para mayor tratamieno de la base

BaseGrupo$Sexo <- factor(BaseGrupo$Sexo,labels = c("Mujeres","Hombres"))

Se cargan las librerias o paquetes para poder relizar el grafico

library(ggplot2)

Se procede al código para dicho grafico.

bp6 <- ggplot(BaseGrupo, aes(x = factor(Sexo), y = Hermanos, fill = Sexo)) 
bp6 + geom_boxplot(show.legend = F) + scale_fill_brewer(palette = "Blues")+
  xlab(NULL)+
  ylab("Edad")+
  ggtitle("Gráfico 2: Caja y bigotes para la edad, de acuerdo al sexo")

BaseGrupo$Sexo <- factor(BaseGrupo$Sexo,labels = c("0","1"))