Alan wrote:> Hi,
>
> How do you obtain the limits of the plotting region in a scatterplot3d
> plot? `par('usr')' does not seem to give sensible values, and
that
> vector only has 4 elements (not the expected 6).
Well, I never designed anything to do that, but it is possible with the
following function:
gets3dusr <- function(s3dobject){
es3d <- environment(s3d$points3d)
g3d <- function(name) get(name, envir=es3d)
c(c(g3d("x.min"), g3d("x.max")) *
g3d("x.scal"),
c(0, g3d("y.max")) * g3d("y.scal") +
g3d("y.add"),
c(g3d("z.min"), g3d("z.max")) *
g3d("z.scal"))
}
#Example:
s3d <- scatterplot3d(rnorm(5), rnorm(5), rnorm(5))
gets3dusr(s3d)
Uwe Ligges
> Alan
>
> ______________________________________________
> R-help at r-project.org 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.