Gene Genome Plot
p1 <- ggplot(example_genes, aes(xmin = start, xmax = end, y = molecule, fill = gene)) + geom_gene_arrow() + facet_wrap(~ molecule, scales = "free", ncol = 1) + scale_fill_brewer(palette = "Set3")ggsave("test.pdf", p, width = 10, height = 20)
Precious Peacock