library(readr)
library(dplyr)
library(ggplot2)
# load data
films <- read_csv("data/film_cleanish.csv")
# filter for the films with awards
films_w_awards <- films |>
filter(Awards)
# create histogram
ggplot(films_w_awards, aes(x = Length)) +
geom_histogram(fill = "chartreuse4") +
labs(
x = "Length of the Movie",
y = "Number of Movies",
title = "Movie Lengths of Award Winning Classic Films",
caption = "Source: Telecom ParisTech"
) + theme_minimal()






