Reduce table by aggregating smaller groups
reduceTable(tab, separFirst = 4, nGrp = 15)
tab |
output of |
separFirst |
(integer or NULL) optinal separartion of n 'separFirst' groups (value <2 or NULL will priviledge more uniform size of groups, higher values will cause small inital and larger tailing groups) |
nGrp |
(integer) number of groups expected |
numeric vector with number of counts and class-borders as names (like table).
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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.