감정사전을 이용한 감정분석
라이브러리 블러오기
library(tm.plugin.sentiment)
극(polarity) 감정 점수 계산하기
senti.lm <- polarity(dtm, names(pos.lm), names(neg.lm))
senti.lasso <- polarity(dtm, names(pos.lasso), names(neg.lasso))
senti.ridge <- polarity(dtm, names(pos.ridge), names(neg.ridge))
senti.elastic <- polarity(dtm, names(pos.elastic), names(neg.elastic))
저장된 단어사전(csv파일)으로부터 극(polarity) 감정 점수 계산하기
pos.lm.csv <- read.csv('pos.lm.csv')
neg.lm.csv <- read.csv('neg.lm.csv')
pos.lasso.csv <- read.csv('pos.lasso.csv')
neg.lasso.csv <- read.csv('neg.lasso.csv')
senti.lm <- polarity(dtm, pos.lm.csv[,1], neg.lm.csv[,1])
senti.lasso <- polarity(dtm, pos.lasso.csv[,1], neg.lasso.csv[,1])