[R] adding text to persp

[Sundar Dorai-Raj]

> 
> On a related topic to this - can someone tell me how to 
> independently alter the fontsize and position of text on a 
> persp plot?? 
> I've tried using titles() and axes() but they seem to only 
> apply to the standard plot() and contour plots (contour() and 
> filled.contour(). 
> 

Here's the solution I came up with, though it's not general enough to
write into a function. It uses text() instead of axis() and title().

Sundar

x <- seq(-10, 10, length=50)
y <- x
f <- function(x,y)
{
  r <- sqrt(x^2+y^2)
  10 * sin(r)/r
}
z <- outer(x, y, f)
z[is.na(z)] <- 1

par(mar=c(1,1,1,1))
persp(x, y, z, theta = 30, phi = 30, expand = 0.5, col = "lightblue",
           ltheta = 120, shade = 0.75, ticktype = "detailed",
           xlab = "", ylab = "", zlab = "")

u.x <- par("usr")[1:2]
u.y <- par("usr")[3:4]
text(x=u.x[1]+.94*diff(u.x),
     y=u.y[1]+.34*diff(u.y),
     labels=expression(theta),
     srt=45,cex=1.2)
text(x=u.x[1]+.21*diff(u.x),
     y=u.y[1]+.16*diff(u.y),
     labels=expression(gamma[r]),
     srt=-45,cex=1.2)
text(x=u.x[1]+.04*diff(u.x),
     y=u.y[1]+.60*diff(u.y),
     labels=expression(italic(f)[Theta](theta,gamma[r])),
     srt=100,cex=1.2)

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._