Skip to contents

Annotate a GraphSpace Plot with an Image

Source: R/annotation-gspace.R
annotation_gspace_image.Rd

annotation_gspace_image() adds an image annotation layer to a ggplot-based GraphSpace plot.

Usage

annotation_gspace_image(
  x,
  interpolate = FALSE,
  opacity = 1,
  flip.v = FALSE,
  flip.h = FALSE,
  raster = deprecated()
)

annotation_gspace(...)

Arguments

x

An image to be displayed. Accepted types:

  • A GraphSpace object — the image is extracted via gs_image.

  • A raster object (see as.raster).

  • A matrix or 3D array (RGB/RGBA), coerced to raster automatically.

interpolate

A logical value indicating whether to apply linear interpolation when the image is rendered at a different resolution than its native size. Defaults to FALSE.

opacity

A numeric value in [0, 1] controlling the transparency of the image. 1 is fully opaque (default); 0 is fully transparent.

flip.v

A logical value; if TRUE, the image is flipped vertically (top-to-bottom). Defaults to FALSE.

flip.h

A logical value; if TRUE, the image is flipped horizontally (left-to-right). Defaults to FALSE.

raster

Deprecated as of RGraphSpace 1.4.1; use x instead.

...

Additional arguments (currently unused).

Value

A ggplot2 layer object that can be added to a ggplot() call with +, or invisible(NULL) with a warning if the image could not be resolved.

Note

annotation_gspace() is deprecated as of v1.4.0; use annotation_gspace_image() instead.

See also

annotation_raster, gs_image, geom_nodespace, geom_edgespace

Examples


library(RGraphSpace)
library(igraph)

# Load a demo igraph
data('gtoy1', package = 'RGraphSpace')
gs <- GraphSpace(gtoy1)
#> Validating the 'igraph' object...
#> Ignoring graph-level attributes: 'name', 'mode', 'center'
#> Creating a 'GraphSpace' object...

# Normalize node coordinates
gs <- normalizeGraphSpace(gs)
#> Normalizing node coordinates to graph space...

# Add a raster image
gs_image(gs) <- as_colorraster(volcano)
#> Image spatial boundaries:
#> ℹ x: [1, 61] (cols)
#> ℹ y: [1, 87] (rows)

if (FALSE) { # \dontrun{
# Pass a GraphSpace object directly
ggplot(gs) +
  annotation_gspace_image(gs) +
  geom_edgespace() +
  geom_nodespace()

# Extract the image explicitly
ggplot(gs) +
  annotation_gspace_image(gs_image(gs)) +
  geom_edgespace() +
  geom_nodespace()

# Dim the background and flip vertically
ggplot(gs) +
  annotation_gspace_image(gs, opacity = 0.5, flip.v = TRUE) +
  geom_edgespace() +
  geom_nodespace()
  
} # }