ggradar function

Diagrammes en radar avancés pour ggplot2 (Enhanced Radar Plots for ggplot2)

Source

Most of the code is from https://rstudio-pubs-static.s3.amazonaws.com/5795_e6e6411731bb4f1b9cc7eb49499c2082.html.

ggradar(
  plot.data,
  base.size = 15,
  font.radar = "sans",
  values.radar = c("0%", "50%", "100%"),
  axis.labels = colnames(plot.data)[-1],
  grid.min = 0,
  grid.mid = 0.5,
  grid.max = 1,
  centre.y = grid.min - ((1/9) * (grid.max - grid.min)),
  plot.extent.x.sf = 1,
  plot.extent.y.sf = 1.2,
  x.centre.range = 0.02 * (grid.max - centre.y),
  label.centre.y = FALSE,
  grid.line.width = 0.5,
  gridline.min.linetype = "longdash",
  gridline.mid.linetype = "longdash",
  gridline.max.linetype = "longdash",
  gridline.min.colour = "grey",
  gridline.mid.colour = "#007A87",
  gridline.max.colour = "grey",
  grid.label.size = 6,
  gridline.label.offset = -0.1 * (grid.max - centre.y),
  label.gridline.min = TRUE,
  label.gridline.mid = TRUE,
  label.gridline.max = TRUE,
  axis.label.offset = 1.15,
  axis.label.size = 5,
  axis.line.colour = "grey",
  group.line.width = 1.5,
  group.point.size = 6,
  group.colours = NULL,
  background.circle.colour = "#D7D6D1",
  background.circle.transparency = 0.2,
  plot.legend = if (nrow(plot.data) > 1) TRUE else FALSE,
  legend.title = "",
  plot.title = "",
  legend.text.size = 14,
  legend.position = "left"
)

Arguments

• plot.data: dataframe comprising one row per group
• base.size: text size
• font.radar: text font family
• values.radar: values to print at minimum, 'average', and maximum gridlines
• axis.labels: names of axis labels if other than column names supplied via plot.data
• grid.min: value at which mininum grid line is plotted
• grid.mid: value at which 'average' grid line is plotted
• grid.max: value at which maximum grid line is plotted
• centre.y: value of y at centre of plot
• plot.extent.x.sf: controls relative size of plot horizontally
• plot.extent.y.sf: controls relative size of plot vertically
• x.centre.range: controls axis label alignment
• label.centre.y: whether value of y at centre of plot should be labelled
• grid.line.width: width of gridline
• gridline.min.linetype: line type of minimum gridline
• gridline.mid.linetype: line type of 'average' gridline
• gridline.max.linetype: line type of maximum gridline
• gridline.min.colour: colour of minimum gridline
• gridline.mid.colour: colour of 'average' gridline
• gridline.max.colour: colour of maximum gridline
• grid.label.size: text size of gridline label
• gridline.label.offset: displacement to left/right of central vertical axis
• label.gridline.min: whether or not to label the mininum gridline
• label.gridline.mid: whether or not to label the 'mininum'average' gridline
• label.gridline.max: whether or not to label the maximum gridline
• axis.label.offset: vertical displacement of axis labels from maximum grid line, measured relative to circle diameter
• axis.label.size: text size of axis label
• axis.line.colour: colour of axis line
• group.line.width: line width of group
• group.point.size: point size of group
• group.colours: colour of group
• background.circle.colour: colour of background circle/radar
• background.circle.transparency: transparency of background circle/radar
• plot.legend: whether to include a plot legend
• legend.title: title of legend
• plot.title: title of radar plot
• legend.text.size: text size in legend
• legend.position: position of legend, valid values are "top", "right", "bottom", "left"

Returns

a ggplot object

Examples

library(dplyr)
library(scales)
library(tibble)

mtcars_radar <- mtcars %>%
  as_tibble(rownames = "group") %>%
  mutate_at(vars(-group), rescale) %>%
  tail(4) %>%
  select(1:10)
mtcars_radar
ggradar(mtcars_radar)