gistfile1.txt

top_movies_studio <- group_by(topmovies, studio) %>% summarise(total=sum(domestic))
top_movies_scount <- group_by(topmovies, studio) %>% count(studio)
top_movies_m <- left_join(top_movies_studio, top_movies_scount, by="studio")

ggplot(data=top_movies_m) +
    geom_point(aes(x=n,y=total), color = "dark green") +
    geom_smooth(aes(x=n,y=total), method = "lm") +
    ggtitle("Total Studio Revenue vs Number of movies   produced") +
    xlab("number of movies produced") +
    ylab("total revenue from movies produced (dollars)") + 
    theme_few()