Operazioni sugli insiemi

Fa parte della sezione Logica e flusso del percorso R di Coddy. Lezione 13 di 64.

Tre funzioni combinano due vettori come insiemi. Ognuna restituisce valori senza ripetizioni:

union(a, b) contiene i valori presenti in uno dei due vettori, intersect(a, b) quelli presenti in entrambi e setdiff(a, b) i valori di a che non sono in 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() dipende dall'ordine dei suoi argomenti. Scambiali per ottenere i valori presenti solo nel secondo vettore:

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

Output:

[1] "dee"

Quando non resta nulla, il risultato è un vettore vuoto, character(0) per il testo:

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

Output:

character(0)

I risultati mantengono l’ordine del primo vettore. Ordinali quando l’output deve avere un ordine prevedibile e controlla se il risultato è vuoto prima di unirlo:

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

Sfida

Facile

Completa compare_courses(a, b). a e b sono gli studenti di due corsi. Restituisci tre righe:

Both: seguito dagli studenti di entrambi i corsi
Only first: seguito dagli studenti presenti solo in a
Total: seguito dal numero di studenti distinti in entrambi i corsi

Ordina i nomi in ogni elenco e uniscili con , . Un elenco vuoto è scritto none.

Il codice fornito legge i due corsi come righe separate da virgole e stampa ogni riga restituita.

Provalo tu

compare_courses <- function(a, b) {
  # Escribe tu código aquí
  c("Both: ", "Only first: ", "Total: 0")
}

# Código de entrada/salida proporcionado: déjalo tal como está
input <- suppressWarnings(readLines(file("stdin")))
cat(compare_courses(strsplit(input[1], ",")[[1]], strsplit(input[2], ",")[[1]]), sep = "\n")