cyberpunk: Cyberpunk Sytle Graphs

#' @title Cyberpunk ggplot2 theme
#'
#' @description TODO
#'
#' @param x TODO

#' @author
#' \itemize{
#' \item{Soage González, José Carlos.}
#' \item{Maintainer: José Carlos Soage González. \email{jsoage@@uvigo.es}}
#' }
#'
#' @examples
#' # TODO
#'
#' @import ggplot2
#' @export
theme_cyber <- function (base_size = 11, base_family = "", base_line_size = base_size/22,
                         base_rect_size = base_size/22) {
  half_line <- base_size/2
  t <- theme(line = element_line(colour = "black", size = base_line_size,
                                 linetype = 1, lineend = "butt"),
             rect = element_rect(fill = "black", colour = "black", size = base_rect_size, linetype = 1),
             text = element_text(family = base_family, face = "plain",
                                 colour = "black", size = base_size, lineheight = 0.9,
                                 hjust = 0.5, vjust = 0.5, angle = 0, margin = margin(),
                                 debug = FALSE), axis.line = element_blank(), axis.line.x = NULL,
             axis.line.y = NULL, axis.text = element_text(size = rel(0.8), colour = "lightgray"),
             axis.text.x = element_text(margin = margin(t = 0.8 * half_line/2), vjust = 1),
             axis.text.x.top = element_text(margin = margin(b = 0.8 *half_line/2), vjust = 0),
             axis.text.y = element_text(margin = margin(r = 0.8 * half_line/2), hjust = 1),
             axis.text.y.right = element_text(margin = margin(l = 0.8 *half_line/2), hjust = 0),
             axis.ticks = element_line(colour = "grey20"),
             axis.ticks.length = unit(half_line/2, "pt"), axis.ticks.length.x = NULL,
             axis.ticks.length.x.top = NULL, axis.ticks.length.x.bottom = NULL,
             axis.ticks.length.y = NULL, axis.ticks.length.y.left = NULL,
             axis.ticks.length.y.right = NULL, axis.title.x = element_text(margin = margin(t = half_line/2),
                                                                           vjust = 1),
             axis.title.x.top = element_text(margin = margin(b = half_line/2), vjust = 0),
             axis.title.y = element_text(angle = 90,
                                         margin = margin(r = half_line/2), vjust = 1),
             axis.title.y.right = element_text(angle = -90,
                                                                                                                                                                                                                                               margin = margin(l = half_line/2), vjust = 0), legend.background = element_blank(),
             legend.spacing = unit(2 * half_line, "pt"), legend.spacing.x = NULL,
             legend.spacing.y = NULL, legend.margin = margin(half_line,
                                                             half_line, half_line, half_line), legend.key = element_blank(),
             legend.key.height = NULL, legend.key.width = NULL, legend.text = element_text(size = rel(0.8)),
             legend.text.align = NULL, legend.title = element_text(hjust = 0),
             legend.title.align = NULL, legend.position = "right",
             legend.direction = NULL, legend.justification = "center",
             legend.box = NULL, legend.box.margin = margin(0, 0, 0,
                                                           0, "cm"),
             legend.box.background = element_blank(),
             legend.box.spacing = unit(2 * half_line, "pt"),
             panel.background = element_rect(fill = "black", colour = "black"),
             panel.border = element_blank(), panel.grid = element_line(colour = rgb(1, 1, 1, 0.1), size = 1),
             panel.grid.minor = element_line(size = rel(0.5)), panel.spacing = unit(half_line, "pt"), panel.spacing.x = NULL, panel.spacing.y = NULL,
             panel.ontop = FALSE, strip.background = element_rect(fill = "grey85",
                                                                  colour = NA), strip.text = element_text(colour = "grey10",
                                                                                                          size = rel(0.8), margin = margin(0.8 * half_line,
                                                                                                                                           0.8 * half_line, 0.8 * half_line, 0.8 * half_line)),
             strip.text.x = NULL, strip.text.y = element_text(angle = -90),
             strip.text.y.left = element_text(angle = 90), strip.placement = "inside",
             strip.placement.x = NULL, strip.placement.y = NULL, strip.switch.pad.grid = unit(half_line/2, "pt"),
             strip.switch.pad.wrap = unit(half_line/2, "pt"),
             plot.background = element_rect(fill = "black", colour = "black"),
             plot.title = element_text(size = rel(1.2), hjust = 0, colour = "lightgray",
                                       vjust = 1, margin = margin(b = half_line)),
             plot.title.position = "panel",
             plot.subtitle = element_text(hjust = 0, vjust = 1, colour = "lightgray", margin = margin(b = half_line)),
             plot.caption = element_text(size = rel(0.8), hjust = 1, colour = "lightgray",
                                         vjust = 1, margin = margin(t = half_line)), plot.caption.position = "panel",
             plot.tag = element_text(size = rel(1.2), hjust = 0.5,
                                     vjust = 0.5), plot.tag.position = "topleft",
             plot.margin = margin(1.5, 2, 1.5, 1.5, "cm"))
  theme_get() %+replace% t
}