## Not run:
# library(lattice)
# xyplot(c(1:10) ~ c(1:10) | sample(letters[1:2], 10, replace=TRUE),
# par.settings=noMargins()
# )
#
# # with additional par.settings...
# xyplot(c(1:10) ~ c(1:10) | sample(letters[1:2], 10, replace = TRUE),
# par.settings = noMargins(
# list(plot.symbol = list(col = "black"))
# )
# )
# ## End(Not run)
Run the code above in your browser using DataLab