丢掉表格软件,使用R语言吧>ω</

最近才接触到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()

声明: 本文为0xBBC原创, 转载注明出处喵~

发表评论

电子邮件地址不会被公开。 必填项已用*标注