감정사전을 이용한 감정분석 :: 감정 분석 - mindscale
Skip to content

감정사전을 이용한 감정분석

라이브러리 블러오기

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])