Các phép toán trên tập hợp

Ba hàm kết hợp hai vectơ dưới dạng tập hợp. Mỗi hàm trả về các giá trị không lặp lại:

union(a, b) có các giá trị xuất hiện trong một trong hai vectơ, intersect(a, b) có các giá trị xuất hiện trong cả hai, còn setdiff(a, b) có các giá trị của a không có trong b.

mon <- c("ana", "ben", "cy")
tue <- c("ben", "dee", "cy", "ben")
print(union(mon, tue))
print(intersect(mon, tue))
print(setdiff(mon, tue))

Đầu ra:

[1] "ana" "ben" "cy"  "dee"
[1] "ben" "cy" 
[1] "ana"

setdiff() phụ thuộc vào thứ tự của các đối số. Đổi chỗ chúng để lấy các giá trị chỉ có trong vectơ thứ hai:

mon <- c("ana", "ben", "cy")
tue <- c("ben", "dee", "cy")
print(setdiff(tue, mon))

Đầu ra:

[1] "dee"

Khi không còn gì, kết quả là một vector rỗng, character(0) đối với văn bản:

print(intersect(c("a", "b"), c("x", "y")))

Đầu ra:

character(0)

Kết quả giữ nguyên thứ tự của vector đầu tiên. Hãy sắp xếp chúng khi đầu ra cần có thứ tự nhất quán, và kiểm tra xem kết quả có rỗng không trước khi ghép:

a <- c("pear", "fig", "kiwi")
b <- c("kiwi", "pear")
both <- sort(intersect(a, b))
print(paste(both, collapse = ", "))
print(length(setdiff(b, a)) == 0)

Đầu ra:

[1] "kiwi, pear"
[1] TRUE