在Shiny中绘制两个数据框中的列

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  titlePanel("绘制两个数据框中的列"),
  sidebarLayout(
    sidebarPanel(
      # 在这里添加输入控件，用于选择要绘制的列
    ),
    mainPanel(
      # 在这里添加输出控件，用于显示绘制的图形
    )
  )
)

server <- function(input, output) {
  # 在这里编写服务器端代码，用于处理数据和绘制图形
}

shinyApp(ui = ui, server = server)

sidebarPanel(
  selectInput("col1", "选择第一个数据框的列：", choices = colnames(df1)),
  selectInput("col2", "选择第二个数据框的列：", choices = colnames(df2))
)

mainPanel(
  plotOutput("plot")
)

server <- function(input, output) {
  output$plot <- renderPlot({
    # 获取用户选择的列
    col1 <- input$col1
    col2 <- input$col2
    
    # 处理数据，例如从数据框中提取对应的列
    data1 <- df1[, col1]
    data2 <- df2[, col2]
    
    # 绘制图形，例如使用plot函数绘制散点图
    plot(data1, data2, xlab = col1, ylab = col2)
  })
}