二零二三年 优质公开课shinyd直方图.pptx

shiny -直方图 shiny -直方图library(shiny) # 导入包 ui = bootstrapPage( # 绘制页 plotOutput(outputId = main_plot, height = 300px) # 显示的绘图 )server = function(input, output) { # 绘制要现实的图形 output$main_plot - renderPlot({ hist(faithful$eruptions, # 通过直方图形式 breaks=20, xlab = x轴, main = 直方图) }) # 设置x轴，标题 }shinyApp(ui, server) # 注册绘制直方图 shiny -直方图交互直方图library(shiny) # 导入包# ui端 ui = bootstrapPage( # 绘制页 selectInput(inputId = n_breaks, label = Number of bins in histogram (approximate):, choices = c(10, 20, 35, 50), selected = 20), plotOutput(outputId = main_plot, height = 300px) # 显示的绘图 ) shiny -直方图交互直方图# server端server = function(input, output) { # 绘制要现实的图形 output$main_plot - renderPlot({ hist(faithful$eruptions, # 通过直方图形式 breaks = as.numeric (input$n_breaks), xlab = x轴, main = 直方图) }) }shinyApp(ui, server) # 注册 shiny -直方图交互直方图 shiny -直方图交互直方图ui - function(request) { fluidPage( plotOutput(plot), sliderInput(n, Number of observations, 1, nrow(faithful), 100), bookmarkButton() )}server - function(input, output, session) { output$plot - renderPlot({ hist(faithful$eruptions[seq_len(input$n)], breaks = 40) })}shinyApp(ui, server) shiny -直方图交互直方图