revised ui

man/align_axes.Rd

@@ -4,7 +4,7 @@
 \alias{align_axes}
 \title{Aligns axes between plots}
 \usage{
-align_axes(..., x.axis = TRUE, y.axis = TRUE)
+align_axes(..., x.axis = TRUE, y.axis = TRUE, percentage = FALSE)
 }
 \arguments{
 \item{...}{ggplot2 objects or list of ggplot2 objects}

man/data-plots.Rd

@@ -7,6 +7,7 @@
 \alias{data_visuals_ui}
 \alias{data_visuals_server}
 \alias{create_plot}
+\alias{plot_bar}
 \alias{plot_bar_single}
 \alias{plot_box}
 \alias{plot_box_single}
@@ -25,6 +26,17 @@ data_visuals_server(id, data, palettes, ...)
 
 create_plot(data, type, pri, sec, ter = NULL, color.palette = "viridis", ...)
 
+plot_bar(
+  data,
+  pri,
+  sec = NULL,
+  ter = NULL,
+  style = c("stack", "dodge", "fill"),
+  color.palette = "viridis",
+  max_level = 30,
+  ...
+)
+
 plot_bar_single(
   data,
   pri,
@@ -91,6 +103,8 @@ shiny server module
 
 ggplot2 object
 
+ggplot list object
+
 ggplot object
 
 ggplot2 object
@@ -116,6 +130,8 @@ Data correlations evaluation module
 
 Wrapper to create plot based on provided type
 
+Title
+
 Single vertical barplot
 
 Beautiful box plot(s)
@@ -138,6 +154,13 @@ Beautiful violin plot
 }
 \examples{
 create_plot(mtcars, "plot_violin", "mpg", "cyl") |> attributes()
+mtcars |>
+  dplyr::mutate(cyl = factor(cyl), am = factor(am)) |>
+  plot_bar(pri = "cyl", sec = "am", style = "fill")
+
+mtcars |>
+  dplyr::mutate(dplyr::across(tidyselect::all_of(c("cyl","am","gear")),factor)) |>
+  plot_bar(pri = "cyl", sec = "gear", ter = "am", style = "stack",color.palette="turbo")
 mtcars |>
   dplyr::mutate(cyl = factor(cyl), am = factor(am)) |>
   plot_bar_single(pri = "cyl", sec = "am", style = "fill")

man/wrap_plot_list.Rd

@@ -12,6 +12,7 @@ wrap_plot_list(
   guides = "collect",
   axes = "collect",
   axis_titles = "collect",
+  y.axis.percentage = FALSE,
   ...
 )
 }