wheelscores: Score wheel

In RenaudJau/Renaudpack2: Un fourre tout de mes fonctions...

Score wheel

Description

Draw a score wheel inspired from the recovery wheel of SER Standards (McDonald et al., 2016)

Usage

wheelscores(
  lowercat,
  supercat,
  scores,
  col.score = "#a1d99b",
  col.null = "white",
  col.lines = "black",
  col.border = "grey",
  cex.sup = 1,
  col.super = NULL,
  cex.low = 0.7,
  circles = TRUE,
  ...
)

Arguments

lowercat	A vector of scores labels
supercat	A vector of categories labels
scores	A numeric vector of scores (between 0 and 5)
col.score	The color of achieved scores
col.null	The color of unachieved scores
col.lines	The color of lines and circles
col.border	The color of the border containing categories labels
cex.sup	An expansion factor for categories labels
col.super	A vector of colors for each categories
cex.low	An expansion factor for scores labels
circles	(default = TRUE) if FALSE, doesn't draw intermediate circles

Details

uses function from plotrix package Lemon, J. (2006) Plotrix: a package in the red light district of R. R-News, 6(4): 8-12.

Examples

# data to draw the same scores as in McDonald et al., 2016
sousTcat<-c("Spatial mosaic","All trophic levels","All strata present",
"No undesirable species","Desirable animals","Desirable plants",
"Water chemo-physical","Substrate chemical","Substrate physical",
"Contamination","Invasive species","Over-utilization",
"Habitat links","Gene flows","Landscape flows",
"Resilience/recruitment","Habitat & interactions","Productivity/cycling")
superTcat<-c(rep(c("STRUCTURAL DIVERSITY","SPECIES COMPOSITION", "PHYSICAL CONDITIONS", 
"ABSENCE OF THREATS", "EXTERNAL EXCHANGES", "ECOSYSTEM FUNCTION"),each=3))
scoTres<-c(2,2,3,4,2,4,4,4,4,5,3,5,3,2,2,0,2,2)

wheelscores(sousTcat,superTcat,scoTres,col.lines = "cadetblue4",col.score = "darkolivegreen2",
col.border = "gray97",cex.sup = 1.2,cex.low = 0.6)
#data to draw the same scores as in McDonald et al., 2016
sousTcat<-c("Spatial mosaic","All trophic levels","All strata present",
"No undesirable species","Desirable animals","Desirable plants",
            "Water chemo-physical","Substrate chemical","Substrate physical",
            "Contamination","Invasive species","Over-utilization",
"Habitat links","Gene flows","Landscape flows",
            "Resilience/recruitment","Habitat & interactions","Productivity/cycling")
superTcat<-c(rep("STRUCTURAL DIVERSITY",2),rep("SPECIES COMPOSITION",4),
rep(c("PHYSICAL CONDITIONS", "ABSENCE OF THREATS", "EXTERNAL EXCHANGES", "ECOSYSTEM FUNCTION"),each=3))
scoTres<-c(2.2,2,3,4,2,4,4,4.8,4,5,3,5,3,2,2,0,2,2)
data.frame(sousTcat,superTcat,scoTres)

#the plot
wheelscores(sousTcat,superTcat,scoTres)
#with customisation
wheelscores(sousTcat,superTcat,scoTres,col.lines = "cadetblue4",
col.score = "darkolivegreen2",col.border = "gray97",
cex.sup = 1.2,cex.low = 0.6,circles = FALSE)
#with colors by categories
wheelscores(sousTcat,superTcat,scoTres,col.lines = "cadetblue4",
col.super = c("#c0392b","#76448a","#2e86c1",
"#27ae60","#f4d03f","#edbb99"),
col.border = "gray97",cex.sup = 1.2,cex.low = 0.6,
circles = FALSE)
#if there is a mistake in the number of colors
wheelscores(sousTcat,superTcat,scoTres,col.lines = "cadetblue4",
col.super = c("#c0392b","#2e86c1",
"#27ae60","#f4d03f","#edbb99"),
col.border = "gray97",cex.sup = 1.2,cex.low = 0.6,
circles = FALSE)

RenaudJau/Renaudpack2 documentation built on Feb. 16, 2025, 7:33 p.m.