Как нарисовать барицентрические координаты, используя ggtern в R?

Question

Я пытаюсь нарисовать график, который использует переменные A,B и O в качестве входных данных и "L" в качестве выходных данных, ограниченный условием, что:

A + B + O = 1 (0

Я думаю, что я должен использовать барицентрические координаты, чтобы показать это, и глубина цвета покажет значение L.

Следующее - моя функция, но сюжет, который я сделал, представляет собой чисто синий треугольник. Так не должно быть.

A = seq(0.00001, 0.99999, length=100)
B = A
O = A
L = log(A*A+2*A*O+B*B+2*B*O+2*A*B+O*O)
df = data.frame(cbind(A,B,O,L))

library(ggtern)
library(hexbin)

ggtern(df,aes(A,B,O)) + 
     geom_hex_tern(binwidth=0.05,
                   aes(value=L),
                   fun=mean)

Может ли кто-нибудь помочь мне улучшить этот кусок кода?