R语言ggplot如何通过滑块切换多列绘制交互式热力图

两种实现路径可按需选择： #

方案1：基于plotly生成单文件离线交互图 #

无需部署服务，运行后直接生成可独立保存为HTML的交互图表，自带滑块控件，适合快速分享。
完整代码：

# 加载依赖包
library(ggplot2)
library(plotly)
library(tidyr)

# 构造示例数据（和提供的代码逻辑完全一致，加随机种子方便复现）
set.seed(123)
df <- data.frame(
  x = rep(c(2, 5, 7, 9, 12), 4),
  y = rep(c(1, 2), each = 10),
  col1 = rexp(20),
  col2 = rnorm(20), 
  col3 = rexp(20)
)

# 将宽格式数据转为长格式，合并三个待切换的数值列
df_long <- pivot_longer(
  df,
  cols = c(col1, col2, col3),
  names_to = "metric",
  values_to = "fill_val"
)

# 绘制ggplot对象，通过frame参数绑定指标列，用于生成交互帧
p <- ggplot(df_long, aes(x = x, y = y, fill = fill_val, frame = metric)) +
  geom_tile() +
  labs(fill = "数值")

# 转为plotly交互对象，配置滑块切换无过渡动画，匹配热力图切换场景
interactive_plot <- ggplotly(p) |> 
  animation_opts(
    transition = 0,
    frame = 0,
    redraw = TRUE
  )

# 调用查看图表
interactive_plot

效果说明：

• 图表底部自动生成滑块，拖动即可在col1、col2、col3三个填充列之间切换
• 支持鼠标悬停查看单元格具体坐标、数值信息
• 可通过plotly自带导出功能存为单个HTML文件，接收方无需安装R环境也能直接打开使用交互功能

方案2：基于shiny搭建自定义交互应用 #

适合需要扩展更多交互功能（比如配色调整、数据筛选、阈值标注等）的场景，代码如下：

# 加载依赖包
library(shiny)
library(ggplot2)

# 构造示例数据
set.seed(123)
df <- data.frame(
  x = rep(c(2, 5, 7, 9, 12), 4),
  y = rep(c(1, 2), each = 10),
  col1 = rexp(20),
  col2 = rnorm(20), 
  col3 = rexp(20)
)

# 定义前端界面
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 滑块控件，选择对应填充列
      sliderInput(
        inputId = "col_selected",
        label = "切换热力图填充列",
        min = 1,
        max = 3,
        value = 2, # 默认选中col2，和原有绘图代码默认状态一致
        step = 1,
        pre = "col",
        ticks = FALSE
      )
    ),
    mainPanel(
      plotOutput("heatmap_plot", height = "400px")
    )
  )
)

# 定义后端渲染逻辑
server <- function(input, output) {
  output$heatmap_plot <- renderPlot({
    # 动态读取滑块选中的列数据
    current_fill <- df[[paste0("col", input$col_selected)]]
    ggplot(df, aes(x = x, y = y, fill = current_fill)) +
      geom_tile() +
      labs(fill = paste0("col", input$col_selected))
  })
}

# 启动交互应用
shinyApp(ui = ui, server = server)

效果说明：

• 运行后自动唤起本地浏览器打开交互页面，拖动侧边栏滑块即可实时重绘热力图
• 控件逻辑、图表样式可自由扩展，方便后续添加更多定制化分析功能

内容的提问来源于stack exchange，提问作者nuggetEf