setA<-c("a", "b", "c", "d", "e")
setB<-c("d", "e", "f", "g")
union(setA,setB) #la probabilidad de A más la probabilidad de B
## [1] "a" "b" "c" "d" "e" "f" "g"
intersect(setA,setB) #la probabilidad de A y B
## [1] "d" "e"
setdiff(setA,setB) #El complemento de A
## [1] "a" "b" "c"
setdiff(setB,setA) #El complemento de B
## [1] "f" "g"
setequal(setA, setB)
## [1] FALSE

Ejemplo: se generan conjuntos de datos de los números del uno al treinta.

SS como espacio muestral de todos los números enteros del uno al treinta;

pares los números pares del dos al treinta generados con la función seq().

nones los números nones del uno al treinta generados con la función seq().

primos los números primos entre uno y treinta

S <- 1:30 # 1,2,3,4,5,6,7,8,9,10
pares <- seq(2,30,2)
nones <- seq(1,30,2)
primos <- c(1,2,3,5,7,11,13,17,19,23,29)

S
##  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
## [26] 26 27 28 29 30

Unión

union (pares, nones)
##  [1]  2  4  6  8 10 12 14 16 18 20 22 24 26 28 30  1  3  5  7  9 11 13 15 17 19
## [26] 21 23 25 27 29

Intersección

intersect(pares, nones)
## numeric(0)
intersect(nones, primos)
##  [1]  1  3  5  7 11 13 17 19 23 29

Complemento

setdiff(nones, primos)
## [1]  9 15 21 25 27
library(VennDiagram)
## Loading required package: grid
## Loading required package: futile.logger
grid.newpage()
grid.newpage()

## A simple two-set diagram
venn.plot <- draw.pairwise.venn(area1      = 100,
                                area2      = 70,
                                cross.area = 30,
                                category   = c("First", "Second"))

Fuente: https://rstudio-pubs-static.s3.amazonaws.com/755308_edc13b31ea474f2e8ed74f9406c4e086.html