R/nerve/ExploratoryGraphs.R

In premodelling/mixed: Modelling Multilevel & Longitudinal Problems

# Title     : ExploratoryGraphs.R
# Objective : Graphical explorations
# Created by: greyhypotheses
# Created on: 06/04/2022



ReactionsExploratoryGraph <- function () {

  # reaction count against pain score, by location
  ggplot(data = nerve, mapping = aes(x = painScore, y = reactionCount)) +
    geom_point(alpha = 0.35) +
    geom_smooth(se = FALSE, method = 'lm', formula = 'y ~ x', size = 0.1, colour = 'black') +
    facet_wrap(~location) +
    theme_minimal() +
    theme(panel.spacing = unit(x = 2, units = 'lines'),
          panel.grid.minor = element_blank(),
          panel.grid.major = element_line(size = 0.05))

}