Deploying to gh-pages from @ agdamsbo/FreesearchR@af4e21b836 🚀

This commit is contained in:
agdamsbo 2026-04-10 19:23:01 +00:00
commit 1962da139e
204 changed files with 455 additions and 383 deletions

View file

@ -4,6 +4,8 @@ Data correlations evaluation module
Wrapper to create plot based on provided type
Title
Single vertical barplot
Beautiful box plot(s)
@ -33,6 +35,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,
@ -120,6 +133,8 @@ shiny server module
ggplot2 object
ggplot list object
ggplot object
ggplot2 object
@ -703,12 +718,29 @@ create_plot(mtcars, "plot_violin", "mpg", "cyl") |> attributes()
#> list()
#>
#> $plot_env
#> <environment: 0x55808d503ed8>
#> <environment: 0x55d8c86e7f90>
#>
#> $code
#> FreesearchR::plot_violin(pri = "mpg", sec = "cyl", ter = NULL,
#> color.palette = "viridis")
#>
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")
#> Scale for y is already present.
#> Adding another scale for y, which will replace the existing scale.
#> Scale for y is already present.
#> Adding another scale for y, which will replace the existing scale.
#> Scale for y is already present.
#> Adding another scale for y, which will replace the existing scale.
#> Scale for y is already present.
#> Adding another scale for y, which will replace the existing scale.
#> Error in plot_bar(dplyr::mutate(mtcars, dplyr::across(tidyselect::all_of(c("cyl", "am", "gear")), factor)), pri = "cyl", sec = "gear", ter = "am", style = "stack", color.palette = "turbo"): object 'i18n' not found
mtcars |>
dplyr::mutate(cyl = factor(cyl), am = factor(am)) |>
plot_bar_single(pri = "cyl", sec = "am", style = "fill")