set.seed(2018); dat <- sample(11:60,200,repl=TRUE)
pie(table(dat))
pie(reduceTable(table(dat), sep=NULL))
pie(reduceTable(table(dat), sep=NULL), init.angle=90,
clockwise=TRUE, col=rainbow(20)[1:15], cex=0.8)
Run the code above in your browser using DataLab