Skip to contents

Change the ggplot2-based theme in order to meet the needs of graph (such as EPR spectrum, kinetic profiles...etc) visuals/non-data components of the actual graph/plot. The theme can be mainly applied for the basic ggplot2 components like ggplot() + geom_...() + ... and consists of highlighted panel borders, grid and axis ticks pointing outside of the plot panel. For details of ggplot2 theme elements please, refer to Modify Components of a Theme (see also theme) or to ggplot2 Elements Demonstration by Henry Wang.

Usage

plot_theme_Out_ticks(
  axis.text.size = 14,
  axis.title.size = 15,
  grid = TRUE,
  border.line.color = "black",
  border.line.type = 1,
  border.line.width = 0.5,
  bg.transparent = FALSE,
  ...
)

Arguments

axis.text.size

Numeric, text size (in pt) for the axes units/descriptions, default: axis.text.size = 14.

axis.title.size

Numeric, text size (in pt) for the axes title, default: axis.title.size = 15.

grid

Logical, whether to display the grid within the plot/graph panel, default: grid = TRUE.

border.line.color

Character string, setting up the color of the plot panel border line, default: border.line.color = "black".

border.line.type

Character string or integer, corresponding to width of the graph/plot panel border line. Following types can be specified: 0 = "blank", 1 = "solid" (default), 2 = "dashed", 3 = "dotted", 4 = "dotdash", 5 = "longdash" and 6 = "twodash"..

border.line.width

Numeric, width (in mm) of the plot panel border line, default: border.line.width = 0.5.

bg.transparent

Logical, whether the entire plot background (excluding the panel) should be transparent, default: bg.transparent = FALSE, i.e. no transparent background.

...

additional arguments specified by the theme (such as panel.backgroud, axis.line,...etc), which are not specified otherwise.

Value

Custom ggplot2 theme (list) with x,y-axis ticks pointing outside of the graph/plot panel.

Examples

## loading TMPD built-in example file:
tmpd.data.file.path <-
  load_data_example(file = "TMPD_specelchem_accu_b.asc")
## reading data:
tmpd.data.file <-
  readEPR_Exp_Specs(path_to_ASC = tmpd.data.file.path,
                    col.names = c("B_G","dIepr_over_dB"),
                    qValue = 3500,
                    norm.vec.add = 20,
                    origin = "winepr")
#
ggplot2::ggplot(data = tmpd.data.file,
       ggplot2::aes(x = B_G,y = dIepr_over_dB)
       ) +
  ggplot2::geom_line(linewidth = 0.75,color = "darkgreen") +
  ggplot2::xlab("B (G)") +
  ggplot2::ylab("dIepr / dB  (p.d.u.)") +
  plot_theme_Out_ticks()