Dear R-helpers, (1) How do I add a 'top' label symmetric with the 'bottom' label' in:
axis.td <- function(side, ...) { ylim <- current.panel.limits()$ylim switch(side, bottom = { panel.axis(side = side, outside = TRUE, rot = 0, at = 1:3, labels = c(2.0, 3.5, 5.0)) }, top = { panel.axis(side = side, outside = TRUE, rot = 45, at = 1:3, labels = c(0.143, 0.250, 0.357)) }, axis.default(side = side, ...)) } xyplot(1:3 ~ 1:3, type = 'b', axis = axis.td, xlab = 'bottom', ylab = 'left', aspect = 'xy') (2) Is there a simpler way to create the two axes? (3) A bit more complex: df <- data.frame(x = rep(1:3, 3), y = 1:9, z = factor(rep(1:3, each = 3))) xyplot(y ~ x | z, df, axis = axis.td, xlab = 'bottom', ylab = 'left', layout = c(3, 1), aspect = 'xy', type = 'b') Here I would like to have a different pair of top and bottom axes for each panel (i.e., different labels at 1:3), and a different top and bottom label. _____________________________ Professor Michael Kubovy University of Virginia Department of Psychology USPS: P.O.Box 400400 Charlottesville, VA 22904-4400 Parcels: Room 102 Gilmer Hall McCormick Road Charlottesville, VA 22903 Office: B011 +1-434-982-4729 Lab: B019 +1-434-982-4751 Fax: +1-434-982-4766 WWW: http://www.people.virginia.edu/~mk9y/ [[alternative HTML version deleted]] ______________________________________________ R-help@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.