# NOT RUN {
if (require('ggplot2')) {
qplot(mpg, wt, data = mtcars) %+%
lineup(null_permute('mpg'), mtcars) +
facet_wrap(~ .sample)
qplot(mpg, .sample, data = lineup(null_permute('cyl'), mtcars),
colour = factor(cyl))
}
# }
Run the code above in your browser using DataCamp Workspace