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
|
\name{paxis3d}
\alias{paxis3d}
\title{ Display text in the margins of a 3D plot }
\description{
Display text in the margins of a 3D plot.
}
\usage{
paxis3d(edge,pmat,at=NULL,labels=TRUE,tick=TRUE,
pos=NULL,nticks=5,ticklen=0.05,labdist=0.15,xpd=NA,...)
}
\arguments{
\item{edge}{ which axis to calculate.}
\item{pmat}{ matrix to transform coordinates. }
\item{at}{ position on the axis. }
\item{labels}{ labels to display in the margin. }
\item{tick}{ whether to draw axis tick marks. }
\item{pos}{ axis position relative to other axes. }
\item{nticks}{ number of tick marks. }
\item{ticklen}{ length of tick marks as a proportion of plot dimensions. }
\item{labdist}{ distance of labels from axis. }
\item{xpd}{ parameter to set plot clipping. }
\item{...}{ additional arguments passed to ptext3d. }
}
\value{nil}
\author{Ben Bolker}
\examples{
x <- 1:10
y <- 1:10
z <- outer(x,y,function(x,y) { 3*sin(2*pi*x)/(2*pi*x)+exp(y/10)+(x*y)/1000 })
par(mar=c(5,10,2,2))
pp <- perspx(x,y,z,ticktype="detailed",phi=30,theta=80,nticks=3,r=10,
axes=FALSE)
## axis labels not drawn when axes=FALSE
paxis3d("X-",pp,at=c(1,2,9))
paxis3d("Y+",pp)
paxis3d("Z-",pp)
mtext3d("X-",pp,expression(alpha^sqrt(beta)))
## if you want labels parallel to axis, still have to figure out 'srt'
## by trial and error
mtext3d("Y+",pp,expression("velocity ("*gamma*", furlongs/fortnight)"),
xpd=NA,srt=6)
mtext3d("Z-",pp,"Range\n(r*)",dist=0.5)
}
\keyword{misc}
|
