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.

Vemos que efectivamente la variable SEXO muestra etiquetas de Hombre y Mujer

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.