Kakuke (pie)
Näide 1
# Algandmed
eksport=c(NA,43,17.7,12.1,4.5,3.3)
names(eksport)=c("muud riigid","SRÜ","USA","Norra","Türgi","Hiina")
eksport[1]=100-sum(eksport[2:6])
# Joonistamine
pie(eksport,
main="Eesti eksport väljapoole Euroopa Liitu \n juuli 2004
(Eesti Statistikaameti andmetel)",
labels=paste(names(eksport),"\n", eksport, "%"))