Display text in the margins of a 3D plot

Display text in the margins of a 3D plot.

paxis3d(edge,pmat,at=NULL,labels=TRUE,tick=TRUE,
  pos=NULL,nticks=5,ticklen=0.05,labdist=0.15,xpd=NA,...)

Arguments

edge

which axis to calculate.

pmat

matrix to transform coordinates.

at

position on the axis.

labels

labels to display in the margin.

tick

whether to draw axis tick marks.

pos

axis position relative to other axes.

nticks

number of tick marks.

ticklen

length of tick marks as a proportion of plot dimensions.

labdist

distance of labels from axis.

xpd

parameter to set plot clipping.

...

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)