gistfile1.txt

ggplot(data = yrly_boxoffice) + 
    geom_smooth(aes(x=year, y=total_gross), colour='red', se=F) +
    geom_smooth(aes(x=year, y=worldwide), colour='blue', se=F) + 
    geom_point(aes(x=year, y=total_gross), colour='red') + 
    geom_point(aes(x=year, y=worldwide), colour='blue') +
    ggtitle("Total BoxOffice vs Highest Grossing Film by Year") + 
    xlab("Year") + 
    ylab("Revenue (Dollars)")