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

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

第二届中国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的使用者遍布四面八方。

useR eveRywheRe

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

会议概况

参会单位

北京和上海两地会议共吸引了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协议

北京会场:

上海会场:

会议展望

  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()

发表/查看评论