最近才接触到R语言，用了一小会之后，感觉真的非常方便，之前做的iOS垃圾短信判断正好也需要做一个统计图表，于是果断用R语言写了一小段程序。

期间还遇到了中文不能正常显示的问题，不过还好CRAN上已经有解决方案了，感谢R Project和所有R语言的开发者。

先来说说中文的事情吧，为了正常使用中文字体，有一个前提是系统中要有X11支持，因为待会依赖库将使用这个特性。

我们将使用到showtext和sysfonts这两个库，你可以在CRAN上获得它们。然后放到/Library/Frameworks/R.framework/Resources/library/目录下就可以愉快的玩耍了。

在使用library(showtext)时，showtext会自动加载sysfonts。为了添加字体，我们可以使用font.add("字体名","字体路径")，这里的字体路径默认搜索当前目录和系统字体目录。

以下贴上一小段R语言写的统计源代码。R语言能实现的功能非常多，这里仅仅是冰山一角（其实可以说连冰山一角都算不上）。

Code

require(datasets)
require(grDevices)
require(graphics)
library(showtext)

font.add("Kaiti","Kaiti.ttc")

plot.new()
showtext.begin()
pie.sales <- c(22,14,10,8,8,7,7,7,6,6,6,6,6,5,5,5,5,5,5,4,4,4,4,4,3)
names(pie.sales) <- c("澳门","网址","赌场","不是","直营","官方","博彩","注册","首选","信誉第一","玩家","分钟","问题","百家","开户","输赢","投注","真人","网上","使用","轮 盘","彩票","绝对","大额","赌博")
pie(pie.sales, col = rainbow(25), edges=400, radius=1)

title(main = "垃圾短信高频词汇(赌博类)", cex.main = 1.4, font.main = 3, family="Kaiti")

title(xlab = "图1-1", cex.lab = 0.8, font.lab = 3,family="Kaiti")

showtext.end()