basic pie chart:

> parts<-c(10,23,17,41,9) 
> partlabel<-c("Czech rep.", "Poland", "Hungary", "Germany", "Slovakia") 
> pie(parts, labels = partlabel)

resulting chart:
piechart01