sgplot is an R package for creating accessible plots in the Scottish Government. Currently, functions are available for styling ggplot2 plots.
The package has been developed using the Government Analysis Function Data Visualisation guidance and uses accessible colour palettes from the Scottish Government Design System. sgplot should be used in conjunction with these guidance documents.
More information about the package and its functions can be found on the sgplot website. In particular, the cookbook contains lots of examples. Slides are also available for an internal presentation given to statisticians and analysts.
If you are working within the Scottish Government network, you can install sgplot in the same way as with other R packages. The easiest way to do this is by using the pkginstaller add-in. Further guidance is available on eRDM.
Alternatively, sgplot can be installed directly from GitHub. Note that this method requires the remotes package and may not work from within the Scottish Government network.
remotes::install_github(
"ScotGovAnalysis/sgplot",
upgrade = "never",
build_vignettes = TRUE
)
Finally, sgplot can also be installed by downloading the zip of the
repository
and running the following code, replacing the section marked <>
(including the arrows themselves) with the location of the downloaded
zip:
remotes::install_local(
"<FILEPATH OF ZIPPED FILE>/sgplot-main.zip",
upgrade = "never",
build_vignettes = TRUE
)
Once installed, sgplot can be loaded using the library()
function:
library(sgplot)
Help files for each function in the package can be found on the
References page of
the package website. Alternatively, type ?function_name
into the
RStudio console. For example:
?theme_sg()
The easiest way to use sgplot is by adding use_sgplot()
to the
beginning of your R script, Rmarkdown document or Shiny app code. This
function will set a number of defaults to ggplot2 geoms, use sgplot
colour palettes and use theme_sg()
.
library(ggplot2)
library(dplyr)
library(gapminder)
gapminder |>
filter(year == 2007 & continent == "Europe") |>
slice_max(order_by = lifeExp, n = 5) |>
ggplot() +
geom_col(aes(x = reorder(country, -lifeExp), y = lifeExp)) +
scale_y_continuous(expand = c(0, 0)) +
labs(
x = NULL,
y = NULL,
title = "Iceland has the highest life expectancy in Europe",
subtitle = "Life expectancy in European countries, 2007",
caption = "Source: Gapminder"
)
sgplot::use_sgplot()
gapminder |>
filter(year == 2007 & continent == "Europe") |>
slice_max(order_by = lifeExp, n = 5) |>
ggplot() +
geom_col(aes(x = reorder(country, -lifeExp), y = lifeExp)) +
scale_y_continuous(expand = c(0, 0)) +
labs(
x = NULL,
y = NULL,
title = "Iceland has the highest life expectancy in Europe",
subtitle = "Life expectancy in European countries, 2007",
caption = "Source: Gapminder"
)
Note on use of titles, subtitles and captions
Titles, subtitles
and captions have been embedded in these example charts for
demonstration purposes. However, for accessibility reasons, it is
usually preferable to provide titles in the body of the page rather than
embedded within the image of the plot. More information is available in
the accessibility
article.
Unless stated otherwise, the codebase is released under the MIT License. This covers both the codebase and any sample code in the documentation.
The documentation is © Crown copyright and available under the terms of the Open Government 3.0 licence.