Я пытаюсь воспроизвести код 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)
Я не знаю Не понимаю, что вызвало вычислительную проблему с неиспользованным аргументом, который, кажется, не может нарисовать контур плотности вокруг точек.
Может кто-нибудь разобраться в чем проблема? Спасибо.