img/make_img.R

In Shians/NanoMethViz: Visualise methylation data from Oxford Nanopore sequencing

library(NanoMethViz)
library(bsseq)
library(stringr)

nmr <- load_example_nanomethresult()
bss <- nmr %>% methy_to_bsseq()
samples <- colData(bss)$sample %>%
    str_replace(".*_(\\d)_(bl6|cast)$", "\\2 \\1")
groups <- str_extract(samples, "(bl6|cast)")

ggsave(
    "img/mds.png",
    plot_mds(
        bsseq_to_log_methy_ratio(
            bss,
            regions = exons_to_genes(NanoMethViz::exons(nmr))
        ),
        labels = samples,
        groups = groups
    ) +
        ggtitle("MDS plot"),
    height = 600, width = 800, units = "px", dpi = 150
)


ggsave(
    "img/peg3_gene.png",
    plot_gene(nmr, "Peg3"),
    height = 600, width = 800, units = "px", dpi = 150)

ggsave(
    "img/agg_genes.png",
    plot_agg_regions(
        nmr,
        regions = exons_to_genes(NanoMethViz::exons(nmr))
    ) +
        ggtitle("Aggregated profile over genes"),
    height = 600, width = 800, units = "px", dpi = 150)