Packages and data used below:
library(apexcharter)
library(dplyr)
data("diamonds", package = "ggplot2")
n_cut <- count(diamonds, cut)You can set title, subtitle and axis’ titles at once with ax_labs():
apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>%
ax_labs(
title = "Cut distribution",
subtitle = "Data from ggplot2",
x = "Cut",
y = "Count"
)If you more control (font size, alignment, …), you can use ax_title(), ax_subtitle(), ax_xaxis() and ax_yaxis(), as described below.
apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>%
ax_title(text = "Cut distribution")You can set some options, for example:
apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>%
ax_title(
text = "Cut distribution",
align = "center",
style = list(fontSize = "22px", fontWeight = 700)
)Full list of parameters is available here : https://apexcharts.com/docs/options/title/
apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>%
ax_title(text = "Cut distribution") %>%
ax_subtitle(text = "Data from ggplot2")With same options than for title:
apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>%
ax_title(
text = "Cut distribution",
align = "center",
style = list(fontSize = "22px", fontWeight = 700)
) %>%
ax_subtitle(
text = "Data from ggplot2",
align = "center",
style = list(fontSize = "16px", fontWeight = 400, color = "#BDBDBD")
)Full list of parameters is available here : https://apexcharts.com/docs/options/subtitle/
library(apexcharter)
library(dplyr)
## economics dataset from ggplot2
data("economics", package = "ggplot2")
economics <- tail(economics, 50)
data("economics_long", package = "ggplot2")
economics_long <- economics_long %>%
filter(variable %in% c("pce", "pop")) %>%
group_by(variable) %>%
slice(tail(row_number(), 20))Classic line:
Spline curve:
apex(data = economics, type = "line", mapping = aes(x = date, y = uempmed)) %>%
ax_stroke(curve = "smooth")Steps chart:
Color line with gradient:
apex(data = economics, type = "line", mapping = aes(x = date, y = uempmed)) %>%
ax_fill(
type = "gradient",
gradient = list(
shade = "dark",
gradientToColors = list("#FDD835"),
shadeIntensity = 1,
type = "horizontal",
opacityFrom = 1,
opacityTo = 1,
stops = c(0, 100, 100, 100)
)
)Solid area color:
apex(data = economics, type = "area", mapping = aes(x = date, y = uempmed)) %>%
ax_fill(type = "solid", opacity = 1)Line width:
apex(data = economics, type = "line", mapping = aes(x = date, y = uempmed)) %>%
ax_stroke(width = 1)Dotted line
Add points to line :
apex(data = tail(economics, 20), type = "line", mapping = aes(x = date, y = uempmed)) %>%
ax_markers(size = 6)Add labels over points
You can use vectors of parameters to custom series separately: