Displaying 1 result from an estimated 1 matches for "mypanelfunction".
2007 Feb 18
0
Lattice graphics: minor tick marks and panel.axis() question(s)
...0.2),times=4),
g = rep(rep(letters[1:4],each=length(xpoints)),times=4))
#+++++
#+++++ Set clipping parameter +++++
clip = trellis.par.get("clip")
clip$panel = "off"
trellis.par.set("clip",clip)
#+++++
#+++++ Define panel function +++++
# plot x,y points
# draw axis
myPanelFunction = function(x,y,...) {
xpoints = c(rep(1:9,times=2)*10^rep(c(-1,0),each=9),10)
panel.xyplot(x,y,...)
panel.axis("bottom",at=xpoints,labels=FALSE,
tck=-0.5) #cannot get positive values of tck to work
}
#+++++
#+++++ Call to xyplot() +++++
xyplot(y~x|g,data=df,
p...