R PLOT THEMES

gistfile1.txt

# USEFUL CODE FOR R PLOT THEMES

`%notin%`=Negate(`%in%`)

library(magrittr)
library(ggplot2)
library(cowplot)
library(dplyr)
library(EnvStats)
library(ggpubr)
library(gridExtra)
library(ggthemes)
library(reshape2)


addReadMe=function(path="../out/",fileName,text){
  icesTAF::mkdir(path)
  fileConn<-file(paste0(path,fileName,".readme"))
  writeLines(c(text),fileConn)
  close(fileConn)
}

# ## load essential packages


myTheme=theme_bw()+theme(# TEXT
  text = element_text(size=15),
  axis.text = element_text(size=12, face = "bold", color = "#1A237E"),
  legend.text = element_text(size=12, face = "bold"),
  plot.subtitle = element_text(size=8,face="bold"),
  # BACKGROUND
  legend.background = element_rect(fill = "white", size = 4, colour = "white"),
  panel.grid.major = element_blank(),#(color = "#9E9E9E",linetype = "dotted", size = 0.1),
  panel.grid.minor = element_line(color="#BDBDBD",linetype = "dotted"),
  # TICKS
  #LEGEND POS
)


myTheme_barplot=theme_bw()+theme(# TEXT
  text = element_text(size=15, family = "Helvetica",face = "bold"),
  legend.text = element_text(size = 10,face="bold"),
  legend.title = element_text(size=12,face="bold"),
  rect=element_blank(),
  #rect = element_rect(linetype = "dotted",colour = "grey"),
  # axis.title = element_text(size = 20),
  axis.line.y = element_line(colour = "#424242",size = 0.5),
  #axis.line.x = element_blank(),
  plot.title = element_text(hjust = 0.5),
  # line = element_blank(),
  panel.background = element_rect(fill =  "white"),
  panel.grid = element_blank(),
  axis.title = element_blank(),
  axis.text.y = element_blank(),
  axis.ticks = element_blank()
  # TICKS
  #LEGEND POS
)


blankTheme = theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.border = element_blank(),
                   panel.background = element_blank(), axis.ticks.x = element_blank(),plot.margin=grid::unit(c(0,0,0,0), "mm"))


myTheme_umap=theme_bw()+theme(# TEXT
  text = element_text(size=15),
  legend.text = element_text(size = 10,face="bold"),
  legend.title = element_text(size=12,face="bold"),
  rect=element_blank(),
  # rect = element_rect(linetype = "dotted",colour = "grey"),
  # axis.title = element_text(size = 20),
  axis.line = element_line(linetype = "dashed",colour = "gray",#"#0091EA",
                           size = 0.5,
                           arrow=ggplot2::arrow(angle=30,length = unit(0.24, "cm"), type = "closed")),
  plot.title = element_text(hjust = 0.5),
  # line = element_blank(),
  # panel.background = element_rect(colour = "white",color = "white"),
  panel.grid = element_blank(),
  axis.title = element_blank(),
  axis.text = element_blank(),
  axis.ticks = element_blank()
  # TICKS
  #LEGEND POS
)