You can specify axis tick locations explicitly using the scales=
argument, which skips the automatic axis label clipping:
xyplot(..., scales=list(y=list(at=seq(.85, 1, .05)), x=list(at=...)))
EDIT: Here you go, more automated:
axis.overlap <- function(..., components) {
components$bottom$labels$check.overlap <- FALSE
axis.default(..., components=components)
}
Then anytime you want to include axis-overlapping labels, you can specify:
xyplot(Y ~ X | Bench, dt, axis=axis.overlap)
or wrap it as you please:
xyplot2 <- function(..., axis=axis.overlap) xyplot(..., axis=axis)
xyplot2(Y ~ X | Bench, dt)