[R] rgl.postscript generating pdf: floating xlab, font size, transparency

From: Kim Milferstedt <milferst_at_uiuc.edu>
Date: Wed 04 Apr 2007 - 17:17:14 GMT


Hello,

I very much enjoy rgl! But when converting the screen output to pdf using rgl.postscript I have encountered three problems:

(1) I don't seem to have control over font sizes and point sizes (of
added points) in the pdf output. I tried cex from "plot" but that does not have an effect. Initially I got some plots where fonts and especially points were far too small. But now I cannot reproduce this any more and fonts and axis are way too thick. How do you control font size, point size etc in the pdf output of rgl.postscript?
(2) I could not figure out if it is possible to prevent the
expressions entered for xlab, ylab and zlab to float around in the plot. I would like them aligned with the labeled axis if that's possible. Can I do that with rgl?
(3) I would also like to add a transparent sphere to some plots. I
did this by adding the next two lines to a plot. However, by adding rgl.material(), also my next plots have the new updated properties I only intended for the sphere. How can I re-set the rgl.material to their defaults or how can I assign properties only for one object?

rgl.material(alpha = 0.2 )

     spheres3d(0,0,0,1, col= "yellow")

I am working under Win XP with R 2.4.1 and the most current version of rgl.

Thanks,

Kim

## Generating data-set
X <- c(1:6)
endpoint <- 4
interval <- 1
data.length <- 1200
data.rep <- 10

R <- rep(seq(1,endpoint, by =interval),rep((data.length/3)/endpoint,endpoint)) Q <- cbind(matrix(sample(X,data.length , replace = T), ncol = 3, byrow = T),R)

## plotting using rgl
symbol.col <- c("blue", "orange", "gold", "indianred") plot.lim <- c(1, 6)
plot3d( 0,

         0,
         0,
         xlim = plot.lim,
         ylim = plot.lim,
         zlim = plot.lim,
         type = "n",
         xlab = "X-Axis",
         ylab = "Y-Axis",
         zlab = "Z-Axis",
         )
for (l in 1:endpoint)
         {
                 points3d(   Q[,1][Q[,4] == l],
                             Q[,2][Q[,4] == l],
                             Q[,3][Q[,4] == l],
                 col = symbol.col[l],
                 size = 6)
         }

rgl.postscript("D:/Kim/070402/test4.pdf", fmt="pdf" )


Kim Milferstedt
University of Illinois at Urbana-Champaign Department of Civil and Environmental Engineering 4125 Newmark Civil Engineering Laboratory 205 North Mathews Avenue MC-250
Urbana, IL 61801
USA

phone: (001) 217 333-9663
fax: (001) 217 333-6968
email: milferst@uiuc.edu
http://cee.uiuc.edu/research/morgenroth



R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. Received on Thu Apr 05 03:27:50 2007

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.1.8, at Wed 04 Apr 2007 - 18:30:56 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.