Add additional variables to the data
add_add_var.RdUtility function for incorporating any additional variables into the data. Each row in the data will be replicated and new columns will be added for each variable specified in `add_var` with values corresponding to their cartesian product.
Arguments
- data
A data frame containing the data in which to add the additional variables.
- add_var
A named list or data-frame specifying the names and corresponding values of each new variable to add to the data. If a list is specified, each row in the data would be replicated for each unique combination of values of the specified variables (i.e., their cartesian product) in `add_var`, while specifying a data-frame would replicate each row in the data for each row in add_var (i.e., merge the two data-frames).
Value
A data-frame with all additional columns specified in `add_var` and the following additional column.
- .add_str_ID
A unique identifier describing each element from the cartesian product of all variables specified in `add_var`.
Examples
test_data <- data.frame(diag(1, 3))
print(test_data)
#> X1 X2 X3
#> 1 1 0 0
#> 2 0 1 0
#> 3 0 0 1
## Adding a single variable
add_add_var(data = test_data,
add_var = list("Var1" = c(10, 20)))
#> X1 X2 X3 Var1 .add_str_ID
#> 1 1 0 0 10 Var1: 10
#> 2 0 1 0 10 Var1: 10
#> 3 0 0 1 10 Var1: 10
#> 4 1 0 0 20 Var1: 20
#> 5 0 1 0 20 Var1: 20
#> 6 0 0 1 20 Var1: 20
## Specifying multiple variables as a list will add values for
## each unique combination
add_add_var(data = test_data,
add_var = list("Var1" = c(10, 20),
"Var2" = c(30, 40)))
#> X1 X2 X3 Var1 Var2 .add_str_ID
#> 1 1 0 0 10 30 Var1: 10; \tVar2: 30
#> 2 0 1 0 10 30 Var1: 10; \tVar2: 30
#> 3 0 0 1 10 30 Var1: 10; \tVar2: 30
#> 4 1 0 0 20 30 Var1: 20; \tVar2: 30
#> 5 0 1 0 20 30 Var1: 20; \tVar2: 30
#> 6 0 0 1 20 30 Var1: 20; \tVar2: 30
#> 7 1 0 0 10 40 Var1: 10; \tVar2: 40
#> 8 0 1 0 10 40 Var1: 10; \tVar2: 40
#> 9 0 0 1 10 40 Var1: 10; \tVar2: 40
#> 10 1 0 0 20 40 Var1: 20; \tVar2: 40
#> 11 0 1 0 20 40 Var1: 20; \tVar2: 40
#> 12 0 0 1 20 40 Var1: 20; \tVar2: 40
## Specifying add_var as a data.frame would simply merge the two data-frames
add_add_var(data = test_data,
add_var = data.frame("Var1" = c(10, 20),
"Var2" = c(30, 40)))
#> X1 X2 X3 Var1 Var2 .add_str_ID
#> 1 1 0 0 10 30 Var1: 10; \tVar2: 30
#> 2 0 1 0 10 30 Var1: 10; \tVar2: 30
#> 3 0 0 1 10 30 Var1: 10; \tVar2: 30
#> 4 1 0 0 20 40 Var1: 20; \tVar2: 40
#> 5 0 1 0 20 40 Var1: 20; \tVar2: 40
#> 6 0 0 1 20 40 Var1: 20; \tVar2: 40
## If the list specified in `add_var` is not named, then the additional
## variables will be automatically named Var1, Var2, Var3, etc.
add_add_var(data = test_data,
add_var = list(c(1, 2), c(3, 4)))
#> X1 X2 X3 Var1 Var2 .add_str_ID
#> 1 1 0 0 1 3 Var1: 1; \tVar2: 3
#> 2 0 1 0 1 3 Var1: 1; \tVar2: 3
#> 3 0 0 1 1 3 Var1: 1; \tVar2: 3
#> 4 1 0 0 2 3 Var1: 2; \tVar2: 3
#> 5 0 1 0 2 3 Var1: 2; \tVar2: 3
#> 6 0 0 1 2 3 Var1: 2; \tVar2: 3
#> 7 1 0 0 1 4 Var1: 1; \tVar2: 4
#> 8 0 1 0 1 4 Var1: 1; \tVar2: 4
#> 9 0 0 1 1 4 Var1: 1; \tVar2: 4
#> 10 1 0 0 2 4 Var1: 2; \tVar2: 4
#> 11 0 1 0 2 4 Var1: 2; \tVar2: 4
#> 12 0 0 1 2 4 Var1: 2; \tVar2: 4