1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
\name{sizetree}
\alias{sizetree}
\title{Display a hierarchical breakdown of disjunct categories}
\description{Display a data frame in which the values in each successive
column represent subcategories of the previous column as stacked
rectangles.}
\usage{
sizetree(x,left=0,top,right=1,lastcenter=NA,showval=TRUE,showcount=TRUE,
firstcall=TRUE,col=NA,colorindex=1,base.cex=1,...)
}
\arguments{
\item{x}{A data frame in which each successive column represents
subcategories of the previous column.}
\item{left}{The left edge of the current stack of rectangles in user units.}
\item{top}{The top of the current stack of rectangles in user units.}
\item{right}{The right edge of the current stack of rectangles in user units.}
\item{lastcenter}{The center of the previous rectangle from which the next
breakdown of categories arises. There is almost no reason to change it.}
\item{showval}{Whether to display the values representing the categories.}
\item{showcount}{Whether to display the count for the categories.}
\item{firstcall}{A flag for the function - do not alter this.}
\item{col}{Optional fill colors for the rectangles. See Details}
\item{colorindex}{The index for \samp{col} if it is a list of color vectors.}
\item{base.cex}{The base character expansion for the labels.}
\item{...}{additional arguments passed to \samp{plot}.}
}
\value{ nil }
\details{
\samp{sizetree} displays disjunct hierarchical categories as stacked rectangles.
It accepts a data frame in which the values in the first column represent
categories, the values in the second column represent subcategories of the
first column, and so on. The first column will be displayed as a stack of
rectangles, the height of each proportional to the count for each category.
Each substack of rectangles in the second stack will represent the breakdown
of counts for its superordinate category and so on through the columns.
Empty categories are ignored and NAs will produce gaps, which will propagate
across subsequent stacks.
Typically, the user will simply pass the data frame, which should only
contain columns that are hierarchical categories, set \samp{showval} and
\samp{showcount} to the desired values, and pass colors for the top level
categories if these are wanted. If colors are passed, it is best to have at
least as many colors as there are categories in the first column or some will
be recycled. If different colors are desired for different levels, as in the
example, pass a list of colors. \samp{sizetree} will now match colors to
categories when the number of categories is different (e.g. some levels are
missing in the sub-categories), if \samp{col} is a vector. If \samp{col} is
a list, this is not done, and the user will have to work out the correct
colors for each level.
The labels are sized to fit the vertical extent of the bars. However, it is
possible to have labels that extend horizontally beyond the bar(s). The
\samp{base.cex} argument can be used to shrink the labels if this happens.
Remember that \samp{base.cex} will shrink all the labels, not just the ones
that are too wide.
The \samp{firstcall} argument is necessary for the function to initialize the
plot, as each breakdown involves a recursive call. If it is changed, the best
that can be expected is an uninformative plot.
}
\author{Jim Lemon}
\seealso{\link{plot}}
\examples{
cat1<-factor(sample(c("None","Low","Medium","High","Extreme"),40,TRUE),
levels=c("None","Low","Medium","High","Extreme"))
cat2<-factor(sample(c("None","Low","Medium","High"),40,TRUE),
levels=c("None","Low","Medium","High"))
cat3<-factor(sample(c("None","Low","High"),40,TRUE),
levels=c("None","Low","High"))
hcats<-data.frame(cat1,cat2,cat3)
# throw in a few NAs
hcats$cat1[10]<-NA
hcats$cat2[c(15,20)]<-NA
hcats$cat3[c(11,14,25)]<-NA
bhcol<-c("#ff8080","#dddd80","#80ff80","#0000ff","#80dddd")
sizetree(hcats,col=bhcol,main="Hierarchical count chart (sizetree)")
}
\keyword{misc}
|
