Create a curve comparing observed Z-scores to the WHO standard.

Create a curve comparing observed Z-scores to the WHO standard.

zcurve(x, zscore)

Arguments

x

a data frame

zscore

bare name of a numeric vector containing computed zscores

Value

a ggplot2 object that is customisable via the ggplot2 package.

Examples

library("ggplot2")
#> Error in library("ggplot2"): there is no package called ‘ggplot2’
set.seed(9)
dat <- data.frame(observed = rnorm(204) + runif(1),
                  skewed   = rnorm(204) + runif(1, 0.5)
                 ) # slightly skewed
zcurve(dat, observed) +
  labs(title = "Weight-for-Height Z-scores") +
  theme_classic()
#> Error in ggplot(x): could not find function "ggplot"

zcurve(dat, skewed) +
  labs(title = "Weight-for-Height Z-scores") +
  theme_classic()
#> Error in ggplot(x): could not find function "ggplot"

# Including different groups to facet
dat <- data.frame(
  observed = c(rnorm(204) + runif(1), rnorm(204) + runif(1, 0.5)),
  groups   = rep(c("A", "B"), each = 204),
  treat    = sample(c('up', 'down'), 408, replace = TRUE)
                 )
zcurve(dat, observed) +
  facet_grid(treat~groups)
#> Error in ggplot(x): could not find function "ggplot"