R中具有分类变量的三元热图

Question

我想绘制一个三元热图，其中填充了每个具有大多数分类变量颜色的bin。

在此示例数据集中，cat列具有两个可能的值。通过此代码，我们可以说明两个类别的要点在哪里：

set.seed(1)
ex <- data.frame(x = runif(500), y = runif(500), z = runif(500),
                 cat = sample(c("A", "B")))

library(ggtern)
ggtern(ex, aes(x, y, z)) +
  geom_point(bins = 5, aes(color = as.factor(cat)))

现在，如果我们在三元热图的每一侧考虑10个bin，我可以说明每个类别中点的密度：

cowplot::plot_grid(
ggtern(ex[which(ex$cat == "A"), ], aes(x, y, z)) +
  geom_tri_tern(bins = 10) +
  labs(title = "A"),
ggtern(ex[which(ex$cat == "B"), ], aes(x, y, z)) +
  geom_tri_tern(bins = 10) +
  labs(title = "B"),
nrow = 2)

我想要的只是一个三元热图，每个色箱的颜色都属于该类别，并且焦点箱中的点数最多。 我找到了此链接，但代码不起作用：Ternary plots with binned means/medians