используя ggplot и ggtern, возьмите строку из переменных в кадре данных для обозначения стрелок

Question

с использованиемggplot2с расширениемggternМне нужно динамически изменять метки стрелок в зависимости от фасета.

Начиная с

      df <- tibble::tribble(
  ~Tpoints, ~Lpoints, ~Rpoints,                    ~combo,
       0.4,      0.5,      0.1, "1_score-2_score-3_score",
       0.3,      0.2,      0.5, "1_score-2_score-3_score",
       0.5,      0.3,      0.2, "1_score-2_score-3_score",
       0.5,      0.4,      0.1, "1_score-2_score-3_score",
       0.4,      0.2,      0.4, "1_score-2_score-3_score",
       0.1,      0.9,        0, "1_score-2_score-4_score",
       0.5,      0.2,      0.3, "1_score-2_score-4_score",
       0.2,        0,      0.8, "1_score-2_score-4_score",
       0.5,      0.1,      0.4, "1_score-2_score-4_score",
       0.5,      0.3,      0.2, "1_score-2_score-4_score",
       0.4,      0.5,      0.1, "1_score-2_score-5_score",
       0.6,      0.3,      0.1, "1_score-2_score-5_score",
       0.2,      0.6,      0.2, "1_score-2_score-5_score",
         0,      0.5,      0.5, "1_score-2_score-5_score",
       0.5,      0.5,        0, "1_score-2_score-5_score",
       0.1,      0.9,        0, "1_score-3_score-4_score",
       0.5,      0.4,      0.1, "1_score-3_score-4_score",
       0.2,      0.2,      0.6, "1_score-3_score-4_score",
       0.1,      0.1,      0.8, "1_score-3_score-4_score",
       0.2,      0.1,      0.7, "1_score-3_score-4_score"
  ) |> 
  tidyr::separate(combo, into = c("A", "B", "C"), sep = "-", remove = FALSE)


PLOT <- ggtern::ggtern(data=df, ggplot2::aes(x = Lpoints, y = Tpoints, z = Rpoints))
PLOT +
  ggtern::theme_showarrows() +
  ggplot2::facet_wrap(~combo)

Простой сюжет

Мне нужно, чтобы метки стрелок представляли собой строку, взятую из кадра данных, чтобы получить такой график.

Желанный

Я попытался получить доступ к информации в кадре данных изggtern::Tlab(A). Я попробовал использовать синтаксис клеяggtern::Tlab("{A}")и я попытался вручную наклеить метки, назначив объекту графикаPLOT$labels$Larrow <- c("1_score", "2_score")