Skip to contents

Function to plot data.

Source: R/splnr_plot.R
splnr_plot.Rd

(For now can replace splnr_plot_cost(), splnr_plot_binFeature(), splnr_plot_MPAs(), splnr_plot_featureNo())

Usage

splnr_plot(
  df,
  col_names = NULL,
  paletteName = "YlGnBu",
  colourVals = c("#c6dbef", "#3182bd"),
  plot_title = "",
  legend_title = NULL,
  legend_labels = NULL
)

Arguments

df

The dataframe containing the data to be plotted. It must include a geometry column to be used with geom_sf.

col_names

A list of column names to include in the plot. If specified, only these columns will be used to color the plot.

paletteName

The name of the color palette to use for filling. Default is "YlGnBu".

colourVals

The color values to use if col_names is specified and the data is binary.

plot_title

The title of the plot.

legend_title

The title of the legend.

legend_labels

A vector of strings containing the labels to use for legend values.

Value

A ggplot object.

Details

Written by Kilian Barreiro Written: February 2024

Plot Spatial Data, returns a gg object

Examples

# Binary plot of species distribution
splnr_plot(df = dat_species_bin,
           col_names = "Spp1",
           legend_title = "Legend",
           legend_labels = c("Absent", "Present"))
#> Coordinate system already present. Adding new coordinate system, which will
#> replace the existing one.


# Logical plot of species distribution
splnr_plot(df = dat_species_bin %>%
                dplyr::mutate(dplyr::across(
                  tidyselect::starts_with("Spp"), as.logical)),
           col_names = "Spp1",
           legend_title = "Legend",
           legend_labels = c("Absent", "Present"))
#> Coordinate system already present. Adding new coordinate system, which will
#> replace the existing one.


# Continuous plot of bathymetry#
splnr_plot(df = dat_bathy,
           col_names = "bathymetry",
           plot_title = "Bathymetry",
           legend_title = "Bathymetry (m)")
#> Coordinate system already present. Adding new coordinate system, which will
#> replace the existing one.


# Plot Planning Units
splnr_plot(df = dat_PUs)
#> Coordinate system already present. Adding new coordinate system, which will
#> replace the existing one.


# Multi binary features
splnr_plot(df = dat_species_bin,
           col_names = colnames(dat_species_bin %>%
                                  sf::st_drop_geometry() %>%
                                  dplyr::select(
                                    tidyselect::starts_with("Spp"))),
           legend_title = "Number of features")
#> Coordinate system already present. Adding new coordinate system, which will
#> replace the existing one.