fruits_alex <- c("apple", "banana", "cherry")
fruits_bea <- c("banana", "cherry", "date")

union(fruits_alex, fruits_bea)
# "apple"  "banana" "cherry" "date"

intersect(fruits_alex, fruits_bea)
# "banana" "cherry"

setdiff(fruits_alex, fruits_bea)
# "apple"