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
|
\name{radial.plot.labels}
\title{Display labels on a circular grid}
\usage{
radial.plot.labels(lengths,radial.pos=NULL,units="radians",radial.lim=NULL,
start=0,clockwise=FALSE,labels,adj=NULL,pos=NULL,...)
}
\alias{radial.plot.labels}
\arguments{
\item{lengths}{numeric data vector. Magnitudes will be represented as
the radial positions of symbols, line ends or polygon vertices.}
\item{radial.pos}{numeric vector of radial positions. These will be
converted to radians if the \samp{units} argument is not "radians".}
\item{units}{The units of \samp{radial.pos} may be degrees or 24 hour clock
positions. If \samp{units} is "polar" or "clock24" respectively, the
values of radial.pos will be converted into radians.}
\item{radial.lim}{Optional radial limits for the circular plot. These
must be the same as the radial limits of the original plot.}
\item{start}{The zero position on the plot in the units of \samp{radial.pos}.}
\item{clockwise}{Whether to increase angles clockwise rather than the
default counterclockwise.}
\item{labels}{text labels to display on the plot.}
\item{adj}{Text justification as in the \samp{text} function.}
\item{pos}{Text position as in the \samp{text} function.}
\item{...}{additional arguments passed to \samp{text}.}
}
\description{
\samp{radial.plot.labels} displays a labels on a circular plot produced by
one of the radial.plot family of functions.
}
\details{
Don't confuse this function with the \samp{radial.labels} argument in
the radial.plot function. This labels the values rather than the grid.
}
\value{nil}
\author{Jim Lemon}
\keyword{misc}
\seealso{\link{text}}
\examples{
testlen<-c(rnorm(10)*2+5)
# do the labels in clock24 units
testpos<-c(6.74,8.3,10.55,12.33,13.75,15.9,17.15,19.36,21.02,23.27)
oldpar<-clock24.plot(testlen,testpos,main="Test radial.plot.labels",
rp.type="s",point.symbols=3,point.col="blue")
radial.plot.labels(testlen,testpos,units="clock24",labels=LETTERS[1:10],
pos=3,col="blue")
testangle<-c(25,42,67,94,128,173,191,234,268,307)
# now a polar plot
polar.plot(testlen,testangle,main="Test radial.plot.labels",rp.type="p",
poly.col="green")
radial.plot.labels(testlen,testangle,units="polar",labels=LETTERS[1:10])
# reset par
par(oldpar)
}
|
