R语言制作网页

15

作者简介

作者：闵家勇 西南财经大学硕士 R语言爱好者

 shiny是R语言非常好用和好玩的一个包，它不需要我们去了解网页语言以及如何制作网页等就可以实现用R语言构建交互式Web应用程序。它可以使我们以更加方便和交互性的方式去展现结果、数据和模型等，甚至还可以插入图片、动画、视频以及声音等，可以说是非常炫酷了！

 

下面简单的基本原理以及快速实现，你也可以拥有一个自己做成的网页啦～

如果你没有安装shiny包，通过以下途径先安装一个，

> install.packages("shiny")

> library(shiny)

在具体操作之前，我们可以首先单独创建一个文件夹，比如叫做shiny

然后就可以通过Shiny Web App选择Multiple File(ui.R/serverR)来进行第一步。

接下来就是关键啦！

Shiny App由两部分构成，一部分是ui，即user interface，另一部分是server function。

其中ui用于控制页面的布局，server则是一种函数，用于构建或者重建在ui中展示的对象。现在不懂也没关系，下面我们会一步步地进行讲解。

 

首先，对于ui的使用主要适用于网页的布局，基本的网页布局如下图：

shinyUI(fluidPage(

 titlePanel("title panel"),

 sidebarLayout(

   sidebarPanel( "sidebar panel"),

   mainPanel("main panel")

  )

))

Shiny ui.R 要用fluidPage函数来展示一个自动调整组件尺寸大小来适应浏览器，所有组件放在fluidPage函数中，得到整整个app的布局。

而titlePanel 和 sidebarLayout 是 fluidPage中最常用的元素，通过最简单的ui实现，我们可以得到上图的布局。

 

布局完之后，我们就可以在不同的部分加入自己想要的东西了。如以下基本的内容。

ui <- fluidPage(

 h1("Header 1"),

 h2("Header 2"),

 h3("Header 3"),

 h4("Header 4"),

 h5("Header 5"),

 h6("Header 6"),

 hr(),

 br(),

 p(strong("bold")),

 p(em("italic")),

 p(code("code")),

 p("Click",span(style="color:blue","Here")),

 a(herf="www,rstudio.com","RStudio Home ")

这是shiny里面的tags，我们可以使用names(tags)来看到有什么组件我们可以加入，得到自己所想要的效果，就像上图一样。

    除了上述基本的组件以外，shiny中还有一些很有用的控件可供我们使用，一下是一些经常会使用的控件。

#ui.R

 

shinyUI(fluidPage(

  titlePanel("基本的控件"),

 

  fluidRow(

   

    column(3,

           h3("actionButtons"),

           actionButton("action",label = "Action"),

           br(),

           br(),

           submitButton("Submit")),

   

    column(3,

           h3("checkboxInput"),

           checkboxInput("checkbox",label = "Choice A", value = TRUE)),

    column(3,

          checkboxGroupInput("checkGroup",

                              label =h3("CheckboxGroup"),

                              choices =list("Choice 1" = 1,

                                            "Choice 2" = 2, "Choice 3" = 3),

                              selected = 1)),

   

    column(3,

           dateInput("date",

                     label = h3("Dateinput"),

                     value ="2014-01-01"))  

  ),

 

  fluidRow(

   

    column(3,

           dateRangeInput("dates",label = h3("Date range"))),

   

    column(3,

           fileInput("file", label =h3("File input"))),

   

    column(3,

           actionLink("action",

           label=h3("ActionLink"),

           icon("calendar"))),

   

    column(3,

          numericInput("numericInput",

                        label =h3("numericInput"),

                        value = 1))  

 

    ),

 

  fluidRow(

   

    column(3,

           radioButtons("radio",label = h3("radioButtons"),

                        choices =list("Choice 1" = 1, "Choice 2" = 2,

                                      "Choice 3" = 3),selected = 1)),

   

    column(3,

           selectInput("select",label = h3("selectInput"),

                       choices =list("Choice 1" = 1, "Choice 2" = 2,

                                      "Choice 3" = 3), selected = 1)),

   

    column(3,

           sliderInput("slider1",label = h3("sliderInput"),

                       min = 0, max = 100,value = 50),

           sliderInput("slider2","",

                       min = 0, max = 100, value= c(25, 75))

    ),

   

    column(3,

           textInput("text", label =h3("textInput"),

                     value = "Entertext"))  

  )

  ))

其中fluidRow()函数是使所加入的内容排列成同一行，一般配合column()使用。

通过这些控件，我们可以实现许多非常有趣炫酷的内容，真正的实现交互式的体验。当然要实现交互式的体验，我们需要去定义server function，使其随着我们对控件的掌握实现不同的输出结果和效果，具体的内容以及操作我将会在下一篇文章中展示。这些最基本的大家有兴趣可以自己实现哦。甚至可以做一个自己喜欢的网页，如下就是我帮同学实现的一个非常简单的例子,具体网址为https://cr-1314.shinyapps.io/zhizhizhengyou/。

顺便提一下，我们要做网站的话，最好首先在www.rstudio.com/products/shiny-server/

中注册一个属于自己的Shiny Server，然后就可以自己定义网站名字什么的，而且需要插入图片则需要在前面创建的shiny文件夹里新建文件夹，名字为www，然后将图片放进去，调用的时候则是用img(“图片名字.格式”)。好啦，今天就介绍这么多了，大家有兴趣可以自己动手实现一个简单的网页哦！

 

（附：以上征婚广告位真实内容！！！）

　大家都在看　

2017年R语言发展报告（国内）

R语言中文社区历史文章整理（作者篇）

R语言中文社区历史文章整理（类型篇）

公众号后台回复关键字即可学习

回复 R                  R语言快速入门及数据挖掘 
回复 Kaggle案例  Kaggle十大案例精讲（连载中）
回复 文本挖掘      手把手教你做文本挖掘
回复 可视化          R语言可视化在商务场景中的应用 
回复 大数据         大数据系列免费视频教程 
回复 量化投资      张丹教你如何用R语言量化投资 
回复 用户画像      京东大数据，揭秘用户画像
回复 数据挖掘     常用数据挖掘算法原理解释与应用
回复 机器学习     人工智能系列之机器学习与实践
回复 爬虫            R语言爬虫实战案例分享