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的初步学习先画个句号。
