pie(x, names = NULL, explode = F, style.pie = list(), size = .75,
    inner = .3, outer = 1.1, angle = <<see below>>,
    density = <<see below>>, col = 1:12, rotate = T, ...)
Graphical parameters may also be supplied as arguments to this function (see par). In addition, the high-level graphics arguments described under par and the arguments to title may be supplied to this function.
Specifying style="old" will set the defaults to produce a pie chart with unfilled slices drawn with the current par("col") value.
POuND create a plot from one student's testscores
datest <- (testscores[18,])
name <- attributes(datest)
pie(datest, names = names, col = c(3:7))
# explode testscores < 20 percent
pie(datest, names = names, col = c(3:7), explode = datest < 20)
# force the labels to be outside the chart
pie(datest, names = names, col = c(3:7), explode = datest < 20,
    inner = .95)
# pie chart created with a user defined style
pie.mystyle <- list(col=1:100, inner=1.1, rotate=F)
pie(revenues, names=revenue.class, style.pie="mystyle")
datatel <- apply(telsam.response, 2, sum)
pie(datatel, dimnames(telsam.response)[[2]], explode = c(T, F, F, F),
    col = c(3:6))
title(main =
"Response to Quality of Service Questions\nConcerning Telephone Service")