二零二三年 优质公开课shiny交互气泡图.pptx

shiny -交互气泡图 shiny -交互气泡图library(shiny)ui = bootstrapPage( verticalLayout(titlePanel(气泡图), # 标题 plotOutput(plot1) ))server = function(input, output) { output$plot1 - renderPlot({ symbols(mtcars$mpg, mtcars$cyl, circle=mtcars$cyl/mtcars$mpg, bg=rainbow(10)) })}shinyApp(ui, server)绘制气泡图 shiny -交互气泡图气泡图支持的形状有： Circlr： 圆， Squares： 长方形， Stars： 星形， Thermometers： 温度计， Boxplots： 箱型改变气泡形状 shiny -交互气泡图library(shiny)ui = fluidPage( titlePanel(标题), sliderInput(slider, 滑动栏, min=10, max=20, value=10), # 设置滑动栏, id为slider, 提示文本为 滑动栏, 最小值10， 最大值20, 初始为10 mainPanel( plotOutput(main_plot) ))交互气泡图 shiny -交互气泡图server = function(input, output){ output$main_plot = renderPlot({ x = seq(input$slider) # 安装滑动栏生成 y = seq(input$slider) for(i in x){ y[i] = x[i] * runif(1, 10, 50) } r = x/y symbols(seq(x), seq(y), circle=r, bg=rainbow(10)) })}交互气泡图 shiny -交互气泡图滑动效果 shiny -交互气泡图library(shiny) # 导入包# ui端ui = bootstrapPage( # 绘制页 selectInput(inputId = n, label = Number, choices = c(10, 20, 35, 50), selected = 20), plotOutput(outputId = main_plot, height = 300px) # 显示的绘图 )交互柱状图 shiny -交互气泡图# server端server = function(input, output) { # 绘制要实现的图形 output$main_plot - renderPlot({ x = seq(as.numeric (input$n) ) y = seq(as.numeric (input$n)) for(i in x){y[i] = x[i] * runif(1, 10, 50)} r = x/y symbols(seq(x), seq(y), circle=r, bg=rainbow(10)) })}shinyApp(ui, server) # 注册交互柱状图 shiny -交互气泡图交互柱状图图