二零二三年 优质公开课shiny散点图.pptx

shiny -散点图 shiny -散点图library(shiny)ui = bootstrapPage( verticalLayout(titlePanel(Vertical layout example), # 标题 plotOutput(plot1) ))server = function(input, output) { output$plot1 - renderPlot({plot(x = mtcars$mpg, y = mtcars$cyl) })}shinyApp(ui, server)绘制散点图 shiny -散点图交互散点图library(shiny)ui = bootstrapPage( verticalLayout( titlePanel(Vertical layout example), plotOutput(plot1), wellPanel( sliderInput(n, Number of points, 10, 200, value = 50, step = 10) # 滑动条 ) )) shiny -散点图# 服务器端server = function(input, output) { output$plot1 - renderPlot({ plot(x = rnorm(input$n), y = rnorm(input$n)) })}shinyApp(ui, server) # 注册交互散点图 shiny -散点图交互散点图 shiny -散点图交互散点图library(shiny)ui = pageWithSidebar( headerPanel(Iris k-means clustering), sidebarPanel( # 侧边栏 selectInput(xcol, X Variable, names(iris)), # 选择框 selectInput(ycol, Y Variable, names(iris), selected=names(iris)[[2]])， numericInput(clusters, Cluster count, 3,min = 1,max = 9) #要标记的个数 ), mainPanel(plotOutput(plot1))) shiny -散点图交互散点图server = function(input, output, session) { selectedData - reactive({ # 数据重组 iris[, c(input$xcol, input$ycol)] }) clusters - reactive({ # 数据重组 kmeans(selectedData(), input$clusters) }) output$plot1 - renderPlot({ palette(c(#E41A1C, #377EB8, #4DAF4A, #984EA3, #FF7F00, #FFFF33, #A65628, #F781BF, #999999)) shiny -散点图交互散点图par(mar = c(5.1, 4.1, 0, 1)) plot(selectedData(), col = clusters()$cluster, pch = 20, cex = 3) points(clusters()$centers, pch = 4, cex = 4, lwd = 4) })} shiny -散点图交互散点图