ggplot2 中多面分组条形图的不同 colored颜色 阴影

你可以使用ggnewscale套餐.下面，我分别制作了物种A和B的数据子集.然后，我用一组 colored颜色 制作了物种A条，然后调用new_scale_fill()来初始化一个新的填充比例.然后，我制作了不同 colored颜色 的物种B条.这两个栏都将有一组关联的 colored颜色 和一个可以用scale_fill_manual()设置的图例.

library(ggnewscale)
library(ggplot2)
library(dplyr)
temp.data = data.frame (Species  = rep(c("A","B"),each=2, times=2),
                        Status = rep(c("An","Bac"), times=4),
                        Sex = rep(c("Male","Female"), each=4, times=1),
                        Proportion = c(6.86, 7.65, 30.13, 35.71, 7.13, 10.33, 29.24, 31.09))

tempA <- temp.data %>% filter(Species == "A")
tempB <- temp.data %>% filter(Species == "B")


ggplot() +
  geom_bar(data = tempB, 
           mapping = aes(x = Species, y = Proportion, fill = Status), 
           stat='identity', 
           position = position_dodge(width = 0.73), 
           width=.67) +
  scale_fill_manual(name = "Species", 
                    labels = c("An","Bac"),
                    values = c("#86a681","#0a3e03"),
                    guide = guide_legend(override.aes = list(fill=c("gray75", "gray25")))) + 
  new_scale_fill() + 
  geom_bar(data = tempA, 
           mapping = aes(x = Species, y = Proportion, fill = Status), 
           stat='identity', 
           position = position_dodge(width = 0.73), 
           width=.67, show.legend=FALSE) +
  scale_fill_manual(name = "Species A: Status", 
                    labels = c("An","Bac"),
                    values = c("brown2","brown4")) +
  facet_grid(Sex ~ .) + 
  xlab("X title") + 
  ylab("Y title") + 
  theme_light() + theme(legend.title= element_text(size = 8),
                        legend.title.align=0.5,
                        legend.position = c(),
                        legend.background=element_blank(),
                        legend.text=element_text(size=7),
                        legend.key.size = unit(0.6, 'cm'),
                        axis.title.x = element_text(size = 9),
                        axis.title.y = element_text(size = 9),
                        axis.title.y.right = element_text("Sex of groups"),
                        strip.background = element_rect(
                          color="lightgrey", fill="white", linewidth=0.5, linetype="solid"),
                        strip.text.y = element_text(color = "darkgrey", face = "bold"))

^{创建于2023-04-26，共reprex v2.0.2个}