suppressMessages(library(dplyr))
suppressMessages(library(ggplot2))
suppressMessages(library(ggcharts))
chr_info = read.table('data/hg19.chrom.sizes')
chr_final = data.frame(chr = paste0('chr',c(seq(1:22),'X')),length = 0)
t = merge(chr_final,chr_info,by.x='chr',by.y='V1')
chr_info = t[,c(1,3)]
chr_info$ratio = 0