R/decorateGGPlot.R

In jakobbossek/netgen: Network Generator for Combinatorial Graph Problems

# Decorator for ggplot objects produced by netgen.
#
# @param pl [ggplot]
#   Object to decorate.
# @param lower [numeric(1)]
#   Lower box constaint for cube.
# @param upper [numeric(1)]
#   Upper box constaint for cube.
# @return [ggplot]
#   Decorated plot object.
decorateGGPlot = function(pl, lower, upper) {
  # by default no legend and smaller text size as well as higher distance of title to plot
  pl = pl + theme(
    legend.position = "none",
    plot.title = element_text(size = rel(0.8), lineheight = 1.1, vjust = 1.6)
  )
  pl = pl + xlab(expression(x[1]))
  pl = pl + ylab(expression(x[2]))
  pl = pl + xlim(c(lower, upper))
  pl = pl + ylim(c(lower, upper))
  return(pl)
}