Jamieson Cobleigh wrote:> Similar to my last question, I want to tighten up the spacing and
> margins in a plot I am doing with lattice.
>
> Here are the commands I'm using:
>
> data <- data.frame(x=c(1:3, 1:3), y=c(1:3, 1:3*2),
> cat=c("foo","foo","foo","bar",
"bar","bar"))
>
> xyplot(panel=panel.superpose, y~x, data=data, groups=cat,
type="b",
> scales=list(tck=c(2,0), axs="r", cex=c(1,0)))
>
> I know that par(mar=c(2,2,1,1)) would do what I want with plot. Is
> there something similar for xyplot/lattice that can reduce the size of
> the margins of the plot?
>
> Thanks!
>
> Jamie
>
Hi, Jamie,
Will the following work for you?
library(lattice)
data <- data.frame(x = c(1:3, 1:3), y = c(1:3, 1:3*2),
cat =
c("foo","foo","foo","bar",
"bar","bar"))
trellis.par.set(theme = col.whitebg())
lw <- list(left.padding = list(x = 0, units = "inches"))
lw$right.padding <- list(x = -0.1, units = "inches")
lh <- list(bottom.padding = list(x = 0, units = "inches"))
lh$top.padding <- list(x = -0.2, units = "inches")
lattice.options(layout.widths = lw, layout.heights = lh)
xyplot(y ~ x, data, groups = cat, type="b")
HTH,
--sundar