Import data.
values = c(10, 12, 4, 16, 8)
states = c("US", "UK", "Australia", "Germany", "France")
Produce a simple pie chart.
pie(values, labels=states)
Add percentages.
pct <- round(values/sum(values)*100)
labels2 <- paste(states, " ", pct, "%", sep="")
pie(values, labels=labels2, col=rainbow(length(labels2)))
Produce a 3D pie chart.
library(plotrix)
pie3D(values, labels=states, explode=0.1)
Produce a fan plot.
library(plotrix)
fan.plot(values, labels=states)