在R中使用shiny开发反应性散点图

install.packages("shiny")

library(shiny)

# 定义UI界面
ui <- fluidPage(
  titlePanel("反应性散点图"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入控件，例如选择数据集和X、Y轴变量
      selectInput("dataset", "选择数据集", choices = c("mtcars", "iris")),
      selectInput("xvar", "选择X轴变量", choices = NULL),
      selectInput("yvar", "选择Y轴变量", choices = NULL)
    ),
    mainPanel(
      # 添加输出图表
      plotOutput("scatterplot")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  # 根据选择的数据集更新X、Y轴变量的选项
  observeEvent(input$dataset, {
    updateSelectInput(session, "xvar", choices = colnames(get(input$dataset)))
    updateSelectInput(session, "yvar", choices = colnames(get(input$dataset)))
  })
  
  # 生成反应性散点图
  output$scatterplot <- renderPlot({
    # 读取选择的数据集
    data <- get(input$dataset)
    
    # 绘制散点图
    plot(data[, input$xvar], data[, input$yvar], 
         xlab = input$xvar, ylab = input$yvar, 
         main = "反应性散点图")
  })
}

# 运行shiny应用
shinyApp(ui = ui, server = server)

source("scatterplot.R")