Cambio de etiquetas numeradas a nombres de la etiquetas

1. En primer lugar se deba cargar la Data

library(readxl)
datos <- read_excel("Diabetes.xlsx")
## New names:
## • `HTA` -> `HTA...12`
## • `HTA` -> `HTA...24`
head(datos)

2. Mapea los valores de la variable Sexo a ‘Hombre’ y ‘Mujer’

datos$Sexo <- factor(datos$Sexo, levels = c(1, 2), labels = c("Hombre", "Mujer"))

Luego de crear las etiquetas se verifica en la data para ver si en realidad se hizo el cambio.

head(datos)

3. Luego lo grafico para observar como se ve el comportamiento.

library(ggplot2)

ggplot(datos, aes(x = Sexo, fill = Sexo)) +
  geom_bar() +
  geom_text(stat='count', aes(label=..count..), vjust=-0.5) +  # Agrega etiquetas
  labs(title = "Distribución de Género en la Base de Datos Diabetes",
       x = "Género",
       y = "Cantidad") +
  scale_fill_manual(values = c("blue", "pink")) +
  theme_minimal()
## Warning: The dot-dot notation (`..count..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(count)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.