1

在此处输入图像描述

我正在使用 ggtern 包，尝试创建三元图。我希望能够通过为点轮廓分配代表“Growthzone”的单独颜色并将代表“SpotPosition”的单独颜色分配为点填充来区分“Growthzone”和“SpotPosition”。

我记得在 ggplot2 中我可以使用“颜色”作为轮廓，使用“填充”作为填充，但在 ggtern 中，“颜色”和“填充”似乎都指的是填充。

有没有我可以使用的不同命令，或者解决这个问题的方法？还是我的代码有问题？

Type = ALL$Type
Origin=ALL$Mount
Growthzone=ALL$GZ
LABELS=ALL$Run
ClastID=ALL$Clast_ID
SpotPosition=ALL$in_growth_section


DATA <- data.frame(An = ALL$XAn, Ab = ALL$Xab, 
Or = ALL$Xor, label = sprintf("%s", LABELS))
show(DATA)


plot <- ggtern(data = DATA, 
               mapping = aes(An, Ab, Or)) +
theme_rgbg() +  
  geom_mask() + 
  geom_point(aes(colour=Growthzone, shape=ClastID, fill=SpotPosition))+

scale_colour_manual(values = c("black", "brown", "red", "orange", "yellow")) +
scale_fill_manual(values = c("orange", "blue", "green", "darkgreen", "magenta"))+
scale_shape_manual(values = c(2))+ 
 
  #tweak guides
  guides(shape= guide_legend(order   =1,
                             override.aes=list(size=5)),
         size = guide_legend(order   =2))


last_plot()

在此处输入图像描述

4

0 回答 0