Skip to content

Instantly share code, notes, and snippets.

@t-student
Created November 8, 2015 03:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save t-student/1bab83f9962e31719f76 to your computer and use it in GitHub Desktop.
Save t-student/1bab83f9962e31719f76 to your computer and use it in GitHub Desktop.
p <- ggplot(data = df2, aes(x = factor(time), y = cartvol ))
p <- p + geom_boxplot()
p <- p + geom_jitter(size=1, position=position_jitter(width=0.03, height=0), colour = "blue")
#p <- p + geom_smooth(method = "lm", se = T)
p <- p + xlab("Time" )
p <- p + ylab("Cartilage volume")
p <- p + theme_bw()
p <- p + theme(legend.position="bottom")
print(p)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment