pixar_films: This data comes from 'pixarfilms' package by Eric Leung...

In rjake/headliner: Compose Sentences to Describe Comparisons

This data comes from pixarfilms package by Eric Leung (2022)

Description

The data has box office sales, audience ratings, and release dates for each Pixar film

Usage

pixar_films

Format

A tibble with 22 rows and 10 columns:

order

order of release

film

name of film

release_date

date film premiered

year

the year the film premiered

run_time

film length in minutes

film_rating

rating based on Motion Picture Association (MPA) film rating system

rotten_tomatoes

score from the American review-aggregation website Rotten Tomatoes; scored out of 100

metacritic

score from Metacritic where scores are weighted average of reviews; scored out of 100

bo_domestic

box office gross amount in U.S. dollars (millions) for U.S. and Canada

bo_intl

box office gross amount in U.S. dollars (millions) for other territories

Examples

pixar_films

library(ggplot2)

headline(
  x = min(pixar_films$run_time),
  y = max(pixar_films$run_time),
  headline =
    "The shortest film was {delta} minutes less than the longest film ({orig_values} minutes)"
)

ggplot(pixar_films, aes(bo_intl, rating)) +
  geom_boxplot() +
  xlim(0, NA) +
  labs(title = "International Box Office by MPA Rating")


ggplot(pixar_films, aes(release_date, run_time)) +
  geom_line() +
  geom_point() +
  ylim(0, NA) +
  labs(title = "Film runtimes by release date")


ggplot(pixar_films, aes(y = reorder(film, rotten_tomatoes))) +
  geom_linerange(aes(xmin = rotten_tomatoes, xmax = metacritic), size = 2, color = "grey85") +
  geom_point(aes(x = rotten_tomatoes, color = "rotten_tomatoes")) +
  geom_point(aes(x = metacritic, color = "metacritic")) +
  scale_color_manual(values = c("steelblue1", "coral2")) +
  theme_minimal(base_size = 9) +
  labs(
    title = "Rotten Tomatoes vs Metacritic by film",
    color = NULL,
    y = NULL,
    x = "Audience Score"
  )

rjake/headliner documentation built on Jan. 5, 2023, 10:41 a.m.