r - 是否可以使用 ggplot2 在我的图例中的一个键标签中添加 6 种颜色？

Question

我在这里很新，但我总是得到很多帮助来解决其他人的问题和答案，我想如果有人能帮助我，我会尝试。

我想我可能只是在寻找一些不可能的东西，但我希望不是!也许这里的一些天才知道怎么做，哈哈。

因此，我创建了一个堆叠条形图，显示每个位置(x 轴)我们在调查期间遇到的鱼的数量(y 轴)。我专注于食草动物，所以在条形图中，食草动物/杂食动物的总数是彩色的，而食肉动物是白色的。在我的整个研究中，每个位置在所有图表中都分配了一种颜色，所以我在这里也这样做了。这导致每张图有 6 个不同颜色的条形，顶部有一个白色区域堆叠，代表计数的食肉动物。现在我想知道:是否有可能在图例中的一个方 block /键输入中代表所有 6 种蓝色？我现在选择了色标中间部分的蓝色来代表食草动物，但由于这仅对应于 1 个位置，因此可能不是最佳解决方案。

我创建的图表。我添加了两个误差线:实线代表所有被计数的鱼，虚线代表食草动物。

我已经为这张图做了一个全新的图例，所以我只有 2 个条目(图例中的方 block )而不是 7 个(6 个位置 + 食肉动物)。我用来创建这张图片的代码如下:

st_col
"white"   "#FFF7FB" "#D7D6E9" "#8CB3D4" "#2987BB" "#034E7B"

fishplot <- ggplot(means_df,mapping = aes(x=Location, y=Count, width = 0.8,
                                           fill = Col,alpha = Legend))+
  geom_bar(stat="identity",position=position_stack(),color="gray8")+
  facet_wrap(~Size,  ncol = 3, labeller = fig_f)+
  labs(x=" ",y="Average fish count")+ 
  scale_y_continuous(expand = c(0, 0))+
  theme(strip.text.x = element_text(hjust = 0.01,
                                    size = 9),
        panel.spacing.y = unit(18, "pt"),
        panel.spacing = unit(15, "pt"))+
  theme(axis.text.x = element_text(angle = 50, hjust=1),
        axis.text.y = element_text(size=9))+
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(),
        strip.background = element_rect(fill = "white", size = 2))+
  theme(axis.line.x = element_line(color="gray8", size = 0.5),
        axis.line.y = element_line(color="gray8", size = 0.5),
        axis.ticks.x = element_blank())+
  theme(legend.position = c(1.05,0.15),
        legend.key = element_rect(fill = "NA", size = 6),
        legend.title = element_text(size = 10))+
  scale_fill_manual(values = st_col) +
  scale_alpha_manual(name = "Fish type",
                     values = c(1,1,1),
                     breaks = c("Carnivores","","Herbivores/omnivores"),
                     drop = FALSE,
                     labels = c("Carnivores","","Herbivores/\nOmnivores"))+
  guides(alpha = guide_legend(override.aes = list(color = c("grey8","white","grey8"),
                                                  fill = c("white","white","#8CB3D4"),
                                                  linetype = c(1,0,1)),
                              keyheight = unit(c(15,5,15),"pt"),
                              keywidth = unit(c(15,5,15),"pt")),
         fill = "none")                           

fishplot <- fishplot  +
  geom_errorbar(aes(ymax=upper, ymin=lower, linetype = Herbivore),size=0.4, width=0.1,
                show.legend =F, data=means_df,position=position_dodge(0.8)) 

我不知道如何编写代码来复制我的数据，所以我想我只需要添加它的外观截图即可。我希望这也有帮助。

编辑:在一个很好的提示之后，这显然可以重现我的数据集

> dput(means_df)
structure(list(Location = structure(c(1L, 2L, 3L, 4L, 5L, 1L, 
2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 
3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 
4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L), .Label = c("Nizuc", 
"Ceiba", "Tortuga", "Caricomp", "Lagoon"), class = "factor"), 
    Size = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 
    3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 
    1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 
    4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L), .Label = c(" 1 - 5", 
    " 6 - 10", " 11 - 15", " 16 - 20", "20"), class = "factor"), 
    Herbivore = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("No", 
    "Yes"), class = "factor"), Count = c(5.2, 0.8, 2.5, 2.75, 
    3.5, 10.2, 2.8, 9.5, 12.75, 2.25, 0, 3.2, 5.5, 1, 0, 0, 0, 
    1.25, 0, 0, 0, 0, 2.5, 3.75, 0, 4.8, 0.6, 5.5, 7, 0.75, 0.2, 
    0, 9.25, 4, 0, 0, 2, 1, 0.25, 0, 0, 0.4, 4.25, 0, 0, 0, 0, 
    0.25, 0.5, 0.25), Col = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 2L, 3L, 4L, 5L, 6L, 2L, 3L, 4L, 5L, 6L, 2L, 
    3L, 4L, 5L, 6L, 2L, 3L, 4L, 5L, 6L, 2L, 3L, 4L, 5L, 6L), .Label = c("1", 
    "3", "6", "9", "12", "15"), class = "factor"), mean = c(10, 
    1.4, 8, 9.75, 4.25, 10.4, 2.8, 18.75, 16.75, 2.25, 0, 5.2, 
    6.5, 1.25, 0, 0, 0.4, 5.5, 0, 0, 0, 0, 2.75, 4.25, 0.25, 
    4.8, 0.6, 5.5, 7, 0.75, 0.2, 0, 9.25, 4, 0, 0, 2, 1, 0.25, 
    0, 0, 0.4, 4.25, 0, 0, 0, 0, 0.25, 0.5, 0.25), sem = c(4.40454310910905, 
    0.4, 1.77951304200522, 7.15745532061966, 1.88745860881769, 
    4.2142615011411, 0.489897948556636, 2.62599187609812, 9.11386306677909, 
    1.10867789130417, 0, 3.42636833980236, 2.39791576165636, 
    0.946484724300046, 0, 0, 0.4, 3.3291640592397, 0, 0, 0, 0, 
    1.49303940559741, 2.32289331079439, 0.25, 2.6343879744639, 
    0.4, 1.5545631755148, 4.77842372894382, 0.75, 0.2, 0, 1.49303940559741, 
    3.67423461417477, 0, 0, 2, 0.707106781186548, 0.25, 0, 0, 
    0.4, 3.61420807370024, 0, 0, 0, 0, 0.25, 0.5, 0.25), lower = c(5.59545689089095, 
    1, 6.22048695799478, 2.59254467938034, 2.36254139118231, 
    6.18573849885891, 2.31010205144336, 16.1240081239019, 7.63613693322091, 
    1.14132210869583, 0, 1.77363166019764, 4.10208423834364, 
    0.303515275699954, 0, 0, 5.55111512312578e-17, 2.1708359407603, 
    0, 0, 0, 0, 1.25696059440259, 1.92710668920561, 0, 2.1656120255361, 
    0.2, 3.9454368244852, 2.22157627105618, 0, 2.77555756156289e-17, 
    0, 7.75696059440259, 0.325765385825233, 0, 0, 0, 0.292893218813452, 
    0, 0, 0, 5.55111512312578e-17, 0.63579192629976, 0, 0, 0, 
    0, 0, 0, 0), upper = c(14.404543109109, 1.8, 9.77951304200522, 
    16.9074553206197, 6.13745860881769, 14.6142615011411, 3.28989794855664, 
    21.3759918760981, 25.8638630667791, 3.35867789130417, 0, 
    8.62636833980236, 8.89791576165636, 2.19648472430005, 0, 
    0, 0.8, 8.8291640592397, 0, 0, 0, 0, 4.24303940559741, 6.57289331079439, 
    0.5, 7.4343879744639, 1, 7.0545631755148, 11.7784237289438, 
    1.5, 0.4, 0, 10.7430394055974, 7.67423461417477, 0, 0, 4, 
    1.70710678118655, 0.5, 0, 0, 0.8, 7.86420807370024, 0, 0, 
    0, 0, 0.5, 1, 0.5), Legend = structure(c(1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L), .Label = c("Carnivores", "", "Herbivores/omnivores"), class = "factor")), row.names = c(2L, 
4L, 6L, 8L, 10L, 12L, 14L, 16L, 18L, 20L, 22L, 24L, 26L, 28L, 
30L, 32L, 34L, 36L, 38L, 40L, 42L, 44L, 46L, 48L, 50L, 1L, 3L, 
5L, 7L, 9L, 11L, 13L, 15L, 17L, 19L, 21L, 23L, 25L, 27L, 29L, 
31L, 33L, 35L, 37L, 39L, 41L, 43L, 45L, 47L, 49L), class = "data.frame")

Answer 1

我不太明白你的目标是什么。如果我错过了这里的标记，也许你可以画一幅画，或者解释更多？抱歉我的困惑!

library(ggplot2)

st_col <- c("#FFF7FB","#D7D6E9","#8CB3D4", "#2987BB", "#034E7B")

df$Legend2 <- ifelse(df$Legend == "Carnivores", "Carnivores", NA)

ggplot(df, aes(x=Location, y=Count, width=0.8, fill=Location, alpha=Legend2)) +
  geom_bar(stat="identity", position=position_stack(), color="gray8") +
  geom_errorbar(aes(x=Location, y=Count, ymax=upper, ymin=lower, linetype=Herbivore),
                size=0.4, width=0.1, show.legend=FALSE, position=position_dodge(0.8), inherit.aes=FALSE) +
  # Format plot area
  labs(x="", y="Average fish count") + 
  scale_y_continuous(expand = c(0,0)) +
  theme(strip.text.x = element_text(hjust =0.01, size=9),
        panel.spacing.y = unit(18, "pt"),
        panel.spacing = unit(15, "pt"))+
  theme(axis.text.x = element_text(angle=50, hjust=1),
        axis.text.y = element_text(size=9))+
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(),
        strip.background = element_rect(fill = "white", size = 2))+
  theme(axis.line.x = element_line(color="gray8", size = 0.5),
        axis.line.y = element_line(color="gray8", size = 0.5),
        axis.ticks.x = element_blank()) +
  # Format legend
  scale_alpha_manual(values=0, name="Carnivores", labels="All sites", na.translate=FALSE) +
  scale_fill_manual(values=st_col, labels=levels(df$Location), name="Herbivores/Omnivores", na.translate=FALSE) +
  theme(legend.key = element_rect(fill = "transparent")) +
  # Facet
  facet_wrap(~Size,  ncol = 3)
Created on 2021-12-16 by the reprex package (v2.0.1)

或者像这样:

library(ggplot2)

st_col <- c("white", "#FFF7FB","#D7D6E9","#8CB3D4", "#2987BB", "#034E7B")

df$Loc <- ifelse(df$Legend == "Carnivores", "Carnivores", paste("Herbivores/Omnivores", df$Location))
df$Loc <- factor(df$Loc, levels=c("Carnivores", paste("Herbivores/Omnivores", levels(df$Location))))

ggplot(df, aes(x=Location, y=Count, width=0.8, fill=Loc)) +
  geom_bar(stat="identity", position=position_stack(), color="gray8") +
  geom_errorbar(aes(x=Location, y=Count, ymax=upper, ymin=lower, linetype=Herbivore),
                size=0.4, width=0.1, show.legend=FALSE, position=position_dodge(0.8), inherit.aes=FALSE) +
  # Format plot area
  labs(x="", y="Average fish count") + 
  scale_y_continuous(expand = c(0,0)) +
  theme(strip.text.x = element_text(hjust =0.01, size=9),
        panel.spacing.y = unit(18, "pt"),
        panel.spacing = unit(15, "pt"))+
  theme(axis.text.x = element_text(angle=50, hjust=1),
        axis.text.y = element_text(size=9))+
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(),
        strip.background = element_rect(fill = "white", size = 2))+
  theme(axis.line.x = element_line(color="gray8", size = 0.5),
        axis.line.y = element_line(color="gray8", size = 0.5),
        axis.ticks.x = element_blank()) +
  # Format legend
  scale_fill_manual(values=st_col, labels=levels(df$Loc), name="Fish Types") +
  # Facet
  facet_wrap(~Size,  ncol = 3)