Additional functions


library(joyn)
library(data.table)

This vignette will give you a brief overview of how you can use some auxiliary functions that joyn makes available to the user.

Verifying if dt is uniquely identified

One of the advantages of joyn is that you can perform one-to-one (1:1), one-to-many (1:m), many-to-one (m:1), and many-to-many (m:m) joins. is_id() is a function that might come in handy when you want to check whether your data table is uniquely identified by the variables you want to merge by. In fact this is what is_id() checks by default, returning either TRUE or FALSE depending on whether the data table is uniquely identified or not. Alternatively, you can set return_report = FALSE to get a summary of the duplicates.


x1 <- data.table(id = c(1L, 1L, 2L, 3L, NA_integer_),
                 t  = c(1L, 2L, 1L, 2L, NA_integer_),
                 x  = 11:15,
                 c  = c("a", "b", "a", "t", "d"),
                 c1 = c("h", "j", "k", "l", "y"))

y1 <- data.table(id = c(1,2, 4),
                 y  = c(11L, 15L, 16))

# Checking if x1 is uniquely identified by "id" with return_report = TRUE

is_id(dt = x1, 
      by = "id")
#> 
#> ── Duplicates in terms of `id`
#>    copies     n percent
#>    <char> <int>  <char>
#> 1:      1     3     75%
#> 2:      2     1     25%
#> 3:  total     4    100%
#> ─────────────────────────────────────────────────────── End of is_id() report ──
#> [1] FALSE

# Checking duplicates in x1 with return_report = FALSE

is_id(dt = x1, 
      by = "id", 
      return_report = FALSE)
#> 
#> ── Duplicates in terms of `id`
#>    copies     n percent
#>    <char> <int>  <char>
#> 1:      1     3     75%
#> 2:      2     1     25%
#> 3:  total     4    100%
#> ─────────────────────────────────────────────────────── End of is_id() report ──
#> [1] FALSE

Possible unique identifiers

In joyn, you can also search for variables which possibly uniquely identify your data table x using the possible_ids() function. For example,


# Identify possible unique identifier excluding variable t
possible_ids(dt      = x1, 
             exclude = "t")
#> ✔ There are no duplicates in data frame
#> → we found 2 possible ids
#> $V1
#> [1] "x"
#> 
#> $V2
#> [1] "c1"

# Identify possible unique identifier excluding character variables
possible_ids(dt      = x1, 
             exclude = "_character")
#> ✔ There are no duplicates in data frame
#> → we found 1 possible id
#> $V1
#> [1] "x"

# Identify possible unique identifiers, excluding character variables but considering variable z
possible_ids(dt      = x1, 
             exclude = "_character",
             include = "z")
#> ✔ There are no duplicates in data frame
#> → we found 1 possible id
#> $V1
#> [1] "x"

Verifying if data table is balanced

Additionally, joyn makes available to the user the is_balanced() function. This is instrumental in assessing the completeness of the data table within a specified group, i.e., if the table contains all the combinations of observations in the group. By default, is_balanced() will tell you if/if not the table is balanced. However, if you set return = "table", you will get a summary of the unbalanced observations. In other words, those combinations of elements between the specified variables that is not contained in the input table.


# Example with return = "logic", the default

is_balanced(df = x1,
            by = c("id", "t"))
#> [1] FALSE

# Example with return = "table"
is_balanced(df = x1,
            by = c("id", "t"), 
            return = "table")
#>   id t
#> 1  3 1
#> 2  2 2

Tabulating simple frequencies

Furthermore, joyn provides a function that generates simple frequency tables, so that you can easily have an overview of the distribution of values within your data tables.


# Tabulating frequencies of var `id`

freq_table(x     = x1, 
           byvar = "id")
#>        id     n percent
#>    <char> <int>  <char>
#> 1:   <NA>     1     20%
#> 2:      1     2     40%
#> 3:      2     1     20%
#> 4:      3     1     20%
#> 5:  total     5    100%

# Removing NAs from the calculation

freq_table(x     = x1, 
           byvar = "id", 
           na.rm = TRUE)
#>        id     n percent
#>    <char> <int>  <char>
#> 1:   <NA>     1     20%
#> 2:      1     2     40%
#> 3:      2     1     20%
#> 4:      3     1     20%
#> 5:  total     5    100%

Renaming variables

TODO: Check why rename_to_valid is exported