使用相同的标签和颜色手动为不同的图形手动化和彩色传奇

Question

我正在尝试创建共享相同传说的多个图形。我找到了许多结合多个图形的方法，并且ggarrange似乎可以为所有应该是唯一的共享传说创建一个共享的传说。但是，我在图形时遇到了一些问题，因为其中一些图没有相同的门（定义传说颜色），但是我希望它们在所有图中均具有相同的颜色具有正确的颜色。对于一个图，我会为标签分配颜色，就像以下

一样

labs<-c("Arthropoda"="#FF66CC"
        ,"Cercozoa"="#FF6000")

和添加 scale_fill_manual(values=labs)的绘图，这似乎有效

然后我对其进行了修改，以便我可以将它们的一部分斜体化。

labsPhylum <-c('expression(paste(italic("Arthropoda")))'="#CC0000"
              ,'expression(paste(italic("Cercozoa")))'= "#FF6000"
             ,'expression (paste("unknown", ~italic("Eukaryota")))'= "#990000")`

但是，当我使用ggplot和scale_color_manual()使用Labsphylum创建一个图时，我认为应该是斜体和颜色的，我会用此警告绘制一个空图，因此我在这里不了解重要的东西。

ggplot(data=sigtab_dil, aes(x=Species, y=log2FoldChange, color=Phylum))+ 
  geom_point(size=2) + 
  scale_color_manual(values=labsPhylum)
    Warning message:
    Removed 9 rows containing missing values (geom_point). 

有人可以帮我弄清楚我出错的地方吗？谢谢

Answer 1

回答了我自己的问题

我意识到我必须为中断，标签和价值观制作单独的向量，而不是结合它们。

简短

colsPhylum <-c("Arthropoda"="#CC0000"
              ,"Cercozoa"= "#FF6000"
              ,"Chlorophyta"= "#CC9900"
labsPhylum <-c(expression(paste(italic("Arthropoda")))
               ,expression(paste(italic("Cercozoa")))
               ,expression(paste(italic("Chlorophyta ")))
breaksPhylum <-c("Arthropoda", "Cercozoa","Chlorophyta", "Choanozoa"
               ,"Ciliophora"
               ,"Cryptista"