if (require('ggplot2')) {
ggplot(ratings, aes(x = episode, y = viewers_7day, group = series, color = as.factor(series))) +
geom_line(lwd = 3) +
theme_minimal() +
scale_color_bakeoff("finale", guide = "none")
}
Run the code above in your browser using DataLab