ggpLayerZoom | R Documentation |
Sets the limits on the x- and y-axis of a ggplot based on manual input.
ggpLayerZoom(
object = NULL,
xrange = NULL,
yrange = NULL,
expand_x = c(0, 0),
expand_y = c(0, 0),
round = 2,
n_breaks = 5,
unit = NULL,
img_name = activeImage(object)
)
object |
An object of class |
xrange , yrange |
Distance vector of length
two or |
expand_x , expand_y |
Given to |
unit |
Character value. Overwrites the unit of the x- and y-axis. (If |
img_name |
Character value. The name of the image of interest.
If |
ggpLayer*()
-functions return lists of ggproto
objects
that can be added to ggplots via the +
operator. In most of the cases
they are supposed to be added to plots created with the plotSurface*()
family.
library(SPATA2)
library(patchwork)
object <- loadExampleObject("UKF275T")
object <-
createNumericAnnotations(
object = object,
variable = "HM_HYPOXIA",
threshold = "kmeans_high",
id = "hypoxia_ann",
inner_borders = FALSE,
force1 = TRUE
)
# range of hypoxia annotation
hr <- getSpatAnnRange(object, id = "hypoxia_ann")
hr_ggpL <- ggpLayerSpatAnnOutline(object, ids = "hypoxia_ann")
plotSurface(object, "HM_HYPOXIA") + hr_ggpL
p_rect <-
plotImage(object) +
hr_ggpL +
ggpLayerRect(object, xrange = hr$x, yrange = hr$y)
p_zoomed <-
plotImage(object) +
ggpLayerZoom(object, xrange = hr$x, yrange = hr$y)
p_rect + p_zoomed
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.