Skip to content

Instantly share code, notes, and snippets.

@jvcasillas
Created April 18, 2019 01:54
Show Gist options
  • Save jvcasillas/f64743a47b3a8d8470ea7f5e2a985f4e to your computer and use it in GitHub Desktop.
Save jvcasillas/f64743a47b3a8d8470ea7f5e2a985f4e to your computer and use it in GitHub Desktop.
df_pm %>%
mutate(., grade = fct_relevel(grade, "pk3", "pk4", "kin", "1st")) %>%
ggplot(., aes(x = grade, y = response, color = group)) +
facet_grid(. ~ language) +
stat_summary(fun.data = mean_cl_boot, geom = 'pointrange', size = 1.5,
position = position_dodge(0.5), pch = 21, fill = "white") +
ylim(0, 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment