Se va a trabajara en una base de datis antropométricos recolectando en un asilo, donde se recolectaron diferentes medidas antropométricascomo peso, talla, entre otros. la muestra contiene datos de tanto hombres como de muejeres
setwd("C:/Users/SALON ENAH 08.ZAP7100MJ07ED4X/Downloads")
library(pacman)
p_load(readxl,ggplot2) ## Uso pacman para abrir paquetes
base2 <- read_excel("Personas edad mayor.xlsx")
#convertimos sexo a factor
base2$sexo <- factor(base2$sexo,
levels= c(1,2),
labels = c("Mujeres","Hombres"))
table(base2$sexo)
##
## Mujeres Hombres
## 46 19
podemos observar que la muestra esta compuesta por 19 hombres y 46 mujeres.
ggplot(base2, aes(x = sexo, y = peso, fill = sexo)) +
geom_boxplot(alpha = 0.7) +
labs(title = "Distribución del peso por sexo",
x = "Sexo",
y = "Peso (kg)") +
scale_fill_manual(values = c("Mujeres" = "lightpink", "Hombres" = "lightblue")) +
theme_minimal()