added labs
This commit is contained in:
parent
31ed0a6fc3
commit
4fafc0105f
|
@ -14,6 +14,7 @@ export(ax_fill)
|
||||||
export(ax_grid)
|
export(ax_grid)
|
||||||
export(ax_labels)
|
export(ax_labels)
|
||||||
export(ax_labels2)
|
export(ax_labels2)
|
||||||
|
export(ax_labs)
|
||||||
export(ax_legend)
|
export(ax_legend)
|
||||||
export(ax_markers)
|
export(ax_markers)
|
||||||
export(ax_plotOptions)
|
export(ax_plotOptions)
|
||||||
|
|
|
@ -0,0 +1,45 @@
|
||||||
|
|
||||||
|
#' Modify axis, legend, and chart labels
|
||||||
|
#'
|
||||||
|
#' @param ax A \code{apexcharts} \code{htmlwidget} object.
|
||||||
|
#' @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 (°C)"
|
||||||
|
#' )
|
||||||
|
ax_labs <- function(ax, title = NULL, subtitle = NULL, x = NULL, y = NULL) {
|
||||||
|
if (!is.null(title)) {
|
||||||
|
ax <- ax_title(ax = ax, text = title)
|
||||||
|
}
|
||||||
|
if (!is.null(subtitle)) {
|
||||||
|
ax <- ax_subtitle(ax = ax, text = subtitle)
|
||||||
|
}
|
||||||
|
if (!is.null(x)) {
|
||||||
|
ax <- ax_xaxis(ax = ax, title = list(text = x))
|
||||||
|
}
|
||||||
|
if (!is.null(y)) {
|
||||||
|
ax <- ax_yaxis(ax = ax, title = list(text = y))
|
||||||
|
}
|
||||||
|
ax
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -58,6 +58,16 @@ apex(data = economics_long, type = "area", mapping = aes(x = date, y = value01,
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
library(rte.data)
|
||||||
|
|
||||||
|
|
||||||
|
consumption <- get_consumption(type = c("REALISED", "D-1"))
|
||||||
|
apex(data = consumption, type = "line", mapping = aes(x = start_date, y = value, fill = type))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
# Scatter & Bubble --------------------------------------------------------
|
# Scatter & Bubble --------------------------------------------------------
|
||||||
|
|
||||||
|
|
|
@ -0,0 +1,37 @@
|
||||||
|
% Generated by roxygen2: do not edit by hand
|
||||||
|
% Please edit documentation in R/labs.R
|
||||||
|
\name{ax_labs}
|
||||||
|
\alias{ax_labs}
|
||||||
|
\title{Modify axis, legend, and chart labels}
|
||||||
|
\usage{
|
||||||
|
ax_labs(ax, title = NULL, subtitle = NULL, x = NULL, y = NULL)
|
||||||
|
}
|
||||||
|
\arguments{
|
||||||
|
\item{ax}{A \code{apexcharts} \code{htmlwidget} object.}
|
||||||
|
|
||||||
|
\item{title}{Text for the title.}
|
||||||
|
|
||||||
|
\item{subtitle}{Text for the subtitle.}
|
||||||
|
|
||||||
|
\item{x}{Text for the x-axis label.}
|
||||||
|
|
||||||
|
\item{y}{Text for the y-axis label.}
|
||||||
|
}
|
||||||
|
\description{
|
||||||
|
Modify axis, legend, and chart labels
|
||||||
|
}
|
||||||
|
\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 (°C)"
|
||||||
|
)
|
||||||
|
}
|
Loading…
Reference in New Issue