labs adjustments

R/labs.R

@@ -25,16 +25,30 @@
 #'   )
 ax_labs <- function(ax, title = NULL, subtitle = NULL, x = NULL, y = NULL) {
   if (!is.null(title)) {
-    ax <- ax_title(ax = ax, text = 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)
+    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))
+    ax <- ax_xaxis(
+      ax = ax,
+      title = list(text = x, style = list(fontWeight = 600, fontSize = "14px"))
+    )
   } 
   if (!is.null(y)) {
-    ax <- ax_yaxis(ax = ax, title = list(text = y))
+    ax <- ax_yaxis(
+      ax = ax, 
+      title = list(text = y, style = list(fontWeight = 600, fontSize = "14px"))
+    )
   }
   ax
 }

vignettes/labs.Rmd

@@ -22,11 +22,29 @@ library(apexcharter)
 library(dplyr)
 
 data("diamonds", package = "ggplot2")
-n_cut <- dplyr::count(diamonds, cut)
+n_cut <- count(diamonds, cut)
 ```
 
 
-## Chart title
+## Labs
+
+You can set title, subtitle and axis' titles at once with `ax_labs()`:
+
+```{r}
+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.
+
+
+
+## Title
 
 ```{r}
 apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>% 
@@ -40,7 +58,7 @@ apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>%
   ax_title(
     text = "Cut distribution", 
     align = "center",
-    style = list(fontSize = "22px")
+    style = list(fontSize = "22px", fontWeight = 700)
   )
 ```
 
@@ -48,7 +66,7 @@ apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>%
 Full list of parameters is available here : https://apexcharts.com/docs/options/title/
 
 
-## Chart subtitle
+## Subtitle
 
 ```{r}
 apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>% 
@@ -63,12 +81,12 @@ apex(data = n_cut, type = "column", mapping = aes(x = cut, y = n)) %>%
   ax_title(
     text = "Cut distribution", 
     align = "center",
-    style = list(fontSize = "22px")
+    style = list(fontSize = "22px", fontWeight = 700)
   ) %>% 
   ax_subtitle(
     text = "Data from ggplot2", 
     align = "center",
-    style = list(fontSize = "16px", color = "#BDBDBD")
+    style = list(fontSize = "16px", fontWeight = 400, color = "#BDBDBD")
   )
 ```