R语言_Shiny包-_学习笔记.docx

《R语言_Shiny包-_学习笔记.docx》由会员分享，可在线阅读，更多相关《R语言_Shiny包-_学习笔记.docx（13页珍藏版）》请在三一办公上搜索。

1、R语言_Shiny包学习笔记ZW2024-03-17ShinyApp的基本构成ShinyaPP有两部分（ui.R和SerVer.R可以放在一个R脚本文件中app.R）: 一个用户交互脚本（ui）：Ui负责控制布局和展示，在源脚本中固定的名称为ui.R 一个服务器脚本（server）：SerVer.R脚本包含建立app计算机需要的基本说明文件夹内容如下（创建的WWW文件夹用来存放JS、CSS、图片、html等）：PgrarnFilesRR-4.3.3libraryshinyexamples08htmlXZ名称修改日期类型WWW2024/3/717:57文件夹0app.R2023/11/2216:

2、43R文件DDESCRIPTION2023/11/2216:43文件oReadme.md9CreateShinyappI2023/11/2216:43MD文件ShinyAppId=htlTemplatef.,*widex.htlw,SerVerIibrary(Shiny)ui-fluidPage(textoutput(greeting)server-function(input,output,session)output$greeting-renderText(Hellohuman!)shinyApp(ui=Ui,server=server)运行方式#app.R的路径Iibrary(Shiny

3、)runApp(my_app)Shinyapps示例Youcanalsoembedplots,forexample:system.file(examples,package=shiny)runExample(0:LJIello)#ahistogramrunExample(02_text)#tabLesanddataframesrunExample(03_reactivity)#areactiveexpressionrunExample(04_mpg)#gLobaLVariabLesrunExample(05_sliders)#sLiderbarsrunExample(06_tabsets)#t

4、abbedpaneLsrunExample(07_widgets)#heLptextandsubmitbuttonsrunExample(08_html)#ShinyappbutLtfromHTMLrunExample(09_upload)#fiLeupLoadwizardrunExample(10_download)#fiLedownloadwizardrunExample(ll_timer)#anautomatedtimer布局fluidPage函数来展示一个自动调整组件尺寸大小来适应浏览器，所有组件放在fluidPage函数中，得到整个app的布局。除了fluidPage()之外，Shi

5、ny还提供了一些其他的页面函数，这些函数可以在更专业的情况下派上用场：fixedPage()和fillPage()0Iibrary(Shiny)ui-fluidPage(titlePanel(titlepanel),SidebarLayout(position=right,sidebarPanel(sidebarpanel)jmainPanel(mainpanel)侧边栏(SidebarPaneI部分)默认出现在app的左边，通过调整SidebarLayout函数的一个参数position=right”将SidebarPanel调到右边。fluidPage()titlePanel()Sideb

6、arLayoutOsidebarPanel()mainPanel()tabsetPanel()为任意数量的tabPanels()创建一个容器，该容器又可以包含任何其他HTML组件。ui-fluidPage(tabsetPanel(tabPanel(Importdatajfile工叩Ut(file,Data,buttonLabel=Upload.textlnput(delim,Delimiter(leaveblanktoguess),)4numericlnput(skip,Rowstoskip,0,min=0),numericinput(rows,Rowstopreview,10,min=1),

7、tabPanel(Setparameters)jtabPanel(Visualiseresults)ImportdataSmPerwneterSVualeMEUlt3DateUpload.NofMeeeiectedDelimttef(leaveblanktoguess)Rowstoskjp0mRowstopreviow1。m如果你想知道用户选择了哪个选项卡，你可以向tabsetPanel提供id参数，它成为一个输入。Iibrary(Shiny)ui-fluidPage(sidebarLayout(sidebarPanel(textoutput(panel),mainPanel(tabsetPa

8、nel(id=tabsettabPanel(,panel1,one),tabPanel(panel2,two),tabPanel(panel3,three)server-function(input,output,session)OUtPUt$Panel-renderText(paste(Currentpanel:,input$tabset)shinyApp(ui=ui,server=server)navlistPanel()与tabsetPanel()类似，但它不是水平运行选项卡标题，而是在侧边栏中垂直显示它们。ui-fluidPage(navlistPanel(id=tabset,Head

9、ing,tabPanel(panel1,Panelonecontents),Heading2,tabPanel(panel2,Paneltwocontents),tabPanel(panel3,Panelthreecontents)另一种方法是使用navbarPage():它仍然水平运行选项卡标题，但您可以使用navbarMenu()添加下拉菜单以获得额外的层次结构级别。ui-navbarPage(Pagetitle,tabPanel(,panel1,one),tabPanel(panel2,two),tabPanel(,panel3,three),navbarMenu(subpanels,t

10、abPanel(panel4a,j,four-a,)jtabPanel(panel4b,four-b),tabPanel(panel4c,four-c)主题安装bslib包或者shinythemes包使用页面主题。thematic包可以为ggplot2lattice和baseplots提供主题，只需在服务器函数中调用thematic_shiny()o自己制作的主题，可以写好的主题放在WWw/的子文件夹下myappI-server.RI-ui.RI-wwI-mytheme.cssui-fluidPage(theme-bslib:bs_theme(bg=#0b3d91fg=whitejbase_f

11、ont=SourceSansPro)# theme-shinytheme(ceruLean,)# 自制主题theme-mytheme.css)server-function(input,output,session)thematic:thematic_shiny()OUtPUt$PlOt-renderPlot(ggplot(mtcarsaes(wt,mpg)+geom_point()+geom_smooth(),res=96)ConditionalPanel创建一个面板，该面板根据JavaScript表达式的值显示和隐藏其内容。即使你不懂任何JaVaSCript,简单的比较或相等操作也非常容易

12、做到。ui-fluidPage(selectlnput(dataset,Dataset,c(diamonds,rock,pressure,cars),ConditionalPanel(condition=output.nrows,checkboInput(,headonlyjOnlyusefirst1000rows)server-function(input,output,session)datasetinput-reactive(switch(input$dataset,rock=rock,pressure=pressure,cars=cars)output$nrows-reactive(n

13、row(datasetlnput()outputoptions(outputjnrowsSuspendWhenHidden=FALSE)shinyApp(uijserver)HTML可以将您自己的HTML添加到Ui中。一种方法是用HTML()函数来包含HTML,用另外一种是使用Shiny提供的HTML助手。重要的标签元件有常规函数(如hl()和p(),所有其他标签都可以通过tags使用。names(tags)查看标签。ui-fluidPage(HTML(r(ThisisaheadingThisissometext!FirstbulletSecondbullet)#同上ui-fluidPage(

14、hl(,Thisisaheading),p(Thisissometext,class=my-class)jtags$ul(tags$li(Firstbullet),tags$li(Secondbullet)#注意inLine=TRUE;的使用textutput()默认是生成一个完整的段落。tags$p(Youmade,tags$b($,textoutput(amountjinline=TRUE),inthelastjtextoutput(days,inline=TRUE),days)img函数通过特殊处理才能找到图片，图片文件必须在WWW文件及在下，WWW文件和app.R脚本同路径(在同一文件

15、下)img(src=my_image.pngjheight=72,width=72)Iibrary(Shiny)uicode(codedisplaysyourtextsimilartocomputercode),div(divcreatessegmentsoftextwithasimilarstyle.style=color:blue)jimg(src=bigorb.png,height=400,width=400)#定义serverLogicserver-function(input,output)#RuntheappLicationshinyApp(ui=ui,server=server)

16、Shiny具有三个主要依赖项： jQuery shiny(自定义JaVaSCriPt和CSS) BOotStr叩(JaVaSCriPt和CSS)控件Shiny控件用于收集互动信息空间样式和代码可以看下面的链接httpsshiny.posit.corgallerywidgetswidget-galleryIibrary(Shiny)ui-fluidPage(titlePanel(MyShinyApp),SidebarLayout(sidebarPanel(#行fluidRow(#列COIUlnn(3,#CoIUmn的网格宽度(必须在1到12之间)h3(Buttons),actionButton(

17、action,label=Action),#点山br(),br(),downloadButton(downloadData,Download),br(),br(),submitButton(Submit,)提交h3(Singlecheckbox),checkboxinput(checkbox.,label=ChoiceA,value=TRUE),#函个勾选框#另起一列COlUnIn(3,CheckboxGroupInput(checkGroup,label=h3(Checkboxgroup),choices=list(Choice1=1,Choice2=2,Choice3=3),selecte

18、d=1),#多选框dateinput(date,label=h3(Dateinput),value=2024-01-01)#日期选择框),#另起一行fluidRow(COlUnln(3,dateRange!nput(dates,label=h3(Daterange)#日期范围选择框),COlUnln(3,filelnput(filelabel=h3(Fileinput)#文件选择框),COlUnIn(3,h3(Helptext),helpText(Note:helptextisntatruewidget，butitprovidesaneasywaytoaddtexttojaccompanyot

19、herwidgets.,),COlUnIn(3,numericinput(numlabel=h3(Numericinput),value=1)#数字输入框),fluidRow(COlUmn(3,radioButtons(radio,label=h3(Radiobuttons)jchoices=list(Choice1=1,Choice2=2,Choice3=3),selected=I)#单选框),COlUmn(3,selectlnput(select,label=h3(Selectbox),choices=list(Choice1=1,Choice2=2,Choice3=3),selected

20、=I)#卜.拉选择框),column(3jsliderinput(slideri,label=h3(Sliders),min=0,max=100,value=50,animate=animationoptions(interval=300,loop=TRUE),#拖动选择sliderlnput(,slider2,min=0,max=100,value=c(25,75)#拖动选择),column(3jtext：叩Ut:(“text”,label=h3(,Textinput),value=Entertext.文本输入框),mainPanel()# 定义serverLogicserver-funct

21、ion(input,output)# RuntheappLicationshinyApp(ui=Ui,server=server)# 按钮复位# https:/hadLey.shinyappsoms-update-resetui-fluidPage(sliderlnput(xljxlj0,min=-10,max=10),sliderlnput(,x2,x2,0,min=-104max=10),sliderlnput(3,3,0,min=-104max=10),actionButton(reset,Reset)server-function(input,output,session)Observ

22、eEvent(input$resetUPdateSlider工nput(input工d=xl,value=0)UpdateSliderInput(inputld=x2,value=0)UPdateSIider工叩ut(inPUtId=x3,value=0)shinyApp(ui=ui,server=server)控件输入输入函数：textinput,passwordinput,IextAreaInput,sliderinput如果你想确保文本具有某些属性，你可以使用validate()oIibrary(Shiny)ui-fluidPage(theme-bslib:bs_theme(bootsw

23、atch=cerulean),titlePanel(MyShinyApp)jSidebarLayout(sidebarPanel(actionButton(action,jlabel=Action),mainPanel(VerbatimTextOutput(value)# 定义serverLogicserver-function(input,output)OUtPUt$ValUe-renderPrint(input$action)输出函数ui中输出函数：Output,htmlutput,imageutput,plotoutput,tableutput,dataTableOutput,texto

24、utput,uiutput,VerbatimTextOutputserver中render函数render,renderimage,renderPlot,renderPrint,renderTable,renderTet,renderUI,renderPrint每个render*函数都有唯一参数。在render函数之内的代码，一旦控件的某个值改变，那么，Shiny会重新执行render内的所有代码块。uiOutput：动态UI输出PlotlyOutput:使用plotly包中的函数动态输出renderUI：动态Ul输入renderPlotly：使用PlOtIy包中的函数动态输出Iibrary(

25、Shiny)ui-fluidPage(titlePanel(字体大小，字体颜色”)，sidebarLayout(sidebarPanel(sliderinput(psize,label=h3(字体大小调节”)，min=6,max=100,value=10),#拖动选择,hr(),radioButtons(pcolor,label=h3(字体颜选择色”)，choices=list(red=red,blue=blue,green=green)?selected=blue),mainPanel(p(123,styles=,colors,),htmlOutput(colors),textutput(s

26、izes)# 定义serverLogicserver-function(input,output)OUtPUt$COIorS-renderText(paste(,color:iinput$PCoIOP,)OutputSsizes,pt,)# RuntheQppLicationShinyAPP(Ui,server)动态调整按钮调整按钮显示文本ui-fIuidPage(numericinput(n,Simulations,10),actioButton(simulate,Simulate)server-function(input,OUtPlit,session)ObserveEvent(inpu

27、tSnjlabel-paste0(Simulate”,input$n,times)UpdateActionButton(inputld=simulate,label=label)shinyApp(ui=ui,server=server)UPdateSeIeCt工nput()只有在所有output和observer都运行后才会产生影响。ui-fluidPage(#创建三个选择框和一个输出表selectlnput(territory,Territoryjchoices=UniqUe(SaleS$TERR工TORY),selectinput(customername,Customer,choices

28、=NULL),#CUStOmernQme公门动牛.成,所以Choices=NULLselectinput(ordernumber,Ordernumber,choices=NULL),ordernumber公门动生成,所以choices=NULLtableutput(data)server-function(input,output,session)territory-reactive(filter(sales,TERRITORY=input$territory)#包含SaleS与所选territory匹配的行ObserveEvent(territory()ichoices-unique(ter

29、ritory()$CUSTOMERNAME)UpdateSelectInput(inputld=customernamejchoices=choices)#今巧territory()更;女时,都会更新inputfcustomername选择框中choices的列衣customer-reactive(req(input$customername)filter(territory()jCUSTOMERNAME=input$CUStOmername)#包含territory。与所选CUStomernQme匹西己的行ObserveEvent(customer(),choices-unique(cust

30、omer()$ORDERNUMBER)UpdateSelectInput(inputld=ordernumber,choices=choices)#每当customer()更改时,都会更新input$ordernumber选择框中choices的列表OutputSdata%filter(ORDERNUMBER=input$ordernumber)%select(Quantityordered,priceeach,productcode)客户端的非输入数据在服务器端，Shiny应用程序使用输入对象从客户端Web浏览器接收用户输入。输入中的值由客户端网页上的Ul对象设置。还有一些非输入值(从某种意

31、义上说，用户不会通过UI组件输入这些值)存储在名为SessionJclientData的对象中。这些值包括URL、像素比率(用于高分辨率“视网膜”显示器)、输出对象的隐臧状态以及打印输出的高度和宽度。Iibrary(Shiny)ui-PageUIithSidebar(headerPanel(ShinyClientData),sidebarPanel(sliderinput(obsNumberofobservations:,min=0,max=1000,value=500),mainPanel(h3(clientDatavalues,)jVerbatimTextoutputCclientdata

32、Text),plotoutput(myplot)server-function(input,output,session)# StoreinaconvenienceVariabLecdata-session$clientData# VaLuesfromcdatareturnedastextOutputJclientdataText-renderText(cnames-names(cdata)allvaluessep=,=)paste(allvaluesjcollapse=n)# AhistogramOutputSmyplot-renderPlot(hist(rnorm(input$obs),m

33、ain=GeneratedinrenderPlot()!)shinyApp(uijserver)发布分享分享R文件将app.R文件放在app文件夹中，启动如下：Iibrary(Shiny)runApp(app)runUrl文件夹压缩为zip格式可以在网上直接下载并启动appIibrary(Shiny)runUrl(u)runGitHubIibrary(Shiny)runGitHub(html2R,j,alandipert)通过网页进行分享shinyapps.ioAMMWWNBMWtM，i，349一https:/alandipert.shinyapps.io/html2r服务器上安装ShinyServer参考1. Shiny篇(7)分享App-知乎()2. WelcomeMasteringShiny(mastering-shiny.org)3. Shiny-LearnaboutyouruserwithSessionSclientData(posit.co)4. Chapter6Layout,themes,HTMLMasteringShiny(mastering-shiny.org)5. Shiny-BuildadynamicUIthatreactstouserinput(posit.co)6. R-Shiny10DynamicUI-知乎()