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

输出：