#' LocusExplorer ggplot custom theme
#'
#' LocusExplorer ggplot custom theme.
#' @keywords ggplot theme locusexplorer
#' @import ggplot2
#' @author Tokhir Dadaev
#' @export theme_LE
theme_LE <- function(){
# LocusExplorer ggplot custom theme
# General options for all plots -------------------------------------------
# Usage: ggplot() + theme_LE()
# map fonts to OS
if(Sys.info()['sysname'] == "Windows")
windowsFonts(Courier = windowsFont("TT Courier New"))
theme(legend.position = "none",
plot.background = element_rect(
fill = "grey80"
#colour = "black",
#size = 1
),
panel.background = element_rect(fill = "white"),
panel.grid.minor = element_blank(),
panel.grid.major.x = element_blank(),
panel.grid.major.y = element_line(colour = "grey60",
linetype = "dotted"),
axis.title.x = element_blank(),
axis.line = element_blank(),
panel.border = element_blank(),
axis.text.y = element_text(family = "Courier", colour = "grey20")
)
#backup
# if(Sys.info()['sysname'] == "Windows")
# windowsFonts(Courier = windowsFont("TT Courier New"))
#
# theme(legend.position = "none",
# panel.background = element_rect(fill = "white"),
# panel.grid.minor = element_blank(),
# panel.grid.major.x = element_blank(),
# panel.grid.major.y = element_line(colour = "grey60",
# linetype = "dotted"),
# axis.title.x = element_blank(),
# axis.line = element_blank(),
# panel.border = element_blank(),
# # Y Axis font:
# # This will be obsolete once we know how to align plots using
# # maybe cowplot...
# axis.text.y = element_text(family = "Courier", colour = "grey20"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.