Example data in long (tidy) format

Description

A subset WaSHI State of the Soils Assessment dataset that has been anonymized. This dataset is tidied, so each measurement is in its own row.

Usage

example_data_long

Format

example_data_long A data frame with 1,800 rows and 14 columns:

year

Year of sample

sampleId, producerId, fieldId

Anonymized IDs

farmName, producerName, fieldName

Anonymized names

longitude, latitude

Truncated coordinates

texture

Measured soil texture

measurement

Measurement name with units

value

Measurement result

...

Source

https://agr.wa.gov/departments/land-and-water/natural-resources/soil-health/state-of-the-soils

Example data in wide format

Description

A subset WaSHI State of the Soils Assessment dataset that has been anonymized. This dataset presents each sample in its own row, with columns for each measurement.

Usage

example_data_wide

Format

example_data_wide A data frame with 30 rows and 72

columns:

year

Year of sample

sampleId, producerId, fieldId

Anonymized IDs

farmName, producerName, fieldName

Anonymized names

longitude, latitude

Truncated coordinates

texture

Measured soil texture

other columns

Column name includes measurement and units; value is the measurement results

...

Source

https://agr.wa.gov/departments/land-and-water/natural-resources/soil-health/state-of-the-soils

WaSHI flextable style

Description

Creates a flextable in WaSHI's style.

Usage

washi_flextable(
  data,
  cols_bold = NULL,
  header_font = "Lato",
  body_font = "Poppins",
  header_font_color = "white",
  header_bg_color = washi_pal[["standard"]][["green"]],
  border_color = washi_pal[["standard"]][["tan"]]
)

Arguments

Value

A flextable formatted in WaSHI's style.

Examples

subset(
  example_data_wide,
  select = c(
    "sampleId",
    "county",
    "crop",
    "totalN_%",
    "totalC_%"
  )
) |>
  washi_flextable(cols_bold = 1)

Install Lato and Poppins fonts on your system

Description

Opens the font files to install on your computer.

Usage

washi_install_fonts()

Value

Opens a directory containing font files.

WaSHI color palettes

Description

Color palettes are stored in a named list.

Usage

washi_pal

Format

An object of class list of length 11.

Value

List of available washi color palettes

See Also

Other color palette functions: washi_pal_setup(), washi_pal_view()

Examples

# List names of available palettes
names(washi_pal)

# Get hex codes from a palette using dollar `$name` or
# double bracket
# `[["name"]]` operators for extracting list elements
washi_pal$standard

washi_pal[["green_gradient"]]

# Extract a color from the standard WaSHI palette
washi_pal[["standard"]][["green"]]

Setup a color palette

Description

Choose desired number of colors and whether the colors are reversed.

Usage

washi_pal_setup(palette = "standard", n, reverse = FALSE)

Arguments

Value

A vector of color hex codes.

See Also

Other color palette functions: washi_pal_view(), washi_pal

Examples

washi_pal_setup("color_blind")

washi_pal_setup("green_gradient", 12)

View a WaSHI palette

Description

Show the colors within a palette in a plot.

Usage

washi_pal_view(palette = "color_blind", n, reverse = FALSE)

Arguments

Value

A plot with each color displayed.

See Also

Other color palette functions: washi_pal_setup(), washi_pal

Examples

washi_pal_view("standard")

washi_pal_view("color_blind")

washi_pal_view("blue_gradient", 4, reverse = TRUE)

Scales for plotting with WaSHI palettes

Description

Provides compatibility with ggplot2.

Usage

washi_scale(
  palette = "color_blind",
  aesthetics = c("color", "fill"),
  alpha = 1,
  reverse = FALSE,
  discrete = TRUE,
  ...
)

Arguments

Value

A ScaleContinuous or ScaleDiscrete object that can be added to a ggplot object.

See Also

Other ggplot2 functions: washi_theme()

Examples

library(ggplot2)

# Discrete scale
example_data_wide |>
  subset(crop %in% c("Apple", "Cherry", "Potato")) |>
  ggplot(aes(x = pH, y = Mn_mg.kg, color = crop)) +
  geom_point(size = 2.5) +
  theme_minimal() +
  washi_scale()

# Continuous scale
example_data_wide |>
  ggplot(aes(x = `totalC_%`, y = poxC_mg.kg, color = poxC_mg.kg)) +
  geom_point(size = 2.5) +
  theme_minimal() +
  washi_scale("green_gradient", reverse = TRUE, discrete = FALSE)

Create standard WaSHI plots

Description

All changed defaults from this function can be overridden by another call to ggplot2::theme() with the desired changes.

Usage

washi_theme(
  header_font = "Lato Black",
  header_color = "#151414",
  body_font = "Poppins",
  body_color = "#151414",
  text_scale = 1,
  legend_position = "top",
  facet_space = 2,
  color_gridline = washi_pal[["standard"]][["tan"]],
  gridline_y = TRUE,
  gridline_x = TRUE,
  ...
)

Arguments

Value

ggplot2 object

Source

Adapted from glitr::si_style().

See Also

Other ggplot2 functions: washi_scale()

Examples

# NOTE: These examples do not use Poppins or Lato in order to pass
# automated checks on computers without these fonts installed.

library(ggplot2)

# Single geom_point plot
example_data_wide |>
  subset(crop %in% c("Apple", "Cherry", "Potato")) |>
  ggplot(aes(x = pH, y = Mn_mg.kg, color = crop)) +
  labs(
    title = "Scatter plot of pH and Mn (mg/kg)",
    subtitle = "Example with geom_point().",
    caption = "This is a caption."
  ) +
  geom_point(size = 2.5) +
  washi_theme(
    header_font = "sans",
    body_font = "sans"
  ) +
  washi_scale()

# Bar plot
if (requireNamespace("forcats")) {
  example_data_wide |>
    ggplot(aes(x = forcats::fct_rev(forcats::fct_infreq(crop)))) +
    geom_bar(fill = washi_pal[["standard"]][["blue"]]) +
    geom_text(
      aes(
        y = after_stat(count),
        label = after_stat(count)
      ),
      stat = "count",
      hjust = 2.5,
      color = "white"
    ) +
    # Flip coordinates to accommodate long crop names
    coord_flip() +
    labs(
      title = "Number of samples in each crop",
      subtitle = "Example plot with geom_bar() without gridlines.",
      y = NULL,
      x = NULL
    ) +
    # Turn gridlines off
    washi_theme(
      gridline_y = FALSE,
      gridline_x = FALSE,
      header_font = "sans",
      body_font = "sans"
    ) +
    # Remove x-axis
    theme(axis.text.x = element_blank())
}

# Facetted geom_density plots
example_data_long |>
  subset(measurement %in% c("totalC_%", "poxC_mg.kg") &
    !texture == "Loamy Sand") |>
  ggplot(aes(x = value, fill = texture, color = texture)) +
  labs(
    title = "Distribution of POXC (mg/kg) and Total C (%)",
    subtitle = "Example with geom_density() and facet_wrap()."
  ) +
  geom_density(alpha = 0.4) +
  facet_wrap(. ~ measurement, scales = "free") +
  washi_theme(
    legend_position = "bottom",
    header_font = "sans",
    body_font = "sans"
  ) +
  washi_scale() +
  xlab(NULL) +
  guides(col = guide_legend(nrow = 2, byrow = TRUE))