inlabru (version 2.3.1)

gg.SpatialPolygons: Geom for SpatialPolygons objects

Description

Uses the fortify() function to turn the SpatialPolygons objects into a data.frame. Then calls geom_polygon to plot the polygons.

Usage

# S3 method for SpatialPolygons
gg(data, mapping = NULL, crs = NULL, color = "black", alpha = NULL, ...)

Arguments

data

A SpatialPolygons object.

mapping

Aesthetic mappings created by aes or aes_ used to update the default mapping. The default mapping is aes_string(x = "long", y = "lat", group = "group").

crs

A CRS object defining the coordinate system to project the data to before plotting.

color

Filling color for the polygons.

alpha

Alpha level for polygon filling.

...

Arguments passed on to geom_polypath.

Value

A ggpolypath::geom_polypath object.

Details

Requires the ggpolypath package to ensure proper plotting, since the ggplot::geom_polygon function doesn't always handle geometries with holes properly.

See Also

Other geomes for spatial data: gg.SpatialGridDataFrame(), gg.SpatialLines(), gg.SpatialPixelsDataFrame(), gg.SpatialPixels(), gg.SpatialPoints(), gg(), gm()

Examples

# NOT RUN {
# Load Gorilla data

data("gorillas", package = "inlabru")

# Plot Gorilla elevation covariate provided as SpatialPixelsDataFrame.
# The same syntax applies to SpatialGridDataFrame objects.

ggplot() +
  gg(gorillas$gcov$elevation)

# Add Gorilla survey boundary and nest sightings

ggplot() +
  gg(gorillas$gcov$elevation) +
  gg(gorillas$boundary) +
  gg(gorillas$nests)

# Load pantropical dolphin data

data("mexdolphin")

# Plot the pantropiical survey boundary, ship transects and dolphin sightings

ggplot() +
  gg(mexdolphin$ppoly) + # survey boundary as SpatialPolygon
  gg(mexdolphin$samplers) + # ship transects as SpatialLines
  gg(mexdolphin$points) # dolphin sightings as SpatialPoints

# Change color

ggplot() +
  gg(mexdolphin$ppoly, color = "green") + # survey boundary as SpatialPolygon
  gg(mexdolphin$samplers, color = "red") + # ship transects as SpatialLines
  gg(mexdolphin$points, color = "blue") # dolphin sightings as SpatialPoints


# Visualize data annotations: line width by segment number

names(mexdolphin$samplers) # 'seg' holds the segment number
ggplot() +
  gg(mexdolphin$samplers, aes(color = seg))

# Visualize data annotations: point size by dolphin group size

names(mexdolphin$points) # 'size' holds the group size
ggplot() +
  gg(mexdolphin$points, aes(size = size))
# }