如何使用ggtern中的geom_polygon正确填充颜色？

Question

这是我用来在三元图中创建边界的代码：

library(ggtern)
DATA <- data.frame(x = c(0,0,0.04),
               y = c(1,0.6,0.575),
               z = c(0,0.4,0.385),
               xend = c(0.4,0.21,0.1),
               yend = c(0.0,0.475,0),
               zend = c(0.6,0.315,0.9),
               Series = c("yz","xz","xy"))
ggtern(data=DATA,aes(x,y,z,xend=xend,yend=yend,zend=zend)) + 
geom_segment(aes(color=Series),size=1) +
scale_color_manual(values=c("darkgreen","darkblue","darkred")) +
theme_bw() + theme_nogrid() + 
theme(legend.position=c(0,1),legend.justification=c(0,1)) + 
labs(title = "Sample Midpoint Segments")

以下代码会生成下面的图表：

我想在每个部分填充不同的颜色。该图被分为4个部分。请问如何使用geom_polygon函数或其他函数在每个部分中填充不同的颜色？

- R June

Answer 1

试试这个：

g <- data.frame(y=c(1,0,0),
                x=c(0,1,.4),
                z=c(0,0,.6),         Series="Green")

p <- data.frame(y=c(1,0.475,0.6),
                x=c(0,0.210,0),
                z=c(0,0.315,.4),         Series="Red")

q <- data.frame(y=c(0.575,0.475,0.0,0.0),
                x=c(0.040,0.210,0.4,0.1),
                z=c(0.385,0.315,0.6,0.9),         Series="Yellow")

f <- data.frame(y=c(0.6,0.575,0.0,0.0),
                x=c(0.0,0.040,0.1,0.0),
                z=c(0.4,0.385,0.9,1.0),         Series="Blue")

DATA = rbind(g, p, q, f)
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")

- AK88

---

完全没有问题。获取正确的坐标有点棘手。无论如何，随意给我的答案点赞：)) - AK88

是的，这有点棘手。但现在我通过查看这个程序能够理解了。谢谢。 :) - R June

Answer 2

你尝试过 geom_polygon(aes(fill=col), alpha=0.5) 吗？

- AntonCH

---

抱歉，它不起作用。我尝试了一些其他组合，但它没有按照我想要的方式工作。 - R June