diff --git a/scripts/fig1.R b/scripts/fig1.R index 207c9b1..bff5402 100644 --- a/scripts/fig1.R +++ b/scripts/fig1.R @@ -46,7 +46,7 @@ cols_ortho <- c("unclas" = "#35274A","thogotolike" = "#0B775E", "influenza" = "# orthodraw <- ggtree(orthotree, aes(color=group)) + geom_tiplab(align = TRUE, aes(subset = isTip & label %in% c( - 'Apis orthomyxovirus 1', + 'apis orthomyxovirus 1', "QGA69818.1 - Varroa orthomyxovirus-1", "APG77896.1 - Hubei orthomyxo-like virus 4", "APG77906.1 - Hubei orthoptera virus 6", @@ -881,4 +881,4 @@ ggsave('output/sup_fig3.tiff', vdvdraw_full, device='tiff',dpi=300, width=12, he testgrid <- grid.arrange(amfvdraw,bmlvdraw,apparlidraw,vdvdraw, apthilidraw ,orthodraw,nrow=3, ncol=2) ggsave("output/fig1.pdf",testgrid, device = "pdf", height=15,width=20, limitsize=FALSE) ggsave("output/fig1.png",testgrid, device = "png", height=15,width=20, limitsize=FALSE) -ggsave("output/fig1.tiff",testgrid, device = "tiff", height=15,width=20, limitsize=FALSE) \ No newline at end of file +ggsave("output/fig1.tiff",testgrid, device = "tiff", height=15,width=20, limitsize=FALSE)