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
|
\name{kiteChart}
\alias{kiteChart}
\title{ Magnitude by position chart. }
\description{
Display numeric values as the widths of a polygon along a dimension such as time.
}
\usage{
kiteChart(x,xlim=NA,ylim=NA,timex=TRUE,main="Kite chart",
xlab=ifelse(timex,"Time","Groups"),ylab=ifelse(timex,"Groups","Time"),
fill=NULL,border=par("fg"),varlabels=NA,timepos=NA,timelabels=NA,
mar=c(5,4,4,4),axlab=c(1,2,3,4),normalize=TRUE,shownorm=TRUE,...)
}
\arguments{
\item{x}{Numeric matrix or data frame}
\item{xlim}{Horizontal extent of the chart. Defaults to 1:dim(x)[2].}
\item{ylim}{Vertical extent of the chart. Defaults to 0.5:dim(x)[1]+0.5.}
\item{timex}{Whether the "time" axis is x (horizontal) or not.}
\item{main,xlab,ylab}{As in \samp{plot}.}
\item{fill}{The color(s) with which to fill the polygons. Defaults to
\samp{rainbow(1:dim(x)[1])}.}
\item{border}{The color of the borders of the polygons.}
\item{varlabels}{Labels for the rows of values - defaults to the rownames,
or if these are missing, 1:dim(x)[1].}
\item{timepos}{The positions of the values along the x axis, usually times,
defaulting to 1:dim(x)[2].}
\item{timelabels}{Labels for the positions, defaulting to \samp{timepos}.}
\item{mar}{Plot margins. These leave space for the normalization multipliers
on the right or top side (see Details).}
\item{axlab}{Where to put axis tick labels and multipliers. See Details.}
\item{normalize}{Whether to scale each row of values to a maximum width of 1.}
\item{shownorm}{Whether to display the normalization multipliers.}
\item{...}{additional arguments passed to \samp{plot}.}
}
\details{
\samp{kiteChart} displays each row of \samp{x} as a sequence of widths, allowing
the relationships between those values and the dimension along which they occur
(usually time) to be illustrated.
The values in x are scaled to a maximum polygon width of 1 if \samp{normalize}
is TRUE. This is to avoid overlapping of the polygons. There may be some cases
where the values can be displayed directly. If normalized, the multipliers will
be displayed for each row on the right or top side of the chart unless \samp{shownorm}
is FALSE. Remember to specify the \samp{mar} argument if more space at the top
is needed.
The \samp{axlab} argument allows the user to place the axis tick labels and
normalization multipliers on different axes. The default places the tick labels
on the bottom and left sides of the plot and the multipliers on the right or top.
Using \samp{axlab=c(3,4,1,2)} places the tick labels on the top and right and the
multipliers on the left or bottom. The \samp{mar} argument may have to be adjusted.
}
\value{The values of \samp{mar} that were current when \samp{kiteChart} was called.}
\author{Jim Lemon (Thanks to Michael Bedward for suggestions on the arguments)}
\seealso{\link{polygon}}
\examples{
testmat<-matrix(c(runif(50),sample(1:50,50),rnorm(50)+5,
sin(1:50)),ncol=50,byrow=TRUE)
kiteChart(testmat,varlabels=c("Uniform","Sample","Normal","Sine"),
timepos=seq(1:50,by=5),timex=FALSE)
musicmat<-matrix(c(c(0.5,0.4,0.3,0.25,0.2,0.15,0.1,rep(0.05,44))+runif(51,0,0.05),
c(0.1,0.2,0.3,0.35,0.4,0.5,0.4,rep(0.5,14),rep(0.4,15),rep(0.3,15))+runif(51,0,0.1),
rep(0.15,51)+runif(51,0,0.1),
c(rep(0,29),c(0.1,0.2,0.4,0.5,0.3,0.2,rep(0.05,16))+runif(22,0,0.05)),
c(rep(0,38),c(rep(0.05,6),0.08,0.15,0.20,0.25,0.2,0.25,0.3)+runif(13,0,0.05))),
ncol=51,byrow=TRUE)
kiteChart(musicmat,varlabels=c("Swing","Rock","Jazz","Disco","Rap"),
main="An utterly imaginary chart of music popularity",
timepos=seq(1,51,by=10),timelabels=seq(1950,2000,by=10),mar=c(5,4,4,2),
normalize=FALSE)
}
\keyword{misc}
|
