search for: ah2d

...1,5,10,100,500,100000) h2d<-hist2d(x=x,y=y,nbins=10,same.scale=T,show=F) panel.levelplot(h2d$x,h2d$y,h2d$counts,subscripts=1:length(h2d$x),at=breaks, col.regions=col,region=T) } xyplot(y~x|group,data=ds,panel=panel.binscatter) # but, this doesnt work either for one group using levelplot() : Ah2d<-hist2d(A$x,A$y,nbins=10,same.scale=T,show=F) levelplot(Ah2d$counts~Ah2d$x*Ah2d$y) # but this DOES: grid<-expand.grid(x=Ah2d$x,y=Ah2d$y) levelplot(Ah2d$counts~grid$x*grid$y) #2nd attempt doesn't work, I give up.. panel.binscatter<-function(x,y,subscripts,...){ col<-gray.colors(5)...