|
|
@ -24,6 +24,7 @@ |
|
|
|
#' @param axis_title_just axis title font justificationk one of `[blmcrt]` |
|
|
|
#' @param axis_text_size font size of axis text |
|
|
|
#' @param plot_margin plot margin (specify with [ggplot2::margin]) |
|
|
|
#' @param panel_spacing panel spacing (use `unit()`) |
|
|
|
#' @param grid_col grid color |
|
|
|
#' @param grid panel grid (`TRUE`, `FALSE`, or a combination of `X`, `x`, `Y`, `y`) |
|
|
|
#' @param axis_col axis color |
|
|
@ -77,51 +78,59 @@ theme_ipsum_rc <- function( |
|
|
|
axis_title_face = "plain", |
|
|
|
axis_title_just = "rt", |
|
|
|
plot_margin = margin(30, 30, 30, 30), |
|
|
|
panel_spacing = grid::unit(2, "lines"), |
|
|
|
grid_col = "#cccccc", grid = TRUE, |
|
|
|
axis_col = "#cccccc", axis = FALSE, ticks = FALSE) { |
|
|
|
|
|
|
|
ret <- ggplot2::theme_minimal(base_family=base_family, base_size=base_size) |
|
|
|
ret <- ggplot2::theme_minimal(base_family = base_family, base_size = base_size) |
|
|
|
|
|
|
|
ret <- ret + theme(legend.background=element_blank()) |
|
|
|
ret <- ret + theme(legend.key=element_blank()) |
|
|
|
ret <- ret + theme(legend.background = element_blank()) |
|
|
|
ret <- ret + theme(legend.key = element_blank()) |
|
|
|
|
|
|
|
if (inherits(grid, "character") | grid == TRUE) { |
|
|
|
ret <- ret + theme(plot.margin = plot_margin) |
|
|
|
ret <- ret + theme(panel.spacing = panel_spacing) |
|
|
|
|
|
|
|
ret <- ret + theme(panel.grid=element_line(color=grid_col, size=0.2)) |
|
|
|
ret <- ret + theme(panel.grid.major=element_line(color=grid_col, size=0.2)) |
|
|
|
ret <- ret + theme(panel.grid.minor=element_line(color=grid_col, size=0.15)) |
|
|
|
if (inherits(grid, "character") | grid == TRUE) { |
|
|
|
ret <- ret + theme(panel.grid = element_line(color = grid_col, size = 0.2)) |
|
|
|
ret <- ret + theme(panel.grid.major = element_line(color = grid_col, size = 0.2)) |
|
|
|
ret <- ret + theme(panel.grid.minor = element_line(color = grid_col, size = 0.15)) |
|
|
|
|
|
|
|
if (inherits(grid, "character")) { |
|
|
|
if (regexpr("X", grid)[1] < 0) ret <- ret + theme(panel.grid.major.x=element_blank()) |
|
|
|
if (regexpr("Y", grid)[1] < 0) ret <- ret + theme(panel.grid.major.y=element_blank()) |
|
|
|
if (regexpr("x", grid)[1] < 0) ret <- ret + theme(panel.grid.minor.x=element_blank()) |
|
|
|
if (regexpr("y", grid)[1] < 0) ret <- ret + theme(panel.grid.minor.y=element_blank()) |
|
|
|
if (regexpr("X", grid)[1] < 0) ret <- ret + theme(panel.grid.major.x = element_blank()) |
|
|
|
if (regexpr("Y", grid)[1] < 0) ret <- ret + theme(panel.grid.major.y = element_blank()) |
|
|
|
if (regexpr("x", grid)[1] < 0) ret <- ret + theme(panel.grid.minor.x = element_blank()) |
|
|
|
if (regexpr("y", grid)[1] < 0) ret <- ret + theme(panel.grid.minor.x = element_blank()) |
|
|
|
} |
|
|
|
|
|
|
|
} else { |
|
|
|
ret <- ret + theme(panel.grid=element_blank()) |
|
|
|
ret <- ret + theme(panel.grid = element_blank()) |
|
|
|
ret <- ret + theme(panel.grid.major = element_blank()) |
|
|
|
ret <- ret + theme(panel.grid.major.x = element_blank()) |
|
|
|
ret <- ret + theme(panel.grid.major.y = element_blank()) |
|
|
|
ret <- ret + theme(panel.grid.minor = element_blank()) |
|
|
|
ret <- ret + theme(panel.grid.minor.x = element_blank()) |
|
|
|
ret <- ret + theme(panel.grid.minor.x = element_blank()) |
|
|
|
} |
|
|
|
|
|
|
|
if (inherits(axis, "character") | axis == TRUE) { |
|
|
|
ret <- ret + theme(axis.line=element_line(color=axis_col, size=0.15)) |
|
|
|
ret <- ret + theme(axis.line = element_line(color = axis_col, size = 0.15)) |
|
|
|
if (inherits(axis, "character")) { |
|
|
|
axis <- tolower(axis) |
|
|
|
if (regexpr("x", axis)[1] < 0) { |
|
|
|
ret <- ret + theme(axis.line.x=element_blank()) |
|
|
|
ret <- ret + theme(axis.line.x = element_blank()) |
|
|
|
} else { |
|
|
|
ret <- ret + theme(axis.line.x=element_line(color=axis_col, size=0.15)) |
|
|
|
ret <- ret + theme(axis.line.x = element_line(color = axis_col, size = 0.15)) |
|
|
|
} |
|
|
|
if (regexpr("y", axis)[1] < 0) { |
|
|
|
ret <- ret + theme(axis.line.y=element_blank()) |
|
|
|
ret <- ret + theme(axis.line.y = element_blank()) |
|
|
|
} else { |
|
|
|
ret <- ret + theme(axis.line.y=element_line(color=axis_col, size=0.15)) |
|
|
|
ret <- ret + theme(axis.line.y = element_line(color = axis_col, size = 0.15)) |
|
|
|
} |
|
|
|
} else { |
|
|
|
ret <- ret + theme(axis.line.x=element_line(color=axis_col, size=0.15)) |
|
|
|
ret <- ret + theme(axis.line.y=element_line(color=axis_col, size=0.15)) |
|
|
|
ret <- ret + theme(axis.line.x = element_line(color = axis_col, size = 0.15)) |
|
|
|
ret <- ret + theme(axis.line.y = element_line(color = axis_col, size = 0.15)) |
|
|
|
} |
|
|
|
} else { |
|
|
|
ret <- ret + theme(axis.line=element_blank()) |
|
|
|
ret <- ret + theme(axis.line = element_blank()) |
|
|
|
} |
|
|
|
|
|
|
|
if (!ticks) { |
|
|
@ -129,37 +138,53 @@ theme_ipsum_rc <- function( |
|
|
|
ret <- ret + theme(axis.ticks.x = element_blank()) |
|
|
|
ret <- ret + theme(axis.ticks.y = element_blank()) |
|
|
|
} else { |
|
|
|
ret <- ret + theme(axis.ticks = element_line(size=0.15)) |
|
|
|
ret <- ret + theme(axis.ticks.x = element_line(size=0.15)) |
|
|
|
ret <- ret + theme(axis.ticks.y = element_line(size=0.15)) |
|
|
|
ret <- ret + theme(axis.ticks = element_line(size = 0.15)) |
|
|
|
ret <- ret + theme(axis.ticks.x = element_line(size = 0.15)) |
|
|
|
ret <- ret + theme(axis.ticks.y = element_line(size = 0.15)) |
|
|
|
ret <- ret + theme(axis.ticks.length = grid::unit(5, "pt")) |
|
|
|
} |
|
|
|
|
|
|
|
xj <- switch(tolower(substr(axis_title_just, 1, 1)), b=0, l=0, m=0.5, c=0.5, r=1, t=1) |
|
|
|
yj <- switch(tolower(substr(axis_title_just, 2, 2)), b=0, l=0, m=0.5, c=0.5, r=1, t=1) |
|
|
|
|
|
|
|
ret <- ret + theme(axis.text.x=element_text(size=axis_text_size, margin=margin(t=0))) |
|
|
|
ret <- ret + theme(axis.text.y=element_text(size=axis_text_size, margin=margin(r=0))) |
|
|
|
ret <- ret + theme(axis.title=element_text(size=axis_title_size, family=axis_title_family)) |
|
|
|
ret <- ret + theme(axis.title.x=element_text(hjust=xj, size=axis_title_size, |
|
|
|
family=axis_title_family, face=axis_title_face)) |
|
|
|
ret <- ret + theme(axis.title.y=element_text(hjust=yj, size=axis_title_size, |
|
|
|
family=axis_title_family, face=axis_title_face)) |
|
|
|
ret <- ret + theme(axis.title.y.right=element_text(hjust=yj, size=axis_title_size, angle=90, |
|
|
|
family=axis_title_family, face=axis_title_face)) |
|
|
|
ret <- ret + theme(strip.text=element_text(hjust=0, size=strip_text_size, |
|
|
|
face=strip_text_face, family=strip_text_family)) |
|
|
|
ret <- ret + theme(panel.spacing=grid::unit(2, "lines")) |
|
|
|
ret <- ret + theme(plot.title=element_text(hjust=0, size=plot_title_size, |
|
|
|
margin=margin(b=plot_title_margin), |
|
|
|
family=plot_title_family, face=plot_title_face)) |
|
|
|
ret <- ret + theme(plot.subtitle=element_text(hjust=0, size=subtitle_size, |
|
|
|
margin=margin(b=subtitle_margin), |
|
|
|
family=subtitle_family, face=subtitle_face)) |
|
|
|
ret <- ret + theme(plot.caption=element_text(hjust=1, size=caption_size, |
|
|
|
margin=margin(t=caption_margin), |
|
|
|
family=caption_family, face=caption_face)) |
|
|
|
ret <- ret + theme(plot.margin=plot_margin) |
|
|
|
xj <- switch(tolower(substr(axis_title_just, 1, 1)), b = 0, l = 0, m = 0.5, c = 0.5, r = 1, t = 1) |
|
|
|
yj <- switch(tolower(substr(axis_title_just, 2, 2)), b = 0, l = 0, m = 0.5, c = 0.5, r = 1, t = 1) |
|
|
|
|
|
|
|
ret <- ret + theme(axis.text = element_text(size = axis_text_size, margin = margin(t = 0, r = 0))) |
|
|
|
ret <- ret + theme(axis.text.x = element_text(size = axis_text_size, margin = margin(t = 0))) |
|
|
|
ret <- ret + theme(axis.text.y = element_text(size = axis_text_size, margin = margin(r = 0))) |
|
|
|
|
|
|
|
ret <- ret + theme(axis.title = element_text(size = axis_title_size, family = axis_title_family)) |
|
|
|
ret <- ret + theme(axis.title.x = element_text( |
|
|
|
hjust = xj, size = axis_title_size, |
|
|
|
family = axis_title_family, face = axis_title_face |
|
|
|
)) |
|
|
|
ret <- ret + theme(axis.title.y = element_text( |
|
|
|
hjust = yj, size = axis_title_size, |
|
|
|
family = axis_title_family, face = axis_title_face |
|
|
|
)) |
|
|
|
ret <- ret + theme(axis.title.y.right = element_text( |
|
|
|
hjust = yj, size = axis_title_size, angle = 90, |
|
|
|
family = axis_title_family, face = axis_title_face |
|
|
|
)) |
|
|
|
|
|
|
|
ret <- ret + theme(strip.text = element_text( |
|
|
|
hjust = 0, size = strip_text_size, |
|
|
|
face = strip_text_face, family = strip_text_family |
|
|
|
)) |
|
|
|
|
|
|
|
ret <- ret + theme(plot.title = element_text( |
|
|
|
hjust = 0, size = plot_title_size, |
|
|
|
margin = margin(b = plot_title_margin), |
|
|
|
family = plot_title_family, face = plot_title_face |
|
|
|
)) |
|
|
|
ret <- ret + theme(plot.subtitle = element_text( |
|
|
|
hjust = 0, size = subtitle_size, |
|
|
|
margin = margin(b = subtitle_margin), |
|
|
|
family = subtitle_family, face = subtitle_face |
|
|
|
)) |
|
|
|
ret <- ret + theme(plot.caption = element_text( |
|
|
|
hjust = 1, size = caption_size, |
|
|
|
margin = margin(t = caption_margin), |
|
|
|
family = caption_family, face = caption_face |
|
|
|
)) |
|
|
|
|
|
|
|
ret |
|
|
|
|
|
|
|