## Not run:
# panel <- function(x)
# xyplot(Sepal.Width ~ Sepal.Length, data = x)
#
# p <- datadr::divide(iris, by = "Species") %>%
# qtrellis(panel, layout = c(1, 3))
# p
#
# # data frame input (need to specify 'by')
# iris %>% qtrellis(panel, by = "Species")
#
# # dplyr grouped tbl input
# library(dplyr)
# p <- iris %>%
# group_by(Species) %>%
# qtrellis(panel, layout = c(1, 3))
# p
# ## End(Not run)
Run the code above in your browser using DataLab