Operasi set

Termasuk bagian Logika dan Alur dalam perjalanan R di Coddy. Pelajaran 13 dari 64.

Tiga fungsi menggabungkan dua vector sebagai set. Masing-masing mengembalikan nilai tanpa pengulangan:

union(a, b) berisi nilai yang ada di salah satu vector, intersect(a, b) berisi nilai yang ada di keduanya, dan setdiff(a, b) berisi nilai a yang tidak ada di b.

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

Output:

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

setdiff() bergantung pada urutan argumennya. Tukar urutannya untuk mendapatkan nilai yang hanya ada di vektor kedua:

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

Output:

[1] "dee"

Jika tidak ada yang tersisa, hasilnya adalah vector kosong, character(0) untuk teks:

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

Output:

character(0)

Hasilnya mengikuti urutan vektor pertama. Urutkan hasilnya jika output memerlukan urutan yang dapat diprediksi, dan periksa apakah hasilnya kosong sebelum menggabungkan:

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

Output:

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

Tantangan

Mudah

Lengkapi compare_courses(a, b). a dan b adalah para siswa dari dua kursus. Kembalikan tiga baris:

Both: diikuti para siswa di kedua kursus
Only first: diikuti para siswa yang hanya ada di a
Total: diikuti jumlah siswa yang berbeda di kedua kursus

Urutkan nama dalam setiap list dan gabungkan dengan , . Tulis list kosong sebagai none.

Kode yang disediakan membaca kedua kursus sebagai baris yang dipisahkan koma dan mencetak setiap baris yang dikembalikan.

Coba sendiri

compare_courses <- function(a, b) {
  # Tulis kodemu di sini
  c("Both: ", "Only first: ", "Total: 0")
}

# Kode input/output yang disediakan: biarkan apa adanya
input <- suppressWarnings(readLines(file("stdin")))
cat(compare_courses(strsplit(input[1], ",")[[1]], strsplit(input[2], ",")[[1]]), sep = "\n")