ggplot / ggtern使用scale_fill_gradient

Question

我为我的数据生成热图（下面是数据的摘录），但我想为每个Color_ID设置不同的热图。因此，例如，5的所有Color_ID应该得到一个比例（粉红色到红色），而4的所有Color_ID应该得到不同的比例（从浅到深橙色）。但是，我似乎一次只能做一个量表。

ID  x   y   z   Color_ID    TypeID
1   ORA 0.6737  0.2047  0.1217  5   4
2   BAT 0.9333  0.0530  0.0137  5   4
3   HYX 0.5816  0.2797  0.1387  4   5
4   RAB 0.5900  0.3300  0.0800  1   5
5   ROO 0.6583  0.2171  0.1246  1   5
6   HIP 0.6691  0.1945  0.1364  1   5
7   TOR 0.7196  0.1890  0.0914  2   5
8   ELE 0.7637  0.1503  0.0860  3   5
9   PP  0.6446  0.2213  0.1341  5   7
10  BAR 0.7216  0.1934  0.0850  4   7
11  GAT 0.1151  0.5716  0.3133  1   3
12  EAG 0.2932  0.3889  0.3179  1   3
13  SNK 0.3688  0.3126  0.3186  1   3

这是我的代码的主要部分：

Iplot <- ggtern(data = my.data, aes(x=x, y=y, z=z, label = ID)) +
  stat_density2d(method = "lm", fullrange = T,
                 n = 100, geom = "polygon",
                 aes(fill = ..level..,
                     alpha = ..level..))+
  coord_tern(L="x",T="y",R="z") +
  theme_anticlockwise() +
  scale_fill_gradient(low = "#FED9A9",high = "#F08600")  +
  geom_text(color="black", size = 3)+ 
  facet_wrap(~ TypeID, ncol = 2)

Iplot

但是，所有4个方面都使用相同的比例。如何为每个Color_ID创建单独的比例？我尝试过这样的事情：

scale_fill_gradient(low = c("#FED9A9","#CDFF99"),high = c("#F08600","#FC4D45")



 scale_fill_gradient(low = "#FED9A9",high = "#F08600", data = subset(my.data, Color_ID == 4) + scale_fill_gradient(low = "#CDFF99",high = "#FC4D45", data = subset(my.data, Color_ID == 3)

谢谢！

Answer 1

图形语法的全部要点（ggplot的基础，因而是ggtern）是以这样的方式进行美学映射，使得它们对读者来说不会混淆，这就是为什么在各个方面之间共享相同的映射

我知道的唯一方法是，为了实现与你所寻求的一致的事情，就是单独绘制每个方面，然后将它们组合起来。请参阅以下代码：

library(ggtern)
my.data <- read.table("~/Desktop/ggtern_sample.txt",header=T) #Edit as required

plots <- list()
for(x in sort(unique(my.data$TypeID))){
  df.sub <- my.data[which(my.data$TypeID == x),]
  scales_gradient = if(x %% 2 == 0){
    scale_fill_gradient(low="green",high = "red") 
  }else if(x == 5){
    scale_fill_gradient(low="#FED9A9",high = "#F08600") 
  }else{
    scale_fill_gradient(low="blue",high = "magenta") 
  }

  #Build the plot for this subset
  base <- ggtern(data = df.sub, aes(x=x, y=y, z=z, label = ID)) +
    stat_density2d(method = "lm", fullrange = T,
                   n = 100, geom = "polygon",
                   aes(fill = ..level..,
                       alpha = ..level..))+
    scale_alpha(guide='none') + 
    coord_tern(L="x",T="y",R="z") +
    theme_anticlockwise() +
    scales_gradient +
    geom_text(color="black", size = 3)+ 
    facet_wrap(~ TypeID, ncol = 2)

  #Add to the list
  plots[[length(plots)+1]] = base
}

#Add to multiplot
ggtern.multi(plotlist = plots,cols=2)

这会产生以下结果：