Create a gist now

Instantly share code, notes, and snippets.

# Load and format data.
bb <- read.csv("bb.csv")
fr <- data.frame(idx=as.numeric(1:57), rating=bb$User.Rating, season=factor(bb$Season))
# Print graph.
png("/tmp/bb.png", width=1280, height=768)
gplot(data=fr, aes(x=fr$idx, y=fr$rating, color=season)) + geom_point(size=3) + geom_smooth(aes(group=fr$season), method="lm") + labs(x="", y="User rating", color="Season", title="Breaking Bad episode rating")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment