R/plotSpaghetti.R

In lwjohnst86/rstatsToolkit: Bundles up all my most used functions for doing statistical analysis

##' Plot subjects in a longitudinal dataset, making a 'spaghetti'
##' plot.
##'
##' @title Spaghetti plot
##' @param data The dataset to plot.
##' @param y The variable to go on the y-axis.
##' @param x The variable to go on the x-axis.
##' @param groups The unique ID variable to differentiate subjects in
##' a longitudinal dataset.
##' @export
##' @author Luke W. Johnston
##' @examples
##' \dontrun{
##' ## A pretend case (not a real example)
##' plotSpaghetti(dataset, 'Height', 'Year', 'SubjectID')
##' }
plotSpaghetti <- function(data, y, x, groups = 'SID') {
    ggplot2::ggplot(data, aes_string(y = y, x = x, group = groups)) +
        ggplot2::geom_line(position = position_jitter(w = 0.1, h = 0.1))
}