Shiny 看这篇就可以了

Shiny App 是通过R构建的Web交互式程序。使用Shiny 可以快速的构建数据产品的Demo，或者进行数据科学结果的展示。

想要把握Shiny，记住几个核心概念：

首先是Shiny App的结构 - Ui和Server，Ui用于描述App的布局，Server描述APP功能的代码实现。

其次是Ui的内部结构，1. 页面布局 2. 小部件 3. 输出

1. 默认布局是fluidPage，其将页面分成两块，侧边栏和主页面。还有很多其他布局方式。
2. 小部件是App交互的元素，可以是一个按钮，一个输入框。

image.png
image.png

3. 输出，可以是一串文字，图，表格

UI就是定义这三个部分。

Server就是实现APP的功能

如何使用UI中所定义的元素，比如输入一个值，通过这个值改变图形的输出。
server中有两个基本的概念：

1. input
2. output

使用这两个对象表示输入与输出

以上是Shiny 的核心内容，掌握了就是掌握了Shiny程序，其余内容使用到查资料即可。

例子

image.png

这是shiny自带的第一个例子，先看UI

UI

library(shiny)

# Define UI for app that draws a histogram ----
ui <- fluidPage(

  # App title ----
  titlePanel("Hello Shiny!"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

      # Input: Slider for the number of bins ----
      sliderInput(inputId = "bins",
                  label = "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)

    ),

    # Main panel for displaying outputs ----
    mainPanel(

      # Output: Histogram ----
      plotOutput(outputId = "distPlot")

    )
  )
)

使用的是默认布局fluidPage。titlePanel和sidebarLayout是要在fluidPage中添加两个元素。用侧边栏创建了一个基本的Shiny应用程序。

sidebarLayout 总是有两个参数：
1 sidebarPanel 功能输出
2 mainPanel 功能输出

其中sidebarPanel内定义了一个输入，sliderInput，其id为bins对应：

image.png

mainPanel定义了一个输出，plotOutput，其id为distPlot。

以上就是UI的内容

Server

server <- function(input, output) {

  # Histogram of the Old Faithful Geyser Data ----
  # with requested number of bins
  # This expression that generates a histogram is wrapped in a call
  # to renderPlot to indicate that:
  #
  # 1. It is "reactive" and therefore should be automatically
  #    re-executed when inputs (input$bins) change
  # 2. Its output type is a plot
  output$distPlot <- renderPlot({

    x    <- faithful$waiting
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    hist(x, breaks = bins, col = "#75AADB", border = "white",
         xlab = "Waiting time to next eruption (in mins)",
         main = "Histogram of waiting times")

    })

}

可以看到,Server的两个参数input和output。renderPlot函数里面是一串代码，用{}包裹起来，代码里面x <- faithful$waiting是将faithful数据集的waiting值肤质给x。
bins <- seq(min(x), max(x), length.out = input$bins + 1)是创建一个序列，从x的最小值开始，到x的最大值，长度为UI中的sliderInput所输入的值+1
最后的代码就是绘制了直方图。

renderPlot将函数的结果传递给了output$disPlot，对应的就是UI中的plotOutput的输出结果。

最后

需要补充的一点是，renderPlot是传递一个绘图结果，文本是renderText。不同形式的结果有不同的rend函数。

米霖微信.jpeg