R-echarts独立行热图

下面的代码创建了两个热图-第一个使用最上面的两行,第二个使用最后两行。对于热图的每个单元,x的值都不同。我想堆叠这些热图,这样当鼠标悬停在热图单元格上时,每个单元格的x值会有所不同。这是一个简化的例子,实际上我会有几十行,所以我希望这个解决方案是通用的。

我不介意一个不同的图表包,只要我可以访问被点击的单元格,它在鼠标悬停时显示x和y的值。

library(echarts4r)

df <- data.frame(
  y = c(1, 1, 2, 2)
  , x = 1:4
  , val = c(0, 1, 0, 1)
)

e1 <- df[1:2, ] %>%
  e_charts(x) %>%
  e_heatmap(y, val) %>%
  e_tooltip() %>%
  e_grid(bottom = 0, top = 0)

e2 <- df[3:4, ] %>%
  e_charts(x) %>%
  e_heatmap(y, val) %>%
  e_tooltip() %>%
  e_grid(bottom = 0, top = 0)