使用R中的滑块绘制多个数据帧的热图

install.packages("shiny")
install.packages("ggplot2")

library(shiny)
library(ggplot2)

# 假设我们有两个数据帧df1和df2
df1 <- data.frame(x = rnorm(10), y = rnorm(10), z = rnorm(10))
df2 <- data.frame(x = rnorm(10), y = rnorm(10), z = rnorm(10))

# 定义UI
ui <- fluidPage(
  titlePanel("热图滑块选择器"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("frame", "选择数据帧:", 
                  min = 1, max = 2, value = 1, step = 1),
      sliderInput("value", "选择值范围:", 
                  min = min(df1$z, df2$z), max = max(df1$z, df2$z), 
                  value = c(min(df1$z, df2$z), max(df1$z, df2$z)))
    ),
    mainPanel(
      plotOutput("heatmap")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  output$heatmap <- renderPlot({
    # 根据滑块选择数据帧
    if (input$frame == 1) {
      data <- df1
    } else {
      data <- df2
    }
    
    # 使用ggplot2绘制热图
    ggplot(data, aes(x = x, y = y, fill = z)) +
      geom_tile() +
      scale_fill_gradient(low = "white", high = "red") +
      coord_equal() +
      theme_minimal() +
      labs(title = "热图", fill = "值")
  })
}

# 运行Shiny应用程序
shinyApp(ui = ui, server = server)