## Not run:
# irisSplit <- datadr::divide(iris, "Species")
# irisPreFn <- function(x) {
# list(
# xlim = range(x$Sepal.Length),
# ylim = range(x$Sepal.Width)
# )
# }
# irisPre <- prepanel(irisSplit, prepanelFn = irisPreFn)
# plot(irisPre)
# ## End(Not run)
d <- datadr::divide(iris, "Species")
irisPreFn <- function(x) {
list(
xlim = range(x$Sepal.Length),
ylim = range(x$Sepal.Width)
)
}
irisPre <- prepanel(d, prepanelFn = irisPreFn)
plot(irisPre)
irisLims <- setLims(irisPre, x = "same", y = "sliced")
Run the code above in your browser using DataLab