R/theme_time.R

In ksmiff33/FluxSynthU: Suite of functions to analyze eddy covariance data

#' Custom theme for time series plots

#' @export
#' @title Custom theme for time series plots
#' @importFrom ggplot2 theme element_text element_blank element_line


# theme_time
# Custom theme for plots
theme_time <- function() {
  theme(
    plot.title = element_text(color="black", size=14, face="bold"),
    axis.line=element_line(size=0.75),
    axis.title.x=element_text(size=14,color="black"),
    axis.text.x=element_text(size=12,color="black"),
    axis.title.y=element_text(size=14,color="black"),
    axis.text.y=element_text(size=12,color="black"),
    legend.title=element_text(size=11,color="black"),
    legend.text=element_text(size=10,color="black"),
    legend.background=element_blank(),
    legend.key=element_blank(),
    legend.key.size=unit(1,"lines"),
    panel.grid.major=element_blank(),
    panel.grid.minor=element_blank(),
    panel.background=element_blank()
  )
}