facets: manage yaxis2 correctly
This commit is contained in:
parent
f50e0064c2
commit
e848debf0a
|
@ -99,6 +99,7 @@ importFrom(rlang,"%||%")
|
|||
importFrom(rlang,as_label)
|
||||
importFrom(rlang,eval_tidy)
|
||||
importFrom(rlang,is_function)
|
||||
importFrom(rlang,is_list)
|
||||
importFrom(rlang,is_named)
|
||||
importFrom(rlang,is_null)
|
||||
importFrom(rlang,quos)
|
||||
|
|
39
R/facets.R
39
R/facets.R
|
@ -38,7 +38,7 @@ n_facet <- function(l) {
|
|||
Reduce(`*`, l)
|
||||
}
|
||||
|
||||
#' @importFrom rlang %||%
|
||||
#' @importFrom rlang %||% is_list is_named
|
||||
set_scale <- function(ax, values, scales = c("fixed", "free", "free_y", "free_x"), axis = c("x", "y")) {
|
||||
if (is.null(scales))
|
||||
return(ax)
|
||||
|
@ -66,30 +66,41 @@ set_scale <- function(ax, values, scales = c("fixed", "free", "free_y", "free_x"
|
|||
"y" = "yaxis"
|
||||
)
|
||||
|
||||
this_axis <- ax$x$ax_opts[[waxis]]
|
||||
if (is_list(this_axis) & !is_named(this_axis)) {
|
||||
this_axis <- this_axis[[1]]
|
||||
yaxis2 <- TRUE
|
||||
} else {
|
||||
yaxis2 <- FALSE
|
||||
}
|
||||
if (scales == "fixed") {
|
||||
ax$x$ax_opts[[waxis]]$min <- ax$x$ax_opts[[waxis]]$min %||% fmt(range_vals[1])
|
||||
ax$x$ax_opts[[waxis]]$max <- ax$x$ax_opts[[waxis]]$max %||% fmt(range_vals[2])
|
||||
this_axis$min <- this_axis$min %||% fmt(range_vals[1])
|
||||
this_axis$max <- this_axis$max %||% fmt(range_vals[2])
|
||||
} else if (scales == "free") {
|
||||
ax$x$ax_opts[[waxis]]$min <- NULL
|
||||
ax$x$ax_opts[[waxis]]$max <- NULL
|
||||
this_axis$min <- NULL
|
||||
this_axis$max <- NULL
|
||||
} else if (scales == "free_x") {
|
||||
if (axis == "y") {
|
||||
ax$x$ax_opts[[waxis]]$min <- ax$x$ax_opts[[waxis]]$min %||% fmt(range_vals[1])
|
||||
ax$x$ax_opts[[waxis]]$max <- ax$x$ax_opts[[waxis]]$max %||% fmt(range_vals[2])
|
||||
this_axis$min <- this_axis$min %||% fmt(range_vals[1])
|
||||
this_axis$max <- this_axis$max %||% fmt(range_vals[2])
|
||||
} else {
|
||||
ax$x$ax_opts[[waxis]]$min <- NULL
|
||||
ax$x$ax_opts[[waxis]]$max <- NULL
|
||||
this_axis$min <- NULL
|
||||
this_axis$max <- NULL
|
||||
}
|
||||
} else if (scales == "free_y") {
|
||||
if (axis == "x") {
|
||||
ax$x$ax_opts[[waxis]]$min <- ax$x$ax_opts[[waxis]]$min %||% fmt(range_vals[1])
|
||||
ax$x$ax_opts[[waxis]]$max <- ax$x$ax_opts[[waxis]]$max %||% fmt(range_vals[2])
|
||||
this_axis$min <- this_axis$min %||% fmt(range_vals[1])
|
||||
this_axis$max <- this_axis$max %||% fmt(range_vals[2])
|
||||
} else {
|
||||
ax$x$ax_opts[[waxis]]$min <- NULL
|
||||
ax$x$ax_opts[[waxis]]$max <- NULL
|
||||
this_axis$min <- NULL
|
||||
this_axis$max <- NULL
|
||||
}
|
||||
}
|
||||
|
||||
if (yaxis2) {
|
||||
ax$x$ax_opts[[waxis]][[1]] <- this_axis
|
||||
} else {
|
||||
ax$x$ax_opts[[waxis]] <- this_axis
|
||||
}
|
||||
return(ax)
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue