.Rprofile

library(DESeq2)
library(DiffBind)
library(tools)
library(dplyr)
library(plyr)
library(DEGreport)
library(tidyverse)
library(ComplexHeatmap)
library(dendextend)
library(RColorBrewer)
library(circlize)
library(reshape2)
library(ggplot2)
library(ggpubr)
library(Rmisc)
library(rtracklayer)
library(org.Mm.eg.db)
library(ChIPseeker)
library(clusterProfiler)
library(GenomicRanges)
library(tidyr)
library(TxDb.Mmusculus.UCSC.mm10.knownGene)
txdb <- TxDb.Mmusculus.UCSC.mm10.knownGene
library(tidyr)
library(gridExtra)
library(GeneOverlap)
library(tidytext)
library(ggrepel)
library(tidytext)
library(Rsubread)
library(soGGi)
library(Rsubread)
library(factoextra)
library(xlsx)
library(fgsea)
library(stringr)
gg_theme <- theme_bw(15)  +
  theme(#panel.grid = element_blank(),
        axis.text.x=element_text(size=15,color="black"),
        axis.title.x=element_text(size=15),
        axis.text.y=element_text(size=15,color="black"),
        axis.title.y=element_text(size=15),
        legend.justification=c(0,1),
        #legend.box.background = element_rect(colour = "black"),
        plot.title = element_text(hjust = 0.5,size=15))
gg_theme_xrot <- theme_bw(15) + 
  theme(#text = element_text(family = "Arial"),
        #panel.grid = element_blank(),
        axis.text.x=element_text(size=15,color="black",hjust = 1,vjust=1,angle = 45),
        axis.title.x=element_text(size=15),
        axis.text.y=element_text(size=15,color="black"),
        axis.title.y=element_text(size=15),
        legend.justification=c(0,1),
        #legend.box.background = element_rect(colour = "black"),
        plot.title = element_text(hjust = 0.5,size=15))