第二届中国 R 语言会议北京会场合影

第二届中国 R 语言会议上海会场演讲者和工作人员合影

2009 年 12 月 5~6 日以及 2009 年 12 月 12~13 日，第二届中国 R 语言会议分别在北京和上海两个分会场成功召开。北京会场由中国人民大学应用统计科学研究中心和中国人民大学统计学院主办；上海会场由华东师范大学资源与环境科学学院、金融与统计学院主办，Mango Solutions 咨询公司提供赞助。对 R 语言在中国的推广做出了杰出贡献的吴喜之教授和谢益辉博士远在美国为本次会议发来祝贺；中国 R 语言的领军人物、华东师范大学的汤银才老师也应邀参加会议并做了专题报告。两个会场的会议就 R 语言在众多领域中的应用展开了广泛的交流和讨论，为 R 语言在中国的进一步应用和推广开辟了更宽阔的道路。

本次会议的主题是 “无处不在的 R”，也即印在参会胸牌上的“use R eveRywheRe”，意指 R 的应用领域之广；同时，“use R eveRywheRe” 又可看成是“useR eveRywheRe”，意指 R 的使用者遍布四面八方。

从会议的结果来看，演讲的内容和参会者所在的单位都很好地契合了这一主题。

北京和上海两地会议共吸引了 90 余家单位共 300 余人参加，参会单位包括：

• 高校：北京交通大学、北京科技大学、北京林业大学、北京师范大学、东华大学、东南大学、复旦大学、华东师范大学、华中科技大学、吉林大学、剑桥大学、江苏大学、南京财经大学、南京人口管理干部学院、南京人口学院、南京信息工程大学、清华大学、山东大学、上海财经大学、上海大学、上海电机学院、上海海洋大学、首都经济贸易大学、苏州大学系统生物学中心、西北师范大学、西藏民族学院财经学院、新加坡国立大学、英国杜伦大学、浙江大学、中国科学院研究生院、中国农业大学、中国人民大学、中国石油大学、中南大学、中央财经大学、中央民族大学等
• 科研机构：东海所、上海交通大学瑞金医院、南京地质古生物研究所、上海生命科学研究所、上海植生所、上海中医药大学附属龙华医院、协和医院基础医学所、宣武医院、有色金属技术经济研究院、中国地质环境监测院、中科院动物研究所、中科院生态中心、中科院西双版纳植物园、中科院系统科学研究所、中国科学院计算机网络信息中心、中国科学院马普计算生物学研究所、中国科学院上海生命科学研究院计算生物学研究所、中国科学院植物研究所、中国林业科学研究院、中国农业科学院、中国食品发酵工业研究院、中国水稻研究所等
• 公司企业：Alipay、CUPL、IMShealth、Iresearch、Mango Solutions、SAS Institute、SIPPE、SPSS China、北京瑞丽杂志社、北京中彩在线科技有限责任公司、贝塔斯曼集团、方正科技集团股份有限公司、好耶、科瑞纳、摩托罗拉、欧维特服务、赛诺菲巴斯德生物统计中国部、上海汇众汽车制造有限公司、上海源略数据、思创软件、拓普公司、网秦、新华信国际信息咨询 (北京)、中科软科技股份有限公司、中芯国际等
• 政府部门及事业单位：北京市质量协会、国家统计局、国家知识产权局专利局、宁波市疾控等

用 R 对填写了年龄信息的参会人员数据进行汇总，得到年龄分布的结果如下：

Min. 1st Qu.  Median    Mean 3rd Qu.    Max.
  18.00   22.00   24.00   24.93   27.00   45.00

  18 | 00
  20 | 00000000000000000000000000000
  22 | 00000000000000000000000000000000000000000000000000000000000000000000
  24 | 0000000000000000000000000000000000000
  26 | 000000000000000000000000000000000000000000
  28 | 0000000000000
  30 | 0000000000
  32 | 000000
  34 | 0000
  36 | 000
  38 | 00
  40 |
  42 |
  44 | 0

从中不难看出 R 的使用者大体是年轻一代，同时也不乏年龄稍大、经验丰富的一批人。

参会的人员大都来自高校和科研机构，包括在校学生、高校老师、科研所研究员等；来自企业和政府部门的朋友也对本次会议给予了极大的关注和支持，他们的职业包括了程序员、软件工程师、系统分析师、公务员、数据挖掘工程师、公司职员、咨询师等等。

本次会议要特别感谢各位演讲者的大力支持，他们为演讲报告付出了大量的精力和时间，有的不远千里奔赴两地进行演讲，有的则是通宵达旦修改讲稿。在总共为期四天的会议时间中，共举行了正式演讲 34 场，其中北京会场 19 场，上海会场 15 场。以下演讲资料都遵守 CC 协议，其中部分遵守 CC2.5 协议：

北京会场：

上海会场：

• 汤银才老师：R 与 WinBUGS
• 林光启：R 和统计在半导体界的应用
• 魏太云：矩阵可视化及 corrplot 包的介绍（见北京会场）
• 高涛、李程：统计图形概览与其在 R 下的实现（见北京会场）
• 王卫杰：基于 rpart 包的决策树应用
• 于怡：Survival Analysis in R
• 马斌：应用 omd 包对 QSAR 分析中分子结构参数矩阵的优化（见北京会场）
• 奚潭：R 在灰色系统理论方面的应用（见北京会场）
• 陈丽云：从经济学到 R 语言：在经济和计量中使用 R（见北京会场）
• 肖楠：R 环境安全特性初探与前瞻（见北京会场）
• 刘思喆：153 分钟学会 R
• 刘思喆：R 在大规模数据整理及自动化报告方面的应用（见北京会场）
• 李舰：R 在应用领域的扩展——JAVA 开发和最优化
• 谢益辉（刘思喆代讲）：怎么写 R 包
• 林帧舜：Marketing Analytical Framework

1. 在谢益辉博士的建议下，未来的 R 语言会议可能会邀请到 R 核心团队（R Development Core Team）成员来中国进行演讲和交流，并希望以暑期学校的形式让更多的人参与到 R 语言的学习中；
2. 在第一届 R 语言会议的基础上，本届会议采取了北京和上海两个分会场的形式举办，今后有望将会议的地点转向国内更多的地区，使得 R 语言的影响力进一步扩大；
3. 为加强大家的交流与合作，平时可以在全国各地举办更多的小型讨论会，巩固和丰富年度 R 语言会议的成果；
4. 更多，请畅所欲言……

本次会议的很多组织者和参会者都在博客和论坛帖子中记录下了自己眼中的 R 语言会议，现收录如下：

同时也欢迎您将自己在会议期间的照片、感想等与大家一起分享！

附录：用 R 生成会议胸牌

本次会议所用的胸牌完全是用 R 代码生成的，其中用到了 rimage 这个包（现在 CRAN 上不再提供 rimage 包的 Windows 版本，如果想要测试代码的话可以到这里下载一个较早版本的 rimage 包）：

#字符画
library(rimage)
plot.ch = function(ch, pch = "#", cex = 3) {
    height = 15 * cex
    width = 15 * cex * nchar(ch)
    jpeg("rtemp.jpg", width = width, height = height)
    par(mar = c(0, 0, 0, 0))
    plot(1, type = "n", ann = FALSE, axes = FALSE)
    text(1, 1, labels = ch, cex = cex)
    dev.off()
    m = read.jpeg("rtemp.jpg")
    unlink("rtemp.jpg")
    m.grey = rgb2grey(m)
    m.black = ifelse(m.grey < 0.5, 0, 1)
    v = which(m.black == 0, arr.ind = TRUE)
    return(v)
}

#胸牌制作
draw.card = function(contact) {
    if (require(rimage)) {
        x = read.jpeg(file.path(R.home(), "doc/html/logo.jpg"))
        lim = dim(x)[1:2]
        par(mar = rep(0, 4), cex = 0.7)
        a1 = plot.ch("use", cex = 5)
        v1 = a1[seq(1, nrow(a1), by = 3), ]
        a2 = plot.ch("eveRy wheRe", cex = 3)
        v2 = a2[seq(1, nrow(a2), by = 3), ]
        for (i in 1:nrow(contact)) {
            plot(0, xlim = c(-0.5, 1.5) * lim[1], ylim = c(-1.9,
                2.1) * lim[2], axes = FALSE, ann = FALSE, type = "n",
                asp = 1)
            plot(x, add = TRUE)
            text(0.5 * lim[1], 1.9 * lim[2], "第二届中国R语言会议",
                cex = 2.5)
            text(0.5 * lim[1], 1.4 * lim[2], "The 2nd Chinese R Conference\n(Beijing)",
                cex = 1.7)
            text(0.5 * lim[1], 1 * lim[2], "北京，2009.12.5-6",
                cex = 1.5)
            text(0.5 * lim[1], -0.6 * lim[2], contact[i, 1],
                cex = 2.4)
            text(0.5 * lim[1], -1 * lim[2], contact[i, 2], cex = 1.5)
            text(-1.6 * lim[1], -1.3 * lim[2], paste("主办：中国人民大学应用统计科学研究中心 (www.applstats.org)",
                "　　　中国人民大学统计学院 (stat.ruc.edu.cn)",
                "协办：统计之都网站 (https://cos.name)", sep = "\n"),
                cex = 1, adj = c(0, 1))
            text(1.9 * lim[1], -1.8 * lim[2], paste("ID:", contact[i,
                3]))
            points(v1[, 2] - 160, 60 - v1[, 1], pch = "#", cex = 0.5)
            points(v2[, 2] - 180, -v2[, 1], pch = "#", cex = 0.5)
        }
    }
}

# 示例
contact = data.frame(name = c("张三", "李四"), unit = c("张家村",
    "李家店"), id = c(1001, 1002))

# 写入PDF文件
pdf(width = 3.5, height = 4.5, family = "GB1")
draw.card(contact)
dev.off()

普渡大学统计系博士，现为卡耐基梅隆大学博士后，感兴趣的方向包括计算统计学、机器学习、大型数据处理等，参与翻译了《应用预测建模》《R 语言编程艺术》《ggplot2：数据分析与图形艺术》等经典书籍，是 showtext、RSpectra、recosystem、prettydoc 等流行 R 软件包的作者。

敬告各位友媒，如需转载，请与统计之都小编联系（直接留言或发至邮箱：[email protected]），获准转载的请在显著位置注明作者和出处（转载自：统计之都），并在文章结尾处附上统计之都微信二维码。

← 蒲丰投针问题的推广 也谈提高 R 语言的运算效率 →

发表 / 查看评论