感情分析R

Question

感情分析に焦点を当てたRパッケージはありますか？私は、ユーザーがWebツールを使用した経験についてのコメントを書くことができる小さな調査をしています。私は数値的なランク付けをお願いし、コメントを入れることもできます。

私は、コメントの正当性や否定性を評価する最良の方法が何であるか疑問に思っています。私はR.

に感情分析にコードをやった仕事は決して、であるR.

Answer 1

そしてthis packageがあります：

sentiment: Tools for Sentiment Analysis

感情はポジティブ/ネガティブ感情分類のためのベイジアン分類を含む評判分析のためのツールとのRパッケージです。

アップデート2012年12月14日：それはarchiveに削除されました...

アップデート2013年3月15日：qdapパッケージには、ジェフリー・ブリーンの仕事

Answer 2

Here'sを使用して、ユーザーが提供する数値のランキングにそれを比較できるようにしたいと思い、磨かれているか、または丁寧にパッケージ化されていますが、posted it on Githubの基本的なドキュメントがあります。私はViralHeat sentiment APIを使用しました。これはJSONを返すだけなので、感情分析を行う実際の関数はかなり簡単です（コードhereを参照）。

ご使用に問題がある場合は、私に連絡してください。また、ViralHeatを使用するには、その前にAPIキーを登録する必要があります。クォータがあまりにも制限されているとわかっている場合は、私はそれらに連絡していました。APIを使いながら数ヶ月間クエリを提供してくれました。

Answer 3

に基づいて、polarity機能を持っているステップバイステップガイドのためには、 1）ウィルスヒートAPI 2）ジェフリーブリーンのアプローチ3）センチメントパッケージを使用して、このリンクをチェックしてください：https://sites.google.com/site/miningtwitter/questions/sentiment

Answer 4

あなたはまだ感情パッケージを使用することができます。以下のスクリプトに従ってインストールしてください。

R 3.xが必要な場合があります。

require(devtools) 
install_url("http://cran.r-project.org/src/contrib/Archive/sentiment/sentiment_0.2.tar.gz") 
require(sentiment) 
ls("package:sentiment") 

Answer 5

私は再構成し、凝集感情分析パッケージhereを提供しようとしました。 SentRには単語のステミングと前処理が含まれており、デフォルトの集約関数であるViralHeat APIや、より高度なNaive Bayesメソッドにアクセスできます。

インストールは比較的簡単です：

install.packages('devtools') 
require('devtools') 
install_github('mananshah99/sentR') 
require('sentR') 

、簡単な分類の例：以下の出力を提供

# Create small vectors for happy and sad words (useful in aggregate(...) function) 
positive <- c('happy', 'well-off', 'good', 'happiness') 
negative <- c('sad', 'bad', 'miserable', 'terrible') 

# Words to test sentiment 
test <- c('I am a very happy person.', 'I am a very sad person', 
'I’ve always understood happiness to be appreciation. There is no greater happiness than appreciation for what one has- both physically and in the way of relationships and ideologies. The unhappy seek that which they do not have and can not fully appreciate the things around them. I don’t expect much from life. I don’t need a high paying job, a big house or fancy cars. I simply wish to be able to live my life appreciating everything around me. 
') 

# 1. Simple Summation 
out <- classify.aggregate(test, positive, negative) 
out 

# 2. Naive Bayes 
out <- classify.naivebayes(test) 
out 

：

score 
1  1 
2 -1 
3  2 

    POS    NEG     POS/NEG    SENT  
[1,] "9.47547003995745" "0.445453222112551" "21.2715265477714" "positive" 
[2,] "1.03127774142571" "9.47547003995745" "0.108836578774127" "negative" 
[3,] "67.1985217685598" "35.1792261323723" "1.9101762362738" "positive" 

貢献すること自由に感じてください:)を希望それは助ける！