andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 01:49:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

feat: passes additional arguments in wrap_plots_list() to patchwork::wrap_plots() and allows specification of axes to align in align_axes()

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-08-08 11:19:55 +02:00
parent ab189bf59a
commit cff21406bb
No known key found for this signature in database
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
R/data_plots.R
View file

@ -764,7 +764,8 @@ wrap_plot_list <- function(data,
patchwork::wrap_plots(
guides = "collect",
axes = "collect",
axis_titles = "collect"
axis_titles = "collect",
...
)
if (!is.null(tag_levels)) {
out <- out + patchwork::plot_annotation(tag_levels = tag_levels)
@ -800,7 +801,7 @@ wrap_plot_list <- function(data,
#' @returns list of ggplot2 objects
#' @export
#'
align_axes <- function(...) {
align_axes <- function(...,x.axis=TRUE,y.axis=TRUE) {
# https://stackoverflow.com/questions/62818776/get-axis-limits-from-ggplot-object
# https://github.com/thomasp85/patchwork/blob/main/R/plot_multipage.R#L150
if (ggplot2::is_ggplot(..1)) {
@ -818,7 +819,17 @@ align_axes <- function(...) {
xr <- clean_common_axis(p, "x")
suppressWarnings({
p |> purrr::map(~ .x + ggplot2::xlim(xr) + ggplot2::ylim(yr))
p |>
purrr::map(p, \(.x){
out <- .x
if (isTRUE(x.axis)){
out <- out + ggplot2::xlim(xr)
}
if (isTRUE(y.axis)){
out <- out + ggplot2::ylim(yr)
}
out
})
})
}