r - ggtern 错误（在 `stat_density_tern()` 中：未使用的参数 (z.range = z.range)）

Question

我尝试从这篇文章中重现一个 ggtern 代码：三元图 - 跨组缩放不透明度

  library(ggtern)
  set.seed(1234)
  df <- data.frame(X = c(runif(150, 0.7, 1),runif(50, 0, 0.3)),
                   Y = c(runif(150, 0, 0.3),runif(50, 0, 0.3)),
                   Z = c(runif(150, 0, 0.5),runif(50, 0.5, 1)),
                   D = c(rep("A", 150), rep("B", 50)))


  # ternary plot 
  ggtern(df, aes(x = X,y = Y, z = Z, color = D)) +
    stat_density_tern(aes(alpha = ..level.., fill = D), 
                      geom = 'polygon', 
                      bins = 10,
                      color = "grey",bdl=0.005) +
    geom_point(alpha = 0.5) +
    scale_colour_manual(values = c("tomato3", "turquoise4"))``

我收到以下错误：

警告消息：
1：删除了 3 行包含非有限值 (StatDensityTern)。
2：计算失败stat_density_tern()：未使用的参数（z.range = z.range）

我不明白是什么导致了未使用参数的计算问题，这似乎无法在点周围绘制密度轮廓。

有人可以找出问题所在吗？谢谢。