怎样用R-Shiny打造在线App

怎样用R-Shiny打造在线App，相信很多没有经验的人对此束手无策，为此本文总结了问题出现的原因和解决方法，通过这篇文章希望你能解决这个问题。今天做一个小小的案例，算是shiny动态可视化的小开端……这个案例是之前发过的中国人口结构动态金字塔图，这个图还是蛮不错，数据取自UN的官网，非常有现实意义的人口性别结构数据。library(ggplot2)library(animation)library(dplyr)library(tidyr)library(xlsx)library(ggthemes)library(shiny)library(shinythemes)做简单的数据清洗工作，为shiny提供可用 香港云主机的数据源：setwd(“D:/R/File”)windowsFonts(myfont=windowsFont(“微软雅黑”))female
male
female%gather(Year,Poputation,-1)male%gather(Year,Poputation,-1)female$Poputation
male$sex
China_Population%mutate(abs_pop=abs(Poputation))China_Population$agegroup
levels=c(“0-4″,”5-9″,”10-14″,”15-19″,”20-24″,”25-29″,”30-34″,”35-39″,”40-44″,”45-49″,”50-54″,”55-59″,”60-64″,”65-69″,”70-74″,”75-79″,”80+”) ,order=T)China_Population_dd
定制shinyapp的ui：ui
theme=shinytheme(“cerulean”),titlePanel(“Population Structure Data”), sidebarLayout( sidebarPanel( selectInput(“var1”, “x-axis”,c(“agegroup”=”agegroup”,”Poputation”=”Poputation”,”sex”=”sex”),selected=”agegroup”), selectInput(“var2”, “y-axis”,c(“agegroup”=”agegroup”,”Poputation”=”Poputation”,”sex”=”sex”),selected=”Poputation”), selectInput(“var3”, “Gender”,c(“agegroup”=”agegroup”,”Poputation”=”Poputation”,”sex”=”sex”),selected=”sex”), selectInput(“theme”, “Choose a ShinyTheme:”,choices (“cerulean”,”cosmo”,”cyborg”,”darkly”,”flatly”,”journal”,”lumen”,”paper”, “readable”,”sandstone”,”simplex”,”slate”,”spacelab”,”superhero”,”united”,”yeti”)), sliderInput(“var4″,”Year”,min=1950,max=2015,value=5,step=5) ), mainPanel(h3(‘Dynamic pyramid of population structure in China’),plotOutput(“distPlot”)) )))定制shiny的输出服务端：
server
output$distPlot
mydata=filter(China_Population,Year==input$var4) argu1
argu2
argu3
ggplot(data=mydata,aes(x=argu1,y=argu2,fill=argu3))+ coord_fixed()+ coord_flip() + geom_bar(stat=”identity”,width=1) + scale_y_continuous(breaks = seq(-70000,70000,length=9), labels = paste0(as.character(c(abs(seq(-70,70,length=9)))), “m”), limits = c(-75000,75000)) + theme_economist(base_size=14)+ scale_fill_manual(values=c(‘#D40225′,’#374F8F’)) + labs(title=paste0(“Population structure of China:”,input$var4), caption=”Data Source:United Nations Department of Economic and Docial AffairsnPopulation DivisionnWorld Population Prospects,the 2015 Revision” ,y=”Population”,x=”Age”) + guides(fill=guide_legend(reverse=TRUE))+ theme( text=element_text(family=”myfont”), legend.position =c(0.8,0.9), legend.title = element_blank(), plot.title = element_text(size=20), plot.caption = element_text(size=12,hjust=0) ) })})运行app：shinyApp(ui=ui,server=server)看完上述内容，你们掌握怎样用R-Shiny打造在线App的方法了吗？如果还想学到更多技能或想了解更多相关内容，欢迎关注开发云行业资讯频道，感谢各位的阅读！

相关推荐: Spring初始化Bean的使用方法

本篇内容主要讲解“Spring初始化Bean的使用方法”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实 香港云主机用性强。下面就让小编来带大家学习“Spring初始化Bean的使用方法”吧!到此，相信大家对“Spring初始化Bean的使用方法”有了…