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
79
80
81
82
83
84
85
86
87
88
89
90
|
\name{angleAxis}
\alias{angleAxis}
\title{Add a Axis to a Plot with Rotated Labels}
\description{
Add a labeled axis to the current plot with rotated text
}
\usage{
angleAxis(side, labels, at = 1:length(labels), srt = 45, adj, xpd = TRUE, ...)
}
\arguments{
\item{side}{
an integer specifying which side of the plot the axis is to be
drawn on. The axis is placed as follows: 1=below, 2=left, 3=above and
4=right.
}
\item{labels}{character or expression vector of labels to be placed at the
tickpoints.
}
\item{at}{the points at which tick-marks are to be drawn. Non-finite
(infinite, NaN or NA) values are omitted.
}
\item{srt}{
The string rotation in degrees. Defaults to 45 degrees (clockwise).
}
\item{adj}{Text justification.
A value of 0 produces left-justified text, 0.5 centered text and 1
right-justified text. For \code{side=1} and \code{side=2}, the
default value is \code{adj=1}. For \code{side=3} and \code{side=4}
the default value is \code{adj=0}.
}
\item{xpd}{A logical value or NA. If FALSE, labels are clipped to the
plot region, if TRUE, labels are clipped to the figure region, and
if NA, labels are clipped to the device region.
}
\item{\dots}{optional arguments passed to \code{text}. Common examples are \code{col}, \code{cex}.}
}
\details{
This function augments the feature of the \code{axis} functon by allowing the axis labels to be rotated.
}
\author{Gregory R. Warnes \email{greg@warnes.net} }
\seealso{
\code{\link{axis}}
}
\examples{
\dontshow{set.seed(42)}
# create a vector with some values and long labels
values <- sample(1:10)
names(values) <- sapply(letters[1:10],
function(x) paste(rep(x, 10), sep="",collapse="")
)
# barplot labels are too long for the available space, hence some are not plotted
barplot(values)
# to add angled labels, tell barplot not to label the x axis, and store the bar location
at <- barplot(values, xaxt="n")
# then use angleAxs
angleAxis(1, at=at, labels = names(values))
# angle counter-clockwise instead
at <- barplot(values, xaxt="n")
angleAxis(1, at=at, labels = names(values), srt=-45, adj=0)
# put labels at the top
oldpar <- par()$mar
par(mar=c(1,4,5,2)+0.1)
at <- barplot(values, xaxt="n")
angleAxis(3, at=at, labels = names(values))
par(oldpar)
# put labels on the left
oldpar <- par()$mar
par(mar=c(5,5,3,2)+0.1)
at <- barplot(values, yaxt="n", horiz=TRUE)
angleAxis(2, at=at, labels = names(values))
par(oldpar)
# put labels on the right
oldpar <- par()$mar
par(mar=c(2,5,3,5)+0.1)
at <- barplot(values, yaxt="n", horiz=TRUE)
angleAxis(4, at=at, labels = names(values))
par(oldpar)
# specify colors for bars and labels
at <- barplot(values, xaxt="n", col=1:10)
angleAxis(1, at=at, labels = names(values), col=1:10)
}
\keyword{aplot}
|
