二零二三年 优质公开课shiny交互柱状图.pptx

shiny -交互柱状图 shiny -交互柱状图library(shiny)ui = fluidPage( titlePanel(标题), mainPanel( plotOutput(main_plot）))server = function(input, output){ output$main_plot = renderPlot( barplot(n= cbind(c(1,2 ,3), m = c(4, 5, 6))) )}shinyApp(ui, server)绘制柱状图 shiny -交互柱状图ui = fluidPage( titlePanel(标题), sliderInput(n, N, min=10, max=20, value=10), mainPanel( plotOutput(main_plot) ))server = function(input, output){ output$main_plot = renderPlot( barplot(1:input$n) )}添加滑动条 shiny -交互柱状图滑动效果 shiny -交互柱状图library(datasets) # 加载包library(shiny)# ui端ui = fluidPage( # 使用fluid布局 titlePanel(Telephones by region),#标题 sidebarLayout( # 生成侧边栏 sidebarPanel( # 一个可以输入的侧边栏 交互柱状图 shiny -交互柱状图交互柱状图 selectInput(region, Region:, # 选择框 choices=colnames(WorldPhones)), hr(), # 垂直布局 helpText(Data from ATT (1961) The Worlds Telephones.) # 提示文本 ), mainPanel( plotOutput(phonePlot) ） )) shiny -交互柱状图交互柱状图server = function(input, output) { output$phonePlot - renderPlot({ # 绘图 barplot(WorldPhones[,input$region]*1000, main=input$region, ylab=Number of Telephones, xlab=Year) })}shinyApp(ui, server) shiny -交互柱状图交互柱状图