Primero insertamos los valores de la frecuencia absoluta \(f_{i}\)
f=c(3,8,12,14,10,2,1)
Luego insertamos las etiquetas para cada frecuencia absoluta
etiquetas=c("[150, 155>","[155, 160>","[160, 165>","[165, 170>","[170, 175>","[175, 180>","[180, 185>")
y finalmente generamos el gráfico de sectores
pie(f, etiquetas)
Para enriquecer el diagrama de sectores podemos aumentar mas parámetros en la función pie(), para lo cual primero calculamos la frecuencia relativa * 100 (en caso que ya se tenga esos resultados es solo generar una variable con esos valores)
porcentajes=round(f*100/sum(f),1)
ahora con esos resultamos generamos el diagrama de sectores con la leyenda respectiva
pie(f, porcentajes, main="Porcentaje de alumnos por estatura", col = rainbow(length(f)))
legend("topright", c("[150, 155>","[155, 160>","[160, 165>","[165, 170>","[170, 175>",
"[175, 180>","[180, 185>"), cex = 0.8, fill = rainbow(length(f)))