############ run this part every time before plotting

library('ggplot2')

library('ggpubr')

library('ggsci')

library('data.table')

library('grid')

library('ggthemes')

theme_Publication <- function(base_size=14, base_family="helvetica") {

      (theme_foundation(base_size=base_size, base_family=base_family)

       + theme(plot.title = element_text(size = rel(1.2), hjust = 0.5),

               text = element_text(),

               panel.background = element_rect(colour = NA),

               plot.background = element_rect(colour = NA),

               panel.border = element_rect(colour = NA),

               axis.title = element_text(size = rel(1)),

               axis.title.y = element_text(angle=90,vjust =2),

               axis.title.x = element_text(vjust = -0.2),

               axis.text = element_text(), 

               axis.line = element_line(colour = "black"),

               axis.ticks = element_line(),

               panel.grid.major = element_line(colour="#f0f0f0"),

               panel.grid.minor = element_blank(),

               legend.key = element_rect(colour = NA),

               legend.position = "bottom",#bottom

               legend.direction = "horizontal",#horizontal

               legend.key.size= unit(0.2, "cm"),

               #legend.margin = unit(0, "cm"),

               legend.title = element_text(face="italic"),

               plot.margin=unit(c(10,5,5,5),"mm"),

               strip.background=element_rect(colour="#f0f0f0",fill="#f0f0f0"),

               strip.text = element_text()

          ))

}

scale_fill_Publication <- function(...){

      library(scales)

      discrete_scale("fill","Publication",manual_pal(values = c("#386cb0","#fdb462","#7fc97f","#ef3b2c","#662506","#a6cee3","#fb9a99","#984ea3","#ffff33","#006400")), ...)

}

scale_colour_Publication <- function(...){

      library(scales)

      discrete_scale("colour","Publication",manual_pal(values = c("#386cb0","#fdb462","#7fc97f","#ef3b2c","#662506","#a6cee3","#fb9a99","#984ea3","#ffff33","#006400")), ...)

}