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的初步學習先畫個句號。
