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)

Se observa que en la variable SEXO aparecen 1 y 2 como etiquetas

2. En este paso cambiaremos los numeros 1 y 2 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.