# NOT RUN {
cross2_var_vectors(mtcars, 9, c(2, 10:11))
cross2_var_vectors(mtcars, "am", c("cyl", "gear", "carb"))
x2 <- c("am", "carb")
y2 <- c("vs", "cyl", "gear")
cross2_var_vectors(mtcars, x2, y2, verbose = TRUE)
# }
# NOT RUN {
variables_list <- cross2_var_vectors(mtcars, x2, y2)
mytitles <- stringr::str_c(
stringr::str_to_title(variables_list$listb),
" by ",
stringr::str_to_title(variables_list$lista),
" in mtcars data"
)
purrr::pmap(
.l = list(
x = variables_list[[1]], # variables_list$lista
y = variables_list[[2]], # variables_list$listb
title = mytitles
),
.f = CGPfunctions::PlotXTabs2,
data = mtcars,
ylab = NULL,
perc.k = 1,
palette = "Set2"
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab