60 lines
1.3 KiB
R
60 lines
1.3 KiB
R
|
|
#' Modify axis, legend, and chart labels
|
|
#'
|
|
#' @template ax-default
|
|
#' @param title Text for the title.
|
|
#' @param subtitle Text for the subtitle.
|
|
#' @param x Text for the x-axis label.
|
|
#' @param y Text for the y-axis label.
|
|
#'
|
|
#' @export
|
|
#'
|
|
#' @examples
|
|
#' meteo_paris <- data.frame(
|
|
#' month = month.name,
|
|
#' tmax = c(7, 8, 12, 15, 19, 23, 25, 25, 21, 16, 11, 8),
|
|
#' tmin = c(3, 3, 5, 7, 11, 14, 16, 16, 13, 10, 6, 3)
|
|
#' )
|
|
#'
|
|
#' apex(meteo_paris, type = "column", aes(x = month, y = tmin)) %>%
|
|
#' ax_labs(
|
|
#' title = "Average minimal temperature in Paris",
|
|
#' subtitle = "Data from NOAA",
|
|
#' x = "Month",
|
|
#' y = "Temperature (\u00b0C)"
|
|
#' )
|
|
ax_labs <- function(ax, title = NULL, subtitle = NULL, x = NULL, y = NULL) {
|
|
if (!is.null(title)) {
|
|
ax <- ax_title(
|
|
ax = ax,
|
|
text = title,
|
|
style = list(fontWeight = 700, fontSize = "16px")
|
|
)
|
|
}
|
|
if (!is.null(subtitle)) {
|
|
ax <- ax_subtitle(
|
|
ax = ax,
|
|
text = subtitle,
|
|
style = list(fontWeight = 400, fontSize = "14px")
|
|
)
|
|
}
|
|
if (!is.null(x)) {
|
|
ax <- ax_xaxis(
|
|
ax = ax,
|
|
title = list(text = x, style = list(fontWeight = 400, fontSize = "14px"))
|
|
)
|
|
}
|
|
if (!is.null(y)) {
|
|
ax <- ax_yaxis(
|
|
ax = ax,
|
|
title = list(text = y, style = list(fontWeight = 400, fontSize = "14px"))
|
|
)
|
|
}
|
|
ax
|
|
}
|
|
|
|
|
|
|
|
|
|
|