ggplot - 去除透明度图例

Question

我使用以下数据集创建了一个图表：

Locus;Island;AR;Type;Shapetype
MS1;ST;4,6315;MS;NA
MS1;FG;3,9689;MS;NA
MS1;SN;3;MS;NA
MS2;ST;2;MS;NA
MS2;FG;2;MS;NA
MS2;SN;2;MS;NA
MS3;ST;7,5199;MS;NA
MS3;FG;5,5868;MS;NA
MS3;SN;3;MS;NA
MS4;ST;2,9947;MS;NA
MS4;FG;3;MS;NA
MS4;SN;2;MS;NA
MS5;ST;9,0726;MS;NA
MS5;FG;5,6759;MS;NA
MS5;SN;2,963;MS;NA
MS6;ST;6,5779;MS;NA
MS6;FG;5,6842;MS;NA
MS6;SN;2;MS;NA
MS7;ST;2;MS;NA
MS7;FG;1;MS;NA
MS7;SN;1;MS;NA
MS8;ST;3,97;MS;NA
MS8;FG;2,9032;MS;NA
MS8;SN;1;MS;NA
MS9;ST;2;MS;NA
MS9;FG;1,9977;MS;NA
MS9;SN;2;MS;NA
MS10;ST;3,9733;MS;NA
MS10;FG;3,9971;MS;NA
MS10;SN;2;MS;NA
MS11;ST;7,4172;MS;NA
MS11;FG;5,6471;MS;NA
MS11;SN;3;MS;NA
MS12;ST;2;MS;NA
MS12;FG;2;MS;NA
MS12;SN;2;MS;NA
MS13;ST;5,6135;MS;NA
MS13;FG;3;MS;NA
MS13;SN;2;MS;NA
MT;ST;12;MT;NA
MT;FG;3;MT;NA
MT;SN;2;MT;NA
TLR1LA;ST;3,68;TLR;TLR1LA
TLR1LA;FG;4,4;TLR;TLR1LA
TLR1LA;SN;1;TLR;TLR1LA
TLR1LB;ST;3,99;TLR;TLR1LB
TLR1LB;FG;5;TLR;TLR1LB
TLR1LB;SN;1;TLR;TLR1LB
TLR2A;ST;4,9;TLR;TLR2A
TLR2A;FG;5;TLR;TLR2A
TLR2A;SN;2;TLR;TLR2A
TLR2B;ST;5,64;TLR;TLR2B
TLR2B;FG;4;TLR;TLR2B
TLR2B;SN;3;TLR;TLR2B
TLR3;ST;1;TLR;TLR3
TLR3;FG;3;TLR;TLR3
TLR3;SN;3;TLR;TLR3
TLR4;ST;1;TLR;TLR4
TLR4;FG;2,89;TLR;TLR4
TLR4;SN;2;TLR;TLR4
TLR5;ST;2,9;TLR;TLR5
TLR5;FG;2;TLR;TLR5
TLR5;SN;2;TLR;TLR5
TLR21;ST;2,91;TLR;TLR21
TLR21;FG;1;TLR;TLR21
TLR21;SN;1;TLR;TLR21

这里是绘图的代码：

ggplot(comb, aes(Island, AR, group = Locus, colour = (factor(Type)))) +
  geom_line(aes(colour = factor(Type), alpha = factor(Type), size = factor(Type))) + 
  scale_alpha_manual(values = c("MS"=0.2, "MT"=0.2, "TLR" = 1)) +
  scale_size_manual(values = c("MS"=0.5, "MT"=0.5, "TLR" = 0.3)) +
  xlab("Island") + 
  ylab("Allelic Richness") +
  scale_x_discrete(labels = c("Santiago", "Fogo", "Sao Nicolau"), 
                   limits = c("ST", "FG", "SN")) +
  geom_point(aes(shape = (factor(Shapetype)))) + 
  scale_shape_manual(values = c(1,2,3,4,5,6,7,8,9,10), 
                     breaks=c("TLR1LA","TLR1LB","TLR2A","TLR2B","TLR3",
                              "TLR4", "TLR5","TLR21", "MS", "MT")) + 
  scale_colour_manual(values = c("Red","Blue","Black"), 
                      breaks=c("TLR1LA","TLR1LB","TLR2A","TLR2B","TLR3",
                               "TLR4","TLR5","TLR21", "MS", "MT")) + 
  theme_bw() + 
  labs(shape="Functional", colour="Neutral")

这张图的绘制还行，但是我需要移除为alpha值创建的图例。我尝试了使用+ scale_alpha(guide = 'none')和guide = 'none'，但它们似乎都没有起作用（虽然我可能将它们放在了错误的地方）。我怀疑它们不起作用是因为对alpha值进行了手动调整。

- Hjalte

Answer 1

请注意，这不是一个最简单的例子。

请注意，您的alpha图例也是您的size图例，但由于大小非常相似，很难看出来。在scale_alpha_manual和scale_size_manual中都设置guide = 'none'以删除图例的那一部分。

如果只在scale_alpha_manual中进行，则可以看到alpha变为1，因此它的作用如预期。所以@Thierry的答案是正确的。

完整代码：

ggplot(comb, aes(Island, AR, group = Locus, colour = (factor(Type)))) +
  geom_line(aes(colour = factor(Type), alpha = factor(Type), size = factor(Type))) + 
  scale_alpha_manual(values = c("MS"=0.2, "MT"=0.2, "TLR" = 1), guide = 'none') +
  scale_size_manual(values = c("MS"=0.5, "MT"=0.5, "TLR" = 0.3), guide = 'none') +
  xlab("Island") + 
  ylab("Allelic Richness") +
  scale_x_discrete(labels = c("Santiago", "Fogo", "Sao Nicolau"), 
                   limits = c("ST", "FG", "SN")) +
  geom_point(aes(shape = (factor(Shapetype)))) + 
  scale_shape_manual(values = c(1,2,3,4,5,6,7,8,9,10), 
                     breaks=c("TLR1LA","TLR1LB","TLR2A","TLR2B","TLR3",
                              "TLR4", "TLR5","TLR21", "MS", "MT")) + 
  scale_colour_manual(values = c("Red","Blue","Black"), 
                      breaks=c("TLR1LA","TLR1LB","TLR2A","TLR2B","TLR3",
                               "TLR4","TLR5","TLR21", "MS", "MT")) + 
  theme_bw() + 
  labs(shape="Functional", colour="Neutral")

结果

请注意，我的y轴是错误的，因为您的数据包含逗号，而我很懒。

- Axeman

---

明白了！谢谢你解释图例重叠的问题 - 现在我知道为什么无法使用 guide = "none"。 - Hjalte

Answer 2

guide = "none"应该能解决问题。

ggplot(
  comb, 
  aes(Island, AR, group = Locus, colour = (factor(Type)))
) + 
  geom_line(aes(alpha = factor(Type), size = factor(Type))) + 
  geom_point(aes(shape = factor(Shapetype))) +       
  scale_x_discrete(
    "Island", 
    labels = c("Santiago", "Fogo", "Sao Nicolau"), 
    limits = c("ST", "FG", "SN")
  ) + 
  ylab("Allelic Richness") + 
  scale_alpha_manual(values = c("MS"=0.2, "MT"=0.2, "TLR" = 1), guide = "none") + 
  scale_size_manual(values = c("MS"=0.5, "MT"=0.5, "TLR" = 0.3)) + 
  scale_shape_manual(
    "Functional",
    values = c(1,2,3,4,5,6,7,8,9,10), 
    breaks = c("TLR1LA","TLR1LB","TLR2A","TLR2B","TLR3","TLR4","TLR5","TLR21", "MS", "MT")
  ) + 
  scale_colour_manual(
    "Neutral",
    values = c("Red","Blue","Black"), 
    breaks = c("TLR1LA","TLR1LB","TLR2A","TLR2B","TLR3","TLR4","TLR5","TLR21", "MS", "MT")
  ) + 
  theme_bw()

- Thierry

---

它对我来说没有移除图例。 - adaien

Answer 3

从这个基本情节开始

bp <- df %>%
  ggplot(aes(column_of_interest, alpha = 0.25)) + geom_density()

来自r cookbook，其中bp是您的ggplot -

删除特定美学（alpha）的图例：

bp + guides(alpha="none")

- Jas