Sys.setlocale("LC_ALL", "zh_cn.utf-8")
另外，ggplot作图中文也乱码，表示为小方块，在作图代码后加入下面的代码可以解决：
+theme(text = element_text(family='Kai'))
由于R语言画图时对中文的支持，经常出现乱码，作图很难显示中文，尤其是ggplot2对中文支持不是特别友好，ggplot默认字体不支持显示中文，给许多使用的人带来不便，希望yihui大神能在Rstudio推动一下。可以有一些变通的处理方法：
安装showtext包
install.packages("extrafont")
library(extrafont)
font_import()
ggplot
用Cairo包进行保存为png、pdf等格式
使用因子数据变相替换。
举个例子
