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
|
\name{barlabels}
\alias{barlabels}
\title{Label the bars on a barplot}
\description{Displays labels on a plot, usually a bar plot.}
\usage{
barlabels(xpos,ypos,labels=NULL,cex=1,prop=0.5,miny=0,offset=0,nobox=FALSE,...)
}
\arguments{
\item{xpos}{A vector, matrix or data frame of x positions for the labels.}
\item{ypos}{A vector, matrix or data frame of y values for the labels.}
\item{labels}{The labels to display. Defaults to the values of ypos.}
\item{cex}{Relative size of the labels. See \samp{text}.}
\item{prop}{The proportion of \samp{ypos} at which to place the labels.
Defaults to 0.5 (the middle).}
\item{miny}{The minimum value at which to display labels.}
\item{offset}{Amount to horizontally offset successive labels in case
of vertical overlaps.}
\item{nobox}{Whether to call \samp{boxed.labels} or \samp{text}.}
\item{...}{Extra arguments passed to \samp{boxed.labels} or \samp{text}.}
}
\details{
\samp{barlabels} places labels on a plot at horizontal positions \samp{xpos}
and vertical positions \samp{ypos} * \samp{prop}. The typical use of this
function is to place labels on bars, by default in the middle of the bars.
To put labels just over the tops of the bars, set \samp{prop} to 1 and add a
constant amount to \samp{ypos}.
}
\value{nil}
\author{Jim Lemon}
\seealso{\link{boxed.labels}}
\examples{
heights<-c(14,20,9,31,17)
barpos<-barplot(heights,main="A redundant bar plot")
# show the usual value labels on the bars
barlabels(barpos,heights)
# now with stacked bars and offsets
heights<-matrix(sample(c(1,2,10,15),20,TRUE),ncol=4)
barpos<-barplot(heights,main="A redundant stacked bar plot")
barlabels(barpos,heights,offset=0.1)
# do it again without stacking
barpos<-barplot(heights,main="An unstacked redundant bar plot",
beside=TRUE)
barlabels(barpos,heights)
# finally use barp for the plot
barpos<-barp(heights,main="A fourth and final bar plot",col=2:6,
names.arg=paste("Day",1:4))
barlabels(barpos$x,barpos$y,matrix(LETTERS[1:5],nrow=5,ncol=4))
}
\keyword{misc}
|
