kmerclust_plot.R

library(kmerclust)
library(tidyverse)
library(ggplot2)

args <- commandArgs(trailingOnly = TRUE)
print(args)
load(file = paste0(args[1], "_boot.Rdata"))

print(res)
res %>%
  ggplot(aes(x = name, y = BIC)) +
  geom_violin() +
  theme_bw()
ggsave(paste0(args[1], "_BIC.pdf"))
res %>%
  ggplot(aes(x = name, y = WSS_f / BSS)) +
  geom_violin() +
  theme_bw()
ggsave(paste0(args[1], "_WSS_BSS.pdf"))
rm(res)

load(file = paste0(args[1], ".Rdata"))
count %>%
  sample_frac(0.1) %>%
  ggplot(aes(x = count_m, y = count_f)) +
  theme_bw()
ggsave(paste0(args[1], "_scatter.pdf"))