search for: plt1

...t <- data.frame(d = rep(dates, 4), g = factor(rep(rep(c(1,2), each = length(dates)), 2)), h = factor(rep(c("a", "b"), each = length(dates)*2)), x = rnorm(4 * length(dates)), y = rnorm(4 * length(dates))) plt1 <- xyplot(x + y ~ d | g, groups = h, data = dat, type = 'l', scales = list(relation = "free"), auto.key = TRUE) plt1 <- useOuterStrips(plt1) plt1 <- combineLimits(plt1) The x-axis labels are right after the call to 'useOuterStrips' but they get con...

...: Chromosome 1 |-------------------|------------------------- (so and so forth) PeMm261 Xtxp8 <---- 10.1013 -> (the distance b/w these markers is same as the corresponding value in marker$Distance - see 1 and 2 row in the sample output) and similarly for other chromosomes. I tried: plt1 = dotplot( ~ Distance | Chromosome, data=marker,par.strip.text = list(cex = 0.75), layout = c(1,11), lattice.options=list(legend="right"), xlab="Distance in cM", ylab="", scales= list(cex=0.5), panel = function(x, y) { panel.grid(h=...

...;- y + 0.25 yy.lo <- y - 0.25 panel.polygon(c(x, rev(x)), c(yy.up, rev(yy.lo)), border = NA, col = "lightblue", alpha = 1) panel.xyplot(x, y, type = "p") } ## output to pdf (this one is OK) trellis.device(device = pdf, color = TRUE, file = "plt1.pdf") xyplot(y ~ x, data = ex.data, panel = ex.panel1) dev.off() ## plot a semi-transparent polygon ex.panel2 <- function(x, y, alpha) { yy.up <- y + 0.25 yy.lo <- y - 0.25 panel.polygon(c(x, rev(x)), c(yy.up, rev(yy.lo)), border = NA, col = "lightb...

Thanks to Edzer and Roger, I can now plot with increased font sizes. However, jpeg still does not reproduce these, nor does it show up in high quality. What I would like to do is produce some highresolution jpegs. Any help would be appreciated Thanx Herry R2.4 on Mandriva 10.2 linux. Dr Alexander Herr Spatial and statistical analyst CSIRO, Sustainable Ecosystems Davies Laboratory, University