Skip to contents

Set Differences

Source: R/set_diff.R
set_diff.Rd

Function for testing for unique values between two vectors, specifically, which values are in vector1, and not in vector2, which values are not in vector1 and in vector2, which values are in both vector1 and vector2.

Usage

set_diff(x, y)

# S3 method for class 'qwraps2_set_diff'
print(x, verbose = (length(x$x_only) < 10 && length(x$y_only) < 10), ...)

Arguments

x, y

vectors (of the same mode)

verbose

a logical value indicating whether to print the unique elements in each set.

...

ignored

Value

a qwraps2_set_diff object, a list of set comparisons

Examples


# example with two sets which as a union are the upper and lower case vowels.
set_a <- c("A", "a", "E",      "I", "i", "O", "o", "U", "u", "E", "I")
set_b <- c("A", "a", "E", "e",      "i",      "o", "U", "u", "u", "a", "e")

set_diff(set_a, set_b)
#> Total number of unique values: 10
#> Number of elements in both set_a and set_b: 7
#> Number of elements only in set_a: 2
#>   unique elements: I, O
#> Number of elements only in set_b: 1
#>   unique elements: e
str(set_diff(set_a, set_b))
#> List of 5
#>  $ all_values: chr [1:10] "A" "a" "E" "I" ...
#>  $ x_only    : chr [1:2] "I" "O"
#>  $ y_only    : chr "e"
#>  $ both      : chr [1:7] "A" "a" "E" "i" ...
#>  $ equal     : logi FALSE
#>  - attr(*, "xname")= chr "set_a"
#>  - attr(*, "yname")= chr "set_b"
#>  - attr(*, "class")= chr "qwraps2_set_diff"

set_diff(set_b, set_a)
#> Total number of unique values: 10
#> Number of elements in both set_b and set_a: 7
#> Number of elements only in set_b: 1
#>   unique elements: e
#> Number of elements only in set_a: 2
#>   unique elements: I, O

# example
set_a <- 1:90
set_b <- set_a[-c(23, 48)]
set_diff(set_a, set_b)
#> Total number of unique values: 90
#> Number of elements in both set_a and set_b: 88
#> Number of elements only in set_a: 2
#>   unique elements: 23, 48
#> Number of elements only in set_b: 0
set_diff(set_b, set_a)
#> Total number of unique values: 90
#> Number of elements in both set_b and set_a: 88
#> Number of elements only in set_b: 0
#> Number of elements only in set_a: 2
#>   unique elements: 23, 48

# example
set_a <- c("A", "A", "B")
set_b <- c("B", "A")
set_diff(set_a, set_b)
#> Total number of unique values: 2
#> Number of elements in both set_a and set_b: 2
#> Number of elements only in set_a: 0
#> Number of elements only in set_b: 0

# When there are 10 or more unique items in either set, the default print will
# omit printing them by default.  Use the verbose argument to change this

x <-
  set_diff(
    x = c(LETTERS, letters[1:10]),
    y = letters
  )
print(x)
#> Total number of unique values: 52
#> Number of elements in both c(LETTERS, letters[1:10]) and letters: 10
#> Number of elements only in c(LETTERS, letters[1:10]): 26
#> Number of elements only in letters: 16
print(x, verbose = TRUE)
#> Total number of unique values: 52
#> Number of elements in both c(LETTERS, letters[1:10]) and letters: 10
#> Number of elements only in c(LETTERS, letters[1:10]): 26
#>   unique elements: A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z
#> Number of elements only in letters: 16
#>   unique elements: k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z