Я пытаюсь сделать групповые прямоугольники отображаемыми в виде сетки, и мне нужна общая легенда для каждой группы, отображаемой сбоку. Я уже сделал это для одного подмножества данных, вот пример кода
group.colors=c("V"= "#F8766D", "W"= "#619CFF", "X" ="#00BA38", "Y"="#E69F00", "Z"="#999999")
g1=ggplot(data=df[df$analyte=="BP3",], aes(x=analyte, y=concentration, fill=Lab_ID))+geom_boxplot(outlier.shape = NA)+geom_point(aes(group=Lab_ID),position=position_dodge(width=0.75), size=1.5, alpha=.9)+theme_bw()+theme(legend.position = "none")
g1=g1+scale_fill_manual(values=group.colors)+ylab("concentration (ng/mL)")+xlab("")
g2=ggplot(data=df[df$analyte=="BPA",], aes(x=analyte, y=concentration, fill=Lab_ID))+geom_boxplot(outlier.shape = NA)+geom_point(aes(group=Lab_ID),position=position_dodge(width=0.75), size=1.5, alpha=.9)+theme_bw()+theme(legend.position = "none")
g2=g2+scale_fill_manual(values=group.colors)+ylab("concentration (ng/mL)")+xlab("")
f=ggarrange(g1,g2,nrow=1,ncol=2, common.legend=TRUE, legend="right")
annotate_figure(f,top= text_grob("Title", face = "bold", size = 16))
По какой-то причине, когда я использую один и тот же код на другом наборе аналитов, легенда не перечисляет всегруппы, несмотря на то, что группы находятся в коробочках
Я пытался включить ограничения в scale_fill_manual, но ничего не сделал