r - 如何使用 ggtern 包在三元图中的轴上添加标签？

Question

三元图如下图所示。我想使用 R 中的 ggtern 包添加 Z=60、Z=90 和 Y=60 的标签。

R代码链接是the R code of ternary diagram

Answer 1

这不是完美的答案，但我尝试通过 annotate 实现您想要的结果，如下所示:

ggtern(data=DATA,aes(x,y,z)) + 
  geom_polygon(aes(fill=Series),alpha=.5,color="black",size=0.25) +
  scale_fill_manual(values=as.character(unique(DATA$Series))) +
  theme(legend.position=c(0,1),legend.justification=c(0,1)) + 
  labs(fill="Region",title="Sample Filled Regions") +
  annotate(geom  = 'text',
           x     = c(0.1, 1/3, 0.0),
           y     = c(0.0, 0.0, 1.5),
           z     = c(0.5, 1/3, 1.0),
           angle = c(0, 0, 0),
           vjust = c(2.5, 2.5, -1.5),
           hjust = c(0.0, -0.2, 0.0),
           label = c("Z=90","Z=60","Y=60"),
           color = c("black","gray",'orange')) + # for inspection
  theme_nomask()   # allows drawing beyond the borders 

这会产生以下图片: