NRC의 놀라운 세계

마지막으로, 여러 감정 상태에 따라 단어에 레이블을 지정하는 NRC 어휘 사전을 다뤄볼 차례입니다. Plutchik의 감정의 바퀴를 기억하시나요? NRC 어휘 사전은 Plutchik의 8가지 감정과 긍정/부정을 기준으로 단어에 태그를 붙입니다.

이번 연습 문제에서는 벡터를 다른 벡터와 대조하는 새로운 연산자 %in%가 등장합니다. 아래 코드에서 %in%는 FALSE, FALSE, TRUE를 반환합니다. some_vec의 1과 2는 some_other_vector에 없지만, 3은 있으므로 TRUE가 반환되기 때문입니다. %in%는 일치하는 항목을 찾을 때 유용합니다.

some_vec <- c(1, 2, 3)
some_other_vector <- c(3, "a", "b")
some_vec %in% some_other_vector

또 다른 새로운 연산자는 !입니다. 논리 조건에서 !를 추가하면 결과가 반전됩니다. 위 예시에서 FALSE, FALSE, TRUE는 TRUE, TRUE, FALSE로 바뀝니다. %in%와 함께 사용하면 일치하는 항목을 제거할 때 효과적입니다.

!some_vec %in% some_other_vector

오즈의 마법사의 tidy 형식 버전인 oz와 컬럼명이 변경된 "NRC" 어휘 사전이 담긴 nrc를 미리 준비해 두었습니다.

이 연습은 강의의 일부입니다

R을 활용한 감성 분석

강의 보기

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

oz_plutchik <- oz %>% 
  # Join to nrc lexicon by term = word
  inner_join(___, by = ___("___" = "___")) %>% 
  # Only consider Plutchik sentiments
  ___(!___ %in% c("___", "___")) %>%
  # Group by sentiment
  ___(___) %>% 
  # Get total count by sentiment
  ___(total_count = ___(___))

코드 편집 및 실행