Skip to content

Instantly share code, notes, and snippets.

@AABoyles

AABoyles/LoveOverTime.R

Created February 13, 2015 15:32
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 AABoyles/c3aa1e8792e37fb69948 to your computer and use it in GitHub Desktop.
Save AABoyles/c3aa1e8792e37fb69948 to your computer and use it in GitHub Desktop.
Download ZIP
Valentine's Analysis
Raw
LoveOverTime.R
library(ggplot2)
data <- data.frame(
Time=1:20,
Love=cumsum(abs(rnorm(20, sd = 5)*100)))
ggplot(data,aes(Time,Love)) +
stat_smooth(se=FALSE, aes(color="Red", size=3)) +
theme(legend.position = "none",
axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks.x = element_blank(),
axis.ticks.y = element_blank())
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment