"Camembert" sur un summary

Bonjour,

Je cherche à faire un camembert sur le summary d'un jeux de données,
Cependant après les commandes :

Code:

---

pie(table(summary(data))

---

Le diagramme ne respecte les proportions voir en PJ.

Comment faire pour obtenir quelquechose comme :

Code:

---

vect <- c(a = 4, b = 7, c = 5); pie(vect)

---

merci d'avance

Salut,

Pourquoi faire un table du summary?

Code:

---

pie(table(catstat))

---

tout simplement.


edit: ah c'était peut être déjà marqué en résolu quand j'ai répondu, pas fais attention