今天我们分析一下美国总统的国情咨文，分析一下总统获得的掌声次数和支持率的关系，及国情咨文的词云简单实现。

#载入包和设置环境目录

#整理数据

#生成词频矩阵

#绘制词云

生成词云时，如果你使用Rstudio那么请将窗口跳到最大，否则会显示不完全

生成词云时，如果你使用Rstudio那么请将窗口跳到最大，否则会显示不完全

#解除tm包

这里为什么多了一步，因为tm包和ggplot2包都有一个函数annotate，如果不解除tm，ggplot2的annotate会被tm里的取代，引起下面做图错误。

#绘制折线图

相关数据和代码：http://pan.baidu.com/s/1hqxVg7y   密码：微信索取

关于我们，关注理性与文艺，用数据创作内容性的精致阅读，这里是数据分析挖掘人员与文艺青年的集结地，不做培训，不做鼓吹，只踏踏实实的做一个又一个数据驱动的文章，并设计机器人减轻数据分析的负担，无论你感兴趣还是想参与都可以关注，请加微信公众号大音如霜