正想準備做一個情感分析，結果在網上搜了一些資料，然後發現了一個專門用來做英文情感分析的包，再說一遍是做英文情感分析的包——RSentiment。

了解之後發現這個包比較簡單，只有6個函數，每個函數的參數也都特別少，至少一個,最多才三個。這六個函數的作用都一樣，只是返回值和參數略有不同罷了，先來說說每個函數的返回值，再來詳細介紹兩個函數。

calculate_custom_score

至於其他函數和這兩個函數的使用方法幾乎完全一樣的。

接下來我們就開始我們的正文，通過分析特朗普的就職演講來簡單預測一下美國政治在他任期的一個走向。

install.packages("RSentiment")  #沒有按照的話需要先安裝這個包
 

library(RSentiment)  #加載包

首先，我們先來通過特朗普的就職演講來對他進行的情感分析。

Trump<-scan("Trump.txt",what = "",sep="\n",encoding = "UTF-8") #讀取文件Trump_score<-calculate_total_presence_sentiment(Trump)

這是對特朗普就職演講的分析結果。這個函數直接給出了各個情緒指標的數值。

至於其他函數和這兩個函數的使用方法幾乎完全一樣的。

接下來我們就開始我們的正文，通過分析特朗普的就職演講來簡單預測一下美國政治在他任期的一個走向。

install.packages("RSentiment")  #沒有按照的話需要先安裝這個包
library(RSentiment)  #加載包

首先，我們先來通過特朗普的就職演講來對他進行的情感分析。

Trump<-scan("Trump.txt",what = "",sep="\n",encoding = "UTF-8") #讀取文件 Trump_score<-calculate_total_presence_sentiment(Trump)

這是對特朗普就職演講的分析結果。這個函數直接給出了各個情緒指標的數值。

從這張圖中，我們可以看到，特朗普在就職演講中表現的態度非常積極，但同時表現的稍微消極。

說起奧巴馬，2008年他競選總統，新罕布什爾的一篇演講《yes，we can》,不知道燃起了多少人對實現美國夢的希望，也是這篇演講，讓奧巴馬成功擊敗對手羅姆尼，成為第44任美國總統，也是美國歷史上第一位非裔美國人總統。

2008年2月,是由嘻哈樂團“黑眼豆豆（Black Eyed Peas）”主唱Will.i.am根據奧巴馬在《yes,we can》，創作的單曲《Yes We Can》。

在這裏，我們就不分析這篇演講了，因為演講都是積極向上的，帶有鼓動性和煽動性的，這就是美國總統的競選方式。在這裏我還是分析奧巴馬就職演講。

Obama <-scan("Obama.txt",what = "",sep="\n",encoding = "UTF-8")
Obama_score<-calculate_total_presence_sentiment(Obama)

我們可以發現奧巴馬表現的比較中肯，比較積極但也略帶消極。這種表現還是比較客觀的，正反都有。這就跟我們對一個客觀實際的評價，不能只說好，也不能說都是壞的，因此我們需要客觀評價，正反觀點都有。說到這，你還記得小時候有這麽一篇語文作文——談談你認為互聯網對小學生是利大於弊還是弊大於利。自己想，我就不說了。

現在我們將奧巴馬和特朗普的進行一個比較。

從圖中，我們可以清楚的發現，奧巴馬的圖形狀像山一樣，中間高，兩邊低，而特朗普的圖就像波浪一樣，此起彼伏。我們可以很明顯的發現，特朗普表現的是非常的積極，積極的好像有點過火。可以看到特朗普的消極程度差不多是奧巴馬的四倍，朗普對奧巴馬在任期間的政績有多麽消極和不滿，因此在競選期間特朗普公然挑釁奧巴馬，也爆料稱，該出生證“系偽造”。

同時他有表現的非常積極，這裏的積極我認為源於他的自信，但是他的自信恐怕是盲目的，自信的讓人有點不敢相信。我不知道用夜郎自大，自命不凡來形容對不對。我覺得他有點像“P子”,看誰不順眼，就盆誰。

他曾評價奧巴馬主推的伊核協議為“美國簽訂的最槽糕和最單方面的協議之一”，是“美國的難堪”，話間表露出將會廢除伊核協議的態度。怒斥聯合國為無用之地。

準備廢除奧巴馬的醫保案，“童年抵美者暫緩遣返”計劃，退出巴黎協議，在聯合國大會中，特朗普，表示一旦美國沒有選擇余地，美國將完全地摧毀朝鮮，他並且戲稱朝鮮領導人金正恩為“火箭人”，當時朝鮮代表全部離席。

下來我們再來看看他在推特上面都懟過誰。

1. 攻擊NBC節目《周六夜現場》

2. 諷刺美國一線明星

3. 嗆聲好萊塢女演員梅麗爾·斯特裏普

4. 威脅燒國旗民眾

5. 取消“空軍一號”訂單

6. 汙蔑中國“操縱”貨幣

7. .....

最近美國拉斯維加斯發生美國史上死亡人數最多的槍擊案，已造成58人死亡，515人送醫治療。這個時候總統怎麽能閑下來，這不，又來發推特了。

這是因為特朗普簽署的禁穆令，而奧巴馬任內啟動的在美重新安置敘難民計劃遭無限期中止。

正是因為特朗普的推特治國引起人們的不滿，美國中情局前特工瓦萊麗·普萊姆(Valerie Plame)正在眾籌網站上募資10億美元，計劃買下推特的大量股份，然後關掉特朗普的推特賬號。

因此我認為我特朗普會繼續廢除奧巴馬以及之前總統建立的某些制度，這個數量並不會少，同時，特朗普會以自己為中心，建立更多民眾並不是很贊同的各項制度，由於個人色彩濃烈，身邊的人才也會漸漸流失，自上任200多天以來，被解職或離職的要員總共14人。同時連任的可能性不大，除非背後有貴人相助，你懂得。（個人觀點，無需在意）

但歷史上還真有一位總統在就職演講時表現的特朗普一樣的積極。他就是美國歷史上唯一一位連任四屆總統的——羅斯福。

Roosevelt<-scan("Roosevelt.txt",what = "",sep="\n",encoding = "UTF-8")
Roosevelt_score<-calculate_total_presence_sentiment(Roosevelt)

現在，我們將特朗普和羅斯福進行比較。

在圖中，我們可以發現這些指數都是遞增的。如果有人問我那特朗普能和羅斯福相比嗎？這結果能信嗎？但如果我們和歷史背景結合起來的，那你就相信了。

羅斯福首次履任總統是在1933年初，正值經濟大蕭條的風暴席卷美國的時候，到處是失業、破產、倒閉、暴跌，到處可見美國的痛苦、恐懼和絕望。羅斯福卻表現出一種壓倒一切的自信，他在宣誓就職時發表了一篇富有激情的演說，告訴人們：我們惟一害怕的就是恐懼本身。身為總統，他需要立馬解決這些問題。在演講中，他當然需要表現的十分積極，鼓勵人民群眾不要氣餒，美國還是有希望，他有能力帶領大家走出困境，大家一定要相信我。結果羅斯福真的做到了。

羅斯福把保持國民經濟的正常運行和保證公民就業以工代賑的形式修建的一大批工程項目，如田納西河流域工程，不僅大大緩解了失業困難，刺激了經濟的早日復蘇，而且許多基礎設施建設使美國經濟受益無窮。新政留下了大量防止再次發生大蕭條的措施和政策，為美國投入二次大戰及戰後的快速崛起奠定了堅實的基礎，羅斯福也因此成為自亞伯拉罕·林肯以來最受美國和世界公眾歡迎的總統而永載史冊。
好了，今天就給大家說這麽多，限於個人水平有限，分析不到位的地方還望大家諒解，歡迎批評指正。本文主要目的是介紹如何使用該包進行情感分析，其余關於三位總統評價純屬豐富文章內容。

如果想要獲取就職演講數據請點擊閱讀原文，提取碼dghe。如果你想嘗試使用詞典的方法來分析的話，後臺回復：知網情感詞庫 即可獲取下載鏈接。

溫馨提示：

1. 如果在運行程序中出現錯誤提示： Java heap space 解決方法就是再試著運行一次或關閉R重新打開再運行。

2. 如果使用我提供的知網情感詞庫，使用之前如圖請把前面這兩行刪掉，以免出錯。（使用詞典和不使用詞典分析出來的結果差別比較大。）

。

轉載請註明：

作者：王亨

公眾號：跟著菜鳥一起學R語言

原文鏈接：http://blog.csdn.net/wzgl__wh

本文出自 “11566874” 博客，請務必保留此出處http://11576874.blog.51cto.com/11566874/1970725

情感分析 | 一份就職宣誓也許就可以預測一個國家未來幾年的政治形勢