Cirkeldiagram.
> bron <- "http://www.mzandee.net/~zandee/statistiek/data/WONINGEN.csv"
> woning <- read.csv(bron, header=T)
> attach(woning)
> names(woning)
[1] "nr" "wijk" "kamers" "badkamers" "grond" "bouwjaar" "garage" "c.v." "prijs"
Voorbeeld 1.16, Buijs p. 42
> table(wijk)
wijk
1 2 3 4
28 29 37 26
> pie(table(wijk))

Bron:
Buijs, A. - Statistiek om mee te werken. Stenfert Kroese, Groningen (2003)