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, "%"))