# ==========================================
# GRAFICO CIRCULAR: NIÑOS ENCUESTADOS
# ==========================================

# Datos de la encuesta
edades <- c("6 años", "7 años", "8 años", "9 años",
            "10 años", "11 años", "12 años")

frecuencia <- c(3, 7, 9, 3, 8, 5, 5)

# Calcular porcentajes
total <- sum(frecuencia)
porcentaje <- frecuencia / total * 100

# Crear etiquetas con porcentajes
etiquetas <- paste0(edades, "\n",
                    sprintf("%.2f", porcentaje), "%")

# Colores solicitados
colores <- c("red", "blue", "yellow", "green",
             "skyblue", "purple", "orange")

# Crear gráfico circular
pie(
  frecuencia,
  labels = etiquetas,
  col = colores,
  main = "Niños encuestados",
  clockwise = TRUE,
  border = "white",
  init.angle = 90,
  cex = 0.9
)

# Agregar leyenda
legend(
  "topright",
  legend = edades,
  fill = colores,
  title = "Edad de los niños",
  cex = 0.8,
  bty = "n",
  inset = c(0.02, 0.02)
)

# Mostrar total de encuestados
mtext(
  paste("Total de encuestados:", total),
  side = 1,
  line = 2,
  cex = 0.9
)