1、shiny包

R语言使用shiny包创建web界面。
使用shinydashboard包和shinytheme，美化界面样式，设置界面主题，提升界面整体水平。
Shiny界面图库
 shinydashboard
shinytheme界面主题
shinydashboard包创建的基础界面样式分为三个板块：标题，侧边栏，主界面。

shinydashboar基础界面.png

2、支持交互式图

shiny包支持recharts包的使用，可以创建界面的交互式图形

recharts包交互式图形.png

3、网页分享shinyapps.io

shinyapps网址
Rstudio推出了shiny和shinyapps两个包，shiny可以帮助我们更快更好的开发一些app，然后shinyapps可以提供了一个免费的云服务器，供我们发布app。

4、NBA球员得分分析

以知乎用R语言分析NBA球员得分分析结果为主题，做web界面展示。

UI界面设置

侧边栏设置两个选项：datas display和players' score，点击不同的选项，展示对应的内容。

datas display

datas display界面展现3个数据框：NBA，Away team，Host team。通过show 10/25/50 entries 等控制页面展示数值的条数；右上角search实现数值的搜索功能（使用DT包实现）。

datas display展现内容.png

players' score

players' score展示主队、客队球员得分情况。使用ggplot2包绘制客队各个球员的得分情况

ggplot形式图.png

使用recharts包绘制主队各个球员的得分情况，recarts包实现图形交互式展现。

图片.png

library(shiny)
library(shinydashboard)
dashboardPage(
  dashboardHeader(title="NBA score analysis"),#界面标题
 #侧边栏设置 ：两个选择栏
 dashboardSidebar(
    sidebarMenu(
      menuItem("Datas Display", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Players' Score", tabName = "widgets",icon = icon("th")))
  ),
  #主界面设置
  dashboardBody(
    tabItems(
      tabItem(tabName = "dashboard",
              h3("Datas Display"),
              tabsetPanel(id = 'dataset',
                          tabPanel('NBA',DT::dataTableOutput('mytable1')),
                          tabPanel('Away team', DT::dataTableOutput('mytable2')),
                          tabPanel('Host team', DT::dataTableOutput('mytable3')))
      ),
      tabItem(tabName = "widgets",
              h2("Away team"),
              h3("Away team: player's score"),
              plotOutput('plot1'),
              h3("Away team: player's score analysis"),
              eChartOutput('plot2'),
              tabsetPanel(id = 'player',
                          tabPanel('Away team players',DT::dataTableOutput('mytable4')),
                          tabPanel('Host team players', DT::dataTableOutput('mytable5'))
              ),
              h2("Host team"),
              h3("Host team: player's score analysis"),
              eChartOutput('plot3')
      )
    )
  )
)

对应UI数值设置

建立完UI界面后，设置对应的数值，表格，图形，使web界面变成动态的界面。

function(input, output) {
  output$mytable1 <- DT::renderDataTable({DT::datatable(NBA)})
  output$mytable2 <- DT::renderDataTable({DT::datatable(awayteam)})
  output$mytable3 <- DT::renderDataTable({DT::datatable(hostteam)})
  output$plot1 <- renderPlot({
    par(mar = c(5.1, 4.1, 0, 1))
    ggplot(data = Aplayer)+geom_col(aes(x=playername,y=totscore,fill=playername))+
   geom_hline(aes(yintercept=mean(totscore)),colour="red",linetype="dashed",lwd=1)+
      theme_few()
  })
  output$plot2 <- renderEChart({
    par(mar = c(5.1, 4.1, 0, 1))
    ePie(a,toolbox = FALSE,legend.orient ="vertical",
         legend.x = "right",title ="the away team player's score")
  })
  output$mytable4 <- DT::renderDataTable({DT::datatable(Aplayer)})
  output$mytable5 <- DT::renderDataTable({DT::datatable(Hplayer)})
  output$plot3 <- renderEChart({
    par(mar = c(5.1, 4.1, 0, 1))
    eBar(Hplayer,Hplayer$playername,Hplayer$totscore,
         horiz =TRUE,title ="the host team player's  score",
         ylab.name = "score", ylab.namePosition = "end",
         xlab.name = "play's name", xlab.namePosition = "end",
         ylim =c(0,12),toolbox =FALSE,legend = FALSE)
  })
}

结束语

挣扎了好久终于把界面创建成功了，shiny的初步学习先画个句号。

R语言：创建web界面