ggradar: Radar plot

In mcsiple/mmrefpoints: Project Marine Mammal Populations and Calculate Reference Points

Radar plot

Description

Radar plot

Usage

ggradar(
  plot.data,
  axis.labels = colnames(plot.data)[-1],
  grid.label.size = 7,
  axis.label.size = 8,
  plot.legend = if (nrow(plot.data) > 1) TRUE else FALSE,
  legend.text.size = grid.label.size,
  palette.vec = c("#D53E4F", "#FC8D59", "#FEE08B", "#E6F598", "#99D594", "#3288BD")
)

Arguments

plot.data	a dataframe with performance measures as columns and management scenarios as rows
axis.labels	a vector of names for the performance measures
grid.label.size	a numeric value for grid label size
axis.label.size	a numeric value for axis label size
plot.legend	logical; whether or not to plot a legend to the right of the plot
legend.text.size	numeric value for size of legend text
palette.vec	a vector of colors to use for the different scenarios (each row = 1 color)

Details

I modified the 'ggradar()' function slightly to do nice things that I like, like use a custom color palette, including different line types, etc.

Since this code was originally written, ggradar has becomes its own standalone package. For more information and for the most current version of the function, see Ricardo Bion's GitHub

Author(s)

Ricardo Bion, modified slightly by Margaret Siple

Examples

plot.data <- data.frame(
  bycatch = factor(c(
    "Higher end of bycatch range",
    "Midpoint of bycatch range",
    "Lower end of bycatch range"
  ),
  ,levels = c(
  "Higher end of bycatch range",
  "Midpoint of bycatch range",
  "Lower end of bycatch range"
  )),
  prebuild50 = c(0, 0, 1),
  prebuild100 = c(0, 0, 1),
  abundrel10 = c(0, 0, 0.29),
  abundrel20 = c(0, 0, 0.34),
  abundrel50 = c(0, 0, 0.53)
)

ggradar(
  plot.data = plot.data,
  axis.label.size = 4,
  grid.label.size = 4,
  palette.vec = c("#99D594","#E6F598", "#FEE08B") 
)

mcsiple/mmrefpoints documentation built on June 17, 2022, 8:41 p.m.