View source: R/list_xtab_args.R
| list_xtab_args | R Documentation |
Simply put, list_xtab_args() is a vectorized version of generate_xtab_args(). The function
generate_xtab_args() allows for one var_of_interest at a time. There may be use cases where
multiple var_of_interest must be considered. In those cases, this function may be useful as it
allows users to pass a vector of var_of_interest and a corresponding list of dependent_vars.
These two vectors must be of the same length in terms of vec_size(). One may think of these two
vectors as pairs in the sence that— each ith element in var_of_interest is crossed with each
element of dependent_vars, which is a vector in and of itself. If no dependent_vars list is
specified, the function defaults to crossing each variable in var_of_interest with all other
columns in df unless rm is specified.
list_xtab_args(df, var_of_interest, dependent_vars = NULL, rm = NULL)
df |
A data frame or tibble. |
var_of_interest |
A character vector of variables of interest. |
dependent_vars |
A list of character vectors, each of which contains dependent variables. Defaults
to crossing each element of |
rm |
A character vector of variables to be removed from consideration. Defaults to |
A list containing two elements— result and error, which are lists in and of themselves.
These two lists have the same structure and number of elements. The result is a named list
of tibble objects. One can think of each tibble as the output of a single run of generate_xtab_args(),
if it suceeds. The error list captures all runs of generate_xtab_args() that have failed,
returning the error messages. If all run fails, result will be a NULL list; on the other end, if no run
fails, error will be a NULL list. Users can easily find out which var_of_interest failed by examining
the error list and running the following code (assuming that the list is called list_of_args and the
vector of variables of interest is called var_of_interest):
lgl_index <- purrr::map_lgl(list_of_args[["error"]], is.null)
var_of_interest[!lgl_index]
To examine the results of the successful runs, use:
list_of_args[["result"]][lgl_index]
Or, if all runs are successful, simply return the result list:
list_of_xtab_args <- list_of_args[["result"]]
# Create var_of_interest vector
var_of_interest <- c("col1", "col3", "col20", "col23", "col32")
# List of dependent variable vectors
dependent_vars <- list(
c("col2", "col4", "col5", "col100"),
c("col2", "col4"),
c("col2", "col4", "col5", "col86"),
NULL,
c("col2", "col4"),
)
# Create list_of_args
list_of_args <- list_xtabs_args(df, var_of_interest, dependent_vars)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.