[R] Using sunflowerplot to add points in a xyplot panel

[Dieter Menne]

Ronaldo Reis Junior <chrysopa <at> gmail.com> writes:

> 
> Hi,
> 
> I use panel.points to add points to a xyplot graphic. But I like to use the 
> sunflowerplot to plot my points because this is very superimposed. It is 
> possible to use this? I try but it dont work directly. It may be need to put 
> this function inside a panel.??? 

sunflower is "old style R graphics", and xyplot is lattice/trellis. these two
normally don't get along together too well. Paul Murrell's grid which is the
base of lattice, can do some magic to bring them together.

Dieter


## Modfied after Cris Bergstresser and Paul Murrell
##http://finzi.psych.upenn.edu/R/Rhelp02a/archive/73780.html
library(grid);
library(lattice);

sunpanel <- function(x, y, subscripts, ...) {
  pushViewport(viewport(x = 0.5, y = 0.5, just = "center"));
  sunflowerplot(x, y, axes = FALSE, xlab = "", ylab = "");
  popViewport(1);
} 

x = round(runif(100, 1, 5));
y = round(runif(100, 1, 5));
print(xyplot(y ~ x, aspect = "iso", panel = sunpanel));