Comment combiner une parcelle et de la légende?

J'essaie de joindre une légende à une parcelle dans R.
J'ai essayé le code suivant ( tiré de http://www.harding.edu/fmccown/r/ )

# Define cars vector with 5 values
cars <- c(1, 3, 6, 4, 9)

# Define some colors ideal for black & white print
colors <- c("white","grey70","grey90","grey50","black")

# Calculate the percentage for each day, rounded to one 
# decimal place
car_labels <- round(cars/sum(cars) * 100, 1)

# Concatenate a '%' char after each value
car_labels <- paste(car_labels, "%", sep="")

# Create a pie chart with defined heading and custom colors
# and labels
pie(cars, main="Cars", col=colors, labels=car_labels,
   cex=0.8)

# Create a legend at the right   
legend(1.5, 0.5, c("Mon","Tue","Wed","Thu","Fri"), cex=0.8, 
   fill=colors)

Toutefois, cela ne fonctionne pas vraiment bien. Après la tarte(voitures, main="Voitures", col=les couleurs, les étiquettes=car_labels,cex=0.8) ligne , l'intrigue est montré sans légende 🙂 .......Tous les exemples que je vois sur Internet semble avoir le légende fonction après le tracé de la fonction de sorte qu'il semble très bizarre..............

Lorsque j'essaie d'exécuter la légende de la fonction-je obtenir

légende(1.5, 0.5, c("Lun","Mar","Mer","Jeu","Ven"), cex=0.8,
+ fill=couleurs)
Erreur dans strwidth(légende, unités = "utilisateur", cex = cex) :
de la parcelle.la nouvelle n'a pas été appelé encore

OriginalL'auteur MadSeb | 2012-02-20