星期一, 十一月 12, 2012

用Shiny包快速搭建基于R的交互网页应用


RStudio是我最喜欢用的R语言IDE,其开发团队最近又推出了一个新的产品,即Shiny包。它的作用是快速搭建基于R的交互网页应用。使得那些对代码不熟悉的人士在工作中也可以应用统计模型。对于R和web的交互,之前已经有一些相关的包,例如:rApache, Rhttpd, Rack, Rook。不过这些工具都需要开发者不仅要熟悉R,还要熟悉网页编程语言(html,CSS,JS)。而Shiny包的特点在于不需要了解网页语言,可以用纯R来搭建。生成的网页应用是动态交互,而且是即时更新的。Shiny还提供了现成组件方便快速在网页上展示数据、图表和模型,的确是非常的炫。本例将用ggplot2包来绘制iris数据集的散点图,并将图形放到网页中。

首先安装Shiny包:
options(repos=c(RStudio='http://rstudio.org/_packages', getOption('repos')))
install.packages('shiny')


再写两个R代码文件:
一个是负责前端的ui.R,另一个是负责后端的server.R。

ui.R的代码如下:
library(shiny)
library(ggplot2)
 
dataset <- iris
 
shinyUI(pageWithSidebar(
 
  headerPanel("鸢尾花的数据展示"),
  sidebarPanel(
 
    selectInput('x', 'X', names(dataset)),
    selectInput('y', 'Y', names(dataset)[2]),
    selectInput('color', 'Color', c('None', names(dataset))),
 
    checkboxInput('smooth', 'Smooth')
    ),
 
  mainPanel(
    plotOutput('plot')
  )
))

server.R的代码如下:
library(shiny)
library(ggplot2)
 
shinyServer(function(input, output) {
 
  output$plot <- reactivePlot(function() {
 
    p <- ggplot(dataset, aes_string(x=input$x, y=input$y)) + geom_point()
 
    if (input$color != 'None')
      p <- p + 
        aes_string(color=input$color) + 
        theme(legend.position="top")
 
    if (input$smooth)
      p <- p + 
        geom_smooth() + 
        theme(legend.position="top")
 
    print(p)
 
  }, height=400)
 
})

将这两个代码文件存放到同一个文件夹下,例如我是放在在"d:/rspace/shinyapp"。

最后在控制台下运行:

library(shiny)
runApp("d:/rspace/shinyapp")

之后R会自动打开系统默认的浏览器,并展示出如下的界面。




Shiny包的缺点:
在部署分享方面,Shiny包只能在本地浏览器展示应用。如果要分享给其它人的话,需要将R代码传到网盘或打包分发,而对方也需要使用runApp命令来进行本地展示。RStudio团队正在开发Shiny服务器构架,让使用者仅需要一个浏览器和网址就可以运行网页应用。不过这将是一个收费的服务。

更多示例和帮助信息,请参看:http://www.rstudio.com/shiny/

14 条评论:

  1. 赞!前两天刚在R-bloggers上面看到Shiny介绍,今天就看到中文社区的内容了!

    回复删除
  2. 提示需要安装websockets,找不到源

    回复删除
  3. 搞定了,是我的设置有问题

    回复删除
  4. 此评论已被作者删除。

    回复删除
  5. 你好,谢谢,按着这教程运行成功了。我想知道这个就能让R像PHP一样搭建服务器了么?比如说在http://www.rstudio.com/shiny/ 这个网页中,是不是图表是R,其他的地方是php运行的?求教,谢谢。

    回复删除
    回复
    1. 额,这个我还真不知道。抱歉了。你可以找找关于rApache的方法,或许有用。

      删除
    2. 非常感谢你的回复!http://diigo.com/0udj3 文中最后一句话 “不过这将是一个收费的服务。”,这哪里看到的,我在官网没有看到诶。。。这是哪里的消息啊。。。?

      删除
    3. 官网,最后一段话,应该是这个意思吧。http://rstudio.github.com/shiny/tutorial/#deployment

      删除
    4. 此评论已被作者删除。

      删除
  6. 谢谢您耐心的回答,总算明白了。 Shiny framework 是免费的,但只能本地运行。Shiny server 可以在网上架application,但是将会收费。

    回复删除
  7. 请问这个包有提供文字输入方块的吗?

    回复删除
    回复
    1. 有提供字符串输入的,具体看官网的例子。r-blogger上也有很多例子。

      删除
  8. QUANTUM BINARY SIGNALS

    Get professional trading signals sent to your mobile phone daily.

    Follow our signals NOW & profit up to 270% per day.

    回复删除