使用ggplot R中的滑塊繪制多列的熱圖

Question

我有以下數據框

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)
)

這就是情節

ggplot(df, aes(x, y, fill = col2)) + geom_tile()

我想制作一個交互式圖表，我可以在其中使用滑塊更改目標列（在第 1、2 和 3 列之間切換）。

提前致謝。

Answer 1

您可以在plotly的ggplotly函數中使用frame美學來制作與您的目標（我不確定您的目標功能是什么）的交互式滑塊，如下所示：

library(plotly)
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$target <- rep(sample(c(1:3), 2), 10)
plot <- ggplot(df, aes(x, y, fill = col2, frame = target)) + geom_tile()
ggplotly(plot)

輸出：