R/clip_at_sd.R

In ecohealthalliance/hotspots2: Analysis of the Hotspots dataset on disease emergence

# This function clips variables at a multiple of their standard deviation, for better color palette scaling.
clip_at_sd <- function(x, multiple = 1) {
  m <- mean(x, na.rm = TRUE)
  s <- sd(x, na.rm = TRUE) * multiple
  y <- x %>%
    pmin(m + s) %>%
    pmax(m - s)
  return(y)
}