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
|
\name{bumpchart}
\alias{bumpchart}
\title{Display a "bumps" (sequential ranking) chart}
\description{
Display a chart with two of more columns of points in order of ascending values
with lines connecting the points in a row.
}
\usage{
bumpchart(y,top.labels=colnames(y),labels=rep(rownames(y),2),rank=TRUE,
mar=c(2,8,5,8),pch=19,col=par("fg"),lty=1,lwd=1,arrows=FALSE,...)
}
\arguments{
\item{y}{A numeric matrix or data frame which may contain NAs.}
\item{top.labels}{The strings that will appear at the top of each column of
points on the plot.}
\item{labels}{The strings that will appear next to the outer columns of
points.}
\item{rank}{Whether to rank the values in \samp{y} before plotting.}
\item{mar}{The margins to use for the bumps chart. Alter to your taste.}
\item{pch}{The symbols to use when plotting the points.}
\item{col}{The colors to use.}
\item{lty}{The line types to use.}
\item{lwd}{The line widths to use.}
\item{arrows}{Whether to join the points with lines (FALSE) or arrows (TRUE).}
\item{...}{Additional arguments passed to \samp{matplot} or \samp{arrows}.}
}
\details{
\samp{bumpchart} calls \samp{matplot} to plot the values in the transposed
\samp{y} matrix or data frame, joining the points with lines. At the left and
right edges of the plot, the labels identifying each row of points are
displayed. These labels may now be different for each side of the plot,
for example if the values of \samp{y} are to be included. Remember that
due to the transposition of the values for plotting, the labels on the
right have to precede those on the left - see the second example.
This type of plot is often used to show the changing positions of
entities over time, like the ranking in surveys in different years. For a
similar, but more flexible plot, see \link{ladderplot}.
Because of the way \samp{matplot} plots the values, the order of everything is
reversed. As the typical display of ranks is with rank 1 at the top, the
actual rank positions are used to plot the values.
This places the lowest scores at the bottom of the plot and the highest at
the top.
Any arguments that are included in \samp{...} will be passed to \samp{matplot}
if the \samp{arrows} argument is FALSE, and to the \samp{arrows} function if
the \samp{arrows} argument is TRUE as in the first example.
}
\value{nil}
\author{Jim Lemon}
\seealso{\link{matplot}}
\examples{
# percentage of those over 25 years having completed high school
# in 10 cities in the USA in 1990 and 2000
educattn<-matrix(c(90.4,90.3,75.7,78.9,66,71.8,70.5,70.4,68.4,67.9,
67.2,76.1,68.1,74.7,68.5,72.4,64.3,71.2,73.1,77.8),ncol=2,byrow=TRUE)
rownames(educattn)<-c("Anchorage AK","Boston MA","Chicago IL",
"Houston TX","Los Angeles CA","Louisville KY","New Orleans LA",
"New York NY","Philadelphia PA","Washington DC")
colnames(educattn)<-c(1990,2000)
bumpchart(educattn,main="Rank for high school completion by over 25s",
arrows=TRUE,length=0.2)
vallab<-c(paste(educattn[,2],rownames(educattn),sep="-"),
paste(rownames(educattn),educattn[,1],sep="-"))
# now show the raw percentages and add central ticks
bumpchart(educattn,rank=FALSE,labels=vallab,
main="Percentage high school completion by over 25s",
lty=1:10,lwd=1,col=rainbow(10))
# margins have been reset, so use
par(xpd=TRUE)
boxed.labels(1.5,seq(65,90,by=5),seq(65,90,by=5))
par(xpd=FALSE)
}
\keyword{misc}
|
