집합 연산

Coddy R 여정의 논리와 흐름 섹션에 포함된 레슨. 64개 중 13번째.

세 함수는 두 벡터를 집합으로 결합합니다. 각 함수는 중복되지 않는 값을 반환합니다:

union(a, b)은 두 벡터 중 하나에 있는 값을, intersect(a, b)는 두 벡터 모두에 있는 값을, setdiff(a, b)는 b에는 없는 a의 값을 반환합니다.

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

출력:

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

setdiff()는 인수의 순서에 따라 결과가 달라집니다. 두 번째 벡터에만 있는 값을 얻으려면 인수의 순서를 바꾸세요:

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

출력:

[1] "dee"

아무것도 남지 않으면 결과는 빈 벡터이며, 텍스트의 경우 character(0)입니다:

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

출력:

character(0)

결과는 첫 번째 벡터의 순서를 유지합니다. 출력에 예측 가능한 순서가 필요하면 정렬하고, 결합하기 전에 결과가 비어 있는지 확인하세요:

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

출력:

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

챌린지

쉬움

compare_courses(a, b)를 완성하세요. a와 b는 두 과정의 학생들입니다. 다음 세 줄을 반환하세요:

Both: 뒤에 두 과정에 모두 속한 학생들을 표시합니다
Only first: 뒤에 a에만 속한 학생들을 표시합니다
Total: 뒤에 두 과정에 걸쳐 중복되지 않는 학생 수를 표시합니다

각 목록의 이름을 정렬하고 , 로 연결하세요. 빈 목록은 none으로 표시합니다.

제공된 코드는 쉼표로 구분된 줄로 두 과정을 읽고 반환된 각 줄을 출력합니다.

직접 해보기

compare_courses <- function(a, b) {
  # 여기에 코드를 작성하세요
  c("Both: ", "Only first: ", "Total: 0")
}

# 제공된 입력/출력 코드: 그대로 유지하세요
input <- suppressWarnings(readLines(file("stdin")))
cat(compare_courses(strsplit(input[1], ",")[[1]], strsplit(input[2], ",")[[1]]), sep = "\n")