ggplot2::ggplot(example_genes, ggplot2::aes(xmin = start, xmax = end,
y = molecule)) +
geom_gene_arrow() +
geom_subgene_arrow(data = example_subgenes,
ggplot2::aes(xmin = start, xmax = end, xsubmin = from, xsubmax = to,
y = molecule, fill = gene)) +
ggplot2::facet_wrap(~ molecule, scales = "free")
Run the code above in your browser using DataLab