library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.2 ✔ tibble 3.3.0
## ✔ lubridate 1.9.4 ✔ tidyr 1.3.1
## ✔ purrr 1.1.0
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
data <- read.csv("mcu(in).csv")
#Podrías determinar cuántas observaciones y variables hay en la base de datos del MCU?
#Si 23 variables y 8 observaciones
#¿Qué tipo de variables contiene la base de datos?
# movie: Nombre de la película
# length_hrs: Duración de la película horas
# length_min: Duración de la película minutos
# release_date: Fecha de estreno en cines
# weekend: Número de fin de semana en cartelera
# gross_us: Recaudación de la película en Estados Unidos
# gross_world: Recaudación mundial de la película
# franchise: Nombre de la franquicia a la que pertenece la película
data <- data %>%
mutate(release_date = as.Date(release_date, format = "%m/%d/%Y"))
#Aquí he cambiado el tipo de dato de texto a fecha
data <- data %>%
mutate(franchise = as.factor(franchise))
#Aquí he cambiado el tipo de dato de texto a factor
data <- data %>%
rename(opening_weekend_us = weekend)
#Aquí he renombrado weekend a opening_weekend_us
head(data)
## movie length_hrs length_min release_date
## 1 Iron Man 2 6 2008-05-02
## 2 The Incredible Hulk 1 52 2008-06-12
## 3 Iron Man 2 2 4 2010-05-07
## 4 Thor 1 55 2011-05-06
## 5 Captain America: The First Avenger 2 4 2011-07-22
## 6 Marvel's The Avengers 2 23 2012-05-04
## opening_weekend_us gross_us gross_world franchise
## 1 98618668 319034126 585796247 Iron Man
## 2 55414050 134806913 264770996 Hulk
## 3 128122480 312433331 623933331 Iron Man
## 4 65723338 181030624 449326618 Thor
## 5 65058524 176654505 370569774 Captain America
## 6 207438708 623357910 1518815515 Avengers
tail(data)
## movie length_hrs length_min release_date
## 18 Black Panther 2 14 2018-02-16
## 19 Avengers: Infinity War 2 29 2018-04-27
## 20 Ant-Man and the Wasp 1 58 2018-07-06
## 21 Captain Marvel 2 3 2019-03-08
## 22 Avengers: Endgame 3 1 2019-04-26
## 23 Spiderman: Far from Home 2 9 2019-07-02
## opening_weekend_us gross_us gross_world franchise
## 18 202003951 700426566 1347598739 Black Panther
## 19 257698183 678815482 2048359754 Avengers
## 20 75812208 216648740 622674139 Ant-Man
## 21 153433423 426829839 1128437854 Captain Marvel
## 22 357115007 858373000 2797800564 Avengers
## 23 92579212 390532085 1131927996 Spiderman
glimpse(data)
## Rows: 23
## Columns: 8
## $ movie <chr> "Iron Man", "The Incredible Hulk", "Iron Man 2", "T…
## $ length_hrs <int> 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, …
## $ length_min <int> 6, 52, 4, 55, 4, 23, 10, 52, 16, 1, 21, 57, 27, 55,…
## $ release_date <date> 2008-05-02, 2008-06-12, 2010-05-07, 2011-05-06, 20…
## $ opening_weekend_us <int> 98618668, 55414050, 128122480, 65723338, 65058524, …
## $ gross_us <int> 319034126, 134806913, 312433331, 181030624, 1766545…
## $ gross_world <dbl> 585796247, 264770996, 623933331, 449326618, 3705697…
## $ franchise <fct> Iron Man, Hulk, Iron Man, Thor, Captain America, Av…
dim(data)
## [1] 23 8
#Llamar a la variable con corchetes
data[["gross_us"]]
## [1] 319034126 134806913 312433331 181030624 176654505 623357910 409013994
## [8] 206362140 259766572 333718600 459005868 180202163 408084349 232641920
## [15] 389813101 334201140 315058289 700426566 678815482 216648740 426829839
## [22] 858373000 390532085
#Llamar a la variable con select()
select(data, gross_us)
## gross_us
## 1 319034126
## 2 134806913
## 3 312433331
## 4 181030624
## 5 176654505
## 6 623357910
## 7 409013994
## 8 206362140
## 9 259766572
## 10 333718600
## 11 459005868
## 12 180202163
## 13 408084349
## 14 232641920
## 15 389813101
## 16 334201140
## 17 315058289
## 18 700426566
## 19 678815482
## 20 216648740
## 21 426829839
## 22 858373000
## 23 390532085
select(data, movie, opening_weekend_us, gross_world)
## movie opening_weekend_us gross_world
## 1 Iron Man 98618668 585796247
## 2 The Incredible Hulk 55414050 264770996
## 3 Iron Man 2 128122480 623933331
## 4 Thor 65723338 449326618
## 5 Captain America: The First Avenger 65058524 370569774
## 6 Marvel's The Avengers 207438708 1518815515
## 7 Iron Man 3 174144585 1214811252
## 8 Thor: The Dark World 85737841 644783140
## 9 Captain America: The Winder Soldier 95023721 714421503
## 10 Guardians of the Galaxy 94320883 773341024
## 11 Avengers: Age of Ultron 191271109 1402809540
## 12 Ant-Man 57225526 519311965
## 13 Captain America: Civil War 179139142 1153561649
## 14 Doctor Strange 85058311 677796076
## 15 Guardians of the Galaxy Vol. 2 146510104 863756051
## 16 Spiderman: Homecoming 117027503 880166924
## 17 Thor: Ragnarok 122744989 853983829
## 18 Black Panther 202003951 1347598739
## 19 Avengers: Infinity War 257698183 2048359754
## 20 Ant-Man and the Wasp 75812208 622674139
## 21 Captain Marvel 153433423 1128437854
## 22 Avengers: Endgame 357115007 2797800564
## 23 Spiderman: Far from Home 92579212 1131927996
#Esto me ayuda a visualizar mejor las tres variables que estoy llamando
data <- data %>%
mutate(new_variable = 0)
data <- data %>%
mutate(total_revenue = gross_us + gross_world)
view(data)
#Este view me ha ayudado a comprobar que se han agregado correctamente las
#dos variables que son new_variable y total_revenue
data <- data %>%
select(-new_variable)
#Aquí he eliminado el tipo de variable new_variable de los datos
subset(data, franchise == "Avengers", select = c("movie", "release_date","length_hrs"))
## movie release_date length_hrs
## 6 Marvel's The Avengers 2012-05-04 2
## 11 Avengers: Age of Ultron 2015-05-01 2
## 19 Avengers: Infinity War 2018-04-27 2
## 22 Avengers: Endgame 2019-04-26 3
#Aquí he seleccionado la franquicia de Avengers para que me muestre sus películas, estreno
#y duración de horas
filter(data, franchise == "Captain America") %>% select(movie, gross_us)
## movie gross_us
## 1 Captain America: The First Avenger 176654505
## 2 Captain America: The Winder Soldier 259766572
## 3 Captain America: Civil War 408084349
#Aquí he filtrado los datos para que me muestre las películas y la recaudación en Estados
#Unidos de la franquicia de Capitan America
filter(data, length_hrs+ length_min/60 >= 2 + 10/60)
## movie length_hrs length_min release_date
## 1 Marvel's The Avengers 2 23 2012-05-04
## 2 Iron Man 3 2 10 2013-05-03
## 3 Captain America: The Winder Soldier 2 16 2014-04-04
## 4 Avengers: Age of Ultron 2 21 2015-05-01
## 5 Captain America: Civil War 2 27 2016-05-06
## 6 Guardians of the Galaxy Vol. 2 2 16 2017-05-05
## 7 Spiderman: Homecoming 2 13 2017-07-07
## 8 Thor: Ragnarok 2 10 2017-11-03
## 9 Black Panther 2 14 2018-02-16
## 10 Avengers: Infinity War 2 29 2018-04-27
## 11 Avengers: Endgame 3 1 2019-04-26
## opening_weekend_us gross_us gross_world franchise
## 1 207438708 623357910 1518815515 Avengers
## 2 174144585 409013994 1214811252 Iron Man
## 3 95023721 259766572 714421503 Captain America
## 4 191271109 459005868 1402809540 Avengers
## 5 179139142 408084349 1153561649 Captain America
## 6 146510104 389813101 863756051 Guardians of the Galaxy
## 7 117027503 334201140 880166924 Spiderman
## 8 122744989 315058289 853983829 Thor
## 9 202003951 700426566 1347598739 Black Panther
## 10 257698183 678815482 2048359754 Avengers
## 11 357115007 858373000 2797800564 Avengers
## total_revenue
## 1 2142173425
## 2 1623825246
## 3 974188075
## 4 1861815408
## 5 1561645998
## 6 1253569152
## 7 1214368064
## 8 1169042118
## 9 2048025305
## 10 2727175236
## 11 3656173564
#Aqui he creado un filtro para que me muestre las peliculas que duran más de 2hrs 10min
filter(data, total_revenue>=500000000)
## movie length_hrs length_min release_date
## 1 Iron Man 2 6 2008-05-02
## 2 Iron Man 2 2 4 2010-05-07
## 3 Thor 1 55 2011-05-06
## 4 Captain America: The First Avenger 2 4 2011-07-22
## 5 Marvel's The Avengers 2 23 2012-05-04
## 6 Iron Man 3 2 10 2013-05-03
## 7 Thor: The Dark World 1 52 2013-11-08
## 8 Captain America: The Winder Soldier 2 16 2014-04-04
## 9 Guardians of the Galaxy 2 1 2014-08-01
## 10 Avengers: Age of Ultron 2 21 2015-05-01
## 11 Ant-Man 1 57 2015-07-17
## 12 Captain America: Civil War 2 27 2016-05-06
## 13 Doctor Strange 1 55 2016-11-04
## 14 Guardians of the Galaxy Vol. 2 2 16 2017-05-05
## 15 Spiderman: Homecoming 2 13 2017-07-07
## 16 Thor: Ragnarok 2 10 2017-11-03
## 17 Black Panther 2 14 2018-02-16
## 18 Avengers: Infinity War 2 29 2018-04-27
## 19 Ant-Man and the Wasp 1 58 2018-07-06
## 20 Captain Marvel 2 3 2019-03-08
## 21 Avengers: Endgame 3 1 2019-04-26
## 22 Spiderman: Far from Home 2 9 2019-07-02
## opening_weekend_us gross_us gross_world franchise
## 1 98618668 319034126 585796247 Iron Man
## 2 128122480 312433331 623933331 Iron Man
## 3 65723338 181030624 449326618 Thor
## 4 65058524 176654505 370569774 Captain America
## 5 207438708 623357910 1518815515 Avengers
## 6 174144585 409013994 1214811252 Iron Man
## 7 85737841 206362140 644783140 Thor
## 8 95023721 259766572 714421503 Captain America
## 9 94320883 333718600 773341024 Guardians of the Galaxy
## 10 191271109 459005868 1402809540 Avengers
## 11 57225526 180202163 519311965 Ant-Man
## 12 179139142 408084349 1153561649 Captain America
## 13 85058311 232641920 677796076 Doctor Strange
## 14 146510104 389813101 863756051 Guardians of the Galaxy
## 15 117027503 334201140 880166924 Spiderman
## 16 122744989 315058289 853983829 Thor
## 17 202003951 700426566 1347598739 Black Panther
## 18 257698183 678815482 2048359754 Avengers
## 19 75812208 216648740 622674139 Ant-Man
## 20 153433423 426829839 1128437854 Captain Marvel
## 21 357115007 858373000 2797800564 Avengers
## 22 92579212 390532085 1131927996 Spiderman
## total_revenue
## 1 904830373
## 2 936366662
## 3 630357242
## 4 547224279
## 5 2142173425
## 6 1623825246
## 7 851145280
## 8 974188075
## 9 1107059624
## 10 1861815408
## 11 699514128
## 12 1561645998
## 13 910437996
## 14 1253569152
## 15 1214368064
## 16 1169042118
## 17 2048025305
## 18 2727175236
## 19 839322879
## 20 1555267693
## 21 3656173564
## 22 1522460081
#Aqui he creado un filtro para que me muestre las peliculas que recaudaron +500 millones
#de dólares en EU y el mundo utilizando la variable "total_revenue" que añadí anteriormente
filter(data, release_date > as.Date("2017-06-02"))
## movie length_hrs length_min release_date
## 1 Spiderman: Homecoming 2 13 2017-07-07
## 2 Thor: Ragnarok 2 10 2017-11-03
## 3 Black Panther 2 14 2018-02-16
## 4 Avengers: Infinity War 2 29 2018-04-27
## 5 Ant-Man and the Wasp 1 58 2018-07-06
## 6 Captain Marvel 2 3 2019-03-08
## 7 Avengers: Endgame 3 1 2019-04-26
## 8 Spiderman: Far from Home 2 9 2019-07-02
## opening_weekend_us gross_us gross_world franchise total_revenue
## 1 117027503 334201140 880166924 Spiderman 1214368064
## 2 122744989 315058289 853983829 Thor 1169042118
## 3 202003951 700426566 1347598739 Black Panther 2048025305
## 4 257698183 678815482 2048359754 Avengers 2727175236
## 5 75812208 216648740 622674139 Ant-Man 839322879
## 6 153433423 426829839 1128437854 Captain Marvel 1555267693
## 7 357115007 858373000 2797800564 Avengers 3656173564
## 8 92579212 390532085 1131927996 Spiderman 1522460081
#Este filtro selecciona las películas estrenadas después del 2 de junio de 2017
filter(data, gross_us >= 650200000 & gross_us <= 1300500000 |
gross_world >= 650200000 & gross_world <= 1300500000)
## movie length_hrs length_min release_date
## 1 Iron Man 3 2 10 2013-05-03
## 2 Captain America: The Winder Soldier 2 16 2014-04-04
## 3 Guardians of the Galaxy 2 1 2014-08-01
## 4 Captain America: Civil War 2 27 2016-05-06
## 5 Doctor Strange 1 55 2016-11-04
## 6 Guardians of the Galaxy Vol. 2 2 16 2017-05-05
## 7 Spiderman: Homecoming 2 13 2017-07-07
## 8 Thor: Ragnarok 2 10 2017-11-03
## 9 Black Panther 2 14 2018-02-16
## 10 Avengers: Infinity War 2 29 2018-04-27
## 11 Captain Marvel 2 3 2019-03-08
## 12 Avengers: Endgame 3 1 2019-04-26
## 13 Spiderman: Far from Home 2 9 2019-07-02
## opening_weekend_us gross_us gross_world franchise
## 1 174144585 409013994 1214811252 Iron Man
## 2 95023721 259766572 714421503 Captain America
## 3 94320883 333718600 773341024 Guardians of the Galaxy
## 4 179139142 408084349 1153561649 Captain America
## 5 85058311 232641920 677796076 Doctor Strange
## 6 146510104 389813101 863756051 Guardians of the Galaxy
## 7 117027503 334201140 880166924 Spiderman
## 8 122744989 315058289 853983829 Thor
## 9 202003951 700426566 1347598739 Black Panther
## 10 257698183 678815482 2048359754 Avengers
## 11 153433423 426829839 1128437854 Captain Marvel
## 12 357115007 858373000 2797800564 Avengers
## 13 92579212 390532085 1131927996 Spiderman
## total_revenue
## 1 1623825246
## 2 974188075
## 3 1107059624
## 4 1561645998
## 5 910437996
## 6 1253569152
## 7 1214368064
## 8 1169042118
## 9 2048025305
## 10 2727175236
## 11 1555267693
## 12 3656173564
## 13 1522460081
#En este filtro logre filtrar datos entre dos intervalos de dos diferentes variables
#pero utilizando un operador 'or' para ver que películas ganaron entre $650.2 mill.
#y $1,300.5 mill. en EU o en el mundo.
filter(data, opening_weekend_us < 117027503)
## movie length_hrs length_min release_date
## 1 Iron Man 2 6 2008-05-02
## 2 The Incredible Hulk 1 52 2008-06-12
## 3 Thor 1 55 2011-05-06
## 4 Captain America: The First Avenger 2 4 2011-07-22
## 5 Thor: The Dark World 1 52 2013-11-08
## 6 Captain America: The Winder Soldier 2 16 2014-04-04
## 7 Guardians of the Galaxy 2 1 2014-08-01
## 8 Ant-Man 1 57 2015-07-17
## 9 Doctor Strange 1 55 2016-11-04
## 10 Ant-Man and the Wasp 1 58 2018-07-06
## 11 Spiderman: Far from Home 2 9 2019-07-02
## opening_weekend_us gross_us gross_world franchise
## 1 98618668 319034126 585796247 Iron Man
## 2 55414050 134806913 264770996 Hulk
## 3 65723338 181030624 449326618 Thor
## 4 65058524 176654505 370569774 Captain America
## 5 85737841 206362140 644783140 Thor
## 6 95023721 259766572 714421503 Captain America
## 7 94320883 333718600 773341024 Guardians of the Galaxy
## 8 57225526 180202163 519311965 Ant-Man
## 9 85058311 232641920 677796076 Doctor Strange
## 10 75812208 216648740 622674139 Ant-Man
## 11 92579212 390532085 1131927996 Spiderman
## total_revenue
## 1 904830373
## 2 399577909
## 3 630357242
## 4 547224279
## 5 851145280
## 6 974188075
## 7 1107059624
## 8 699514128
## 9 910437996
## 10 839322879
## 11 1522460081
#Filtra para mostrar solo los mayores a 117027503 en su semana de apertura
filter(data, (length_hrs >= 2 & gross_world > 1500000000) |
(length_hrs < 2 & gross_us > 1500000000))
## movie length_hrs length_min release_date opening_weekend_us
## 1 Marvel's The Avengers 2 23 2012-05-04 207438708
## 2 Avengers: Infinity War 2 29 2018-04-27 257698183
## 3 Avengers: Endgame 3 1 2019-04-26 357115007
## gross_us gross_world franchise total_revenue
## 1 623357910 1518815515 Avengers 2142173425
## 2 678815482 2048359754 Avengers 2727175236
## 3 858373000 2797800564 Avengers 3656173564
#Filtra para mostrar las películas con +2hrs y +1500 Mill. en el mundo o las
#películas menores a 2hrs y +1500 Mill generados.
count(data, franchise)
## franchise n
## 1 Ant-Man 2
## 2 Avengers 4
## 3 Black Panther 1
## 4 Captain America 3
## 5 Captain Marvel 1
## 6 Doctor Strange 1
## 7 Guardians of the Galaxy 2
## 8 Hulk 1
## 9 Iron Man 3
## 10 Spiderman 2
## 11 Thor 3
#Muestra el número de películas por franquicia
data %>%
group_by(franchise) %>%
summarise(total = n()) %>%
arrange(desc(total))
## # A tibble: 11 × 2
## franchise total
## <fct> <int>
## 1 Avengers 4
## 2 Captain America 3
## 3 Iron Man 3
## 4 Thor 3
## 5 Ant-Man 2
## 6 Guardians of the Galaxy 2
## 7 Spiderman 2
## 8 Black Panther 1
## 9 Captain Marvel 1
## 10 Doctor Strange 1
## 11 Hulk 1
#Acomoda las franquicias por número de películas
#La franquicia con más películas es Avengers con 4
data %>%
group_by(franchise) %>%
summarise(total_world = sum(gross_world, na.rm=TRUE)) %>%
arrange(desc(total_world))
## # A tibble: 11 × 2
## franchise total_world
## <fct> <dbl>
## 1 Avengers 7767785373
## 2 Iron Man 2424540830
## 3 Captain America 2238552926
## 4 Spiderman 2012094920
## 5 Thor 1948093587
## 6 Guardians of the Galaxy 1637097075
## 7 Black Panther 1347598739
## 8 Ant-Man 1141986104
## 9 Captain Marvel 1128437854
## 10 Doctor Strange 677796076
## 11 Hulk 264770996
#Franquicias que más dinero generaron en el mundo
#La franquicia que más dinero generó fue Avengers
#Las franquicia menos exitosa en el mundo fue Hulk y la más fue Avengers
data %>%
mutate(length_min = length_min+length_hrs*60) %>%
arrange(length_min)
## movie length_hrs length_min release_date
## 1 The Incredible Hulk 1 112 2008-06-12
## 2 Thor: The Dark World 1 112 2013-11-08
## 3 Thor 1 115 2011-05-06
## 4 Doctor Strange 1 115 2016-11-04
## 5 Ant-Man 1 117 2015-07-17
## 6 Ant-Man and the Wasp 1 118 2018-07-06
## 7 Guardians of the Galaxy 2 121 2014-08-01
## 8 Captain Marvel 2 123 2019-03-08
## 9 Iron Man 2 2 124 2010-05-07
## 10 Captain America: The First Avenger 2 124 2011-07-22
## 11 Iron Man 2 126 2008-05-02
## 12 Spiderman: Far from Home 2 129 2019-07-02
## 13 Iron Man 3 2 130 2013-05-03
## 14 Thor: Ragnarok 2 130 2017-11-03
## 15 Spiderman: Homecoming 2 133 2017-07-07
## 16 Black Panther 2 134 2018-02-16
## 17 Captain America: The Winder Soldier 2 136 2014-04-04
## 18 Guardians of the Galaxy Vol. 2 2 136 2017-05-05
## 19 Avengers: Age of Ultron 2 141 2015-05-01
## 20 Marvel's The Avengers 2 143 2012-05-04
## 21 Captain America: Civil War 2 147 2016-05-06
## 22 Avengers: Infinity War 2 149 2018-04-27
## 23 Avengers: Endgame 3 181 2019-04-26
## opening_weekend_us gross_us gross_world franchise
## 1 55414050 134806913 264770996 Hulk
## 2 85737841 206362140 644783140 Thor
## 3 65723338 181030624 449326618 Thor
## 4 85058311 232641920 677796076 Doctor Strange
## 5 57225526 180202163 519311965 Ant-Man
## 6 75812208 216648740 622674139 Ant-Man
## 7 94320883 333718600 773341024 Guardians of the Galaxy
## 8 153433423 426829839 1128437854 Captain Marvel
## 9 128122480 312433331 623933331 Iron Man
## 10 65058524 176654505 370569774 Captain America
## 11 98618668 319034126 585796247 Iron Man
## 12 92579212 390532085 1131927996 Spiderman
## 13 174144585 409013994 1214811252 Iron Man
## 14 122744989 315058289 853983829 Thor
## 15 117027503 334201140 880166924 Spiderman
## 16 202003951 700426566 1347598739 Black Panther
## 17 95023721 259766572 714421503 Captain America
## 18 146510104 389813101 863756051 Guardians of the Galaxy
## 19 191271109 459005868 1402809540 Avengers
## 20 207438708 623357910 1518815515 Avengers
## 21 179139142 408084349 1153561649 Captain America
## 22 257698183 678815482 2048359754 Avengers
## 23 357115007 858373000 2797800564 Avengers
## total_revenue
## 1 399577909
## 2 851145280
## 3 630357242
## 4 910437996
## 5 699514128
## 6 839322879
## 7 1107059624
## 8 1555267693
## 9 936366662
## 10 547224279
## 11 904830373
## 12 1522460081
## 13 1623825246
## 14 1169042118
## 15 1214368064
## 16 2048025305
## 17 974188075
## 18 1253569152
## 19 1861815408
## 20 2142173425
## 21 1561645998
## 22 2727175236
## 23 3656173564
#Películas más corta
#La película más corta fue 'The Incredible Hulk' con 112 min
data %>%
group_by(franchise) %>%
summarise(total_us = sum(gross_us, na.rm=TRUE)) %>%
arrange(desc(total_us))
## # A tibble: 11 × 2
## franchise total_us
## <fct> <dbl>
## 1 Avengers 2619552260
## 2 Iron Man 1040481451
## 3 Captain America 844505426
## 4 Spiderman 724733225
## 5 Guardians of the Galaxy 723531701
## 6 Thor 702451053
## 7 Black Panther 700426566
## 8 Captain Marvel 426829839
## 9 Ant-Man 396850903
## 10 Doctor Strange 232641920
## 11 Hulk 134806913
#Franquicias que más dinero generaron en EU
#Las franquicia menos exitosa en EU fue Hulk y la más fue Avengers
data %>%
group_by(franchise) %>%
summarise(avg_us = mean(gross_us), avg_world = mean(gross_world))
## # A tibble: 11 × 3
## franchise avg_us avg_world
## <fct> <dbl> <dbl>
## 1 Ant-Man 198425452. 570993052
## 2 Avengers 654888065 1941946343.
## 3 Black Panther 700426566 1347598739
## 4 Captain America 281501809. 746184309.
## 5 Captain Marvel 426829839 1128437854
## 6 Doctor Strange 232641920 677796076
## 7 Guardians of the Galaxy 361765850. 818548538.
## 8 Hulk 134806913 264770996
## 9 Iron Man 346827150. 808180277.
## 10 Spiderman 362366612. 1006047460
## 11 Thor 234150351 649364529
#Ingreso bruto promedio por franquicia en EU y en el mundo
data %>%
group_by(franchise) %>%
summarise(med_opening = median(opening_weekend_us, na.rm = TRUE))
## # A tibble: 11 × 2
## franchise med_opening
## <fct> <dbl>
## 1 Ant-Man 66518867
## 2 Avengers 232568446.
## 3 Black Panther 202003951
## 4 Captain America 95023721
## 5 Captain Marvel 153433423
## 6 Doctor Strange 85058311
## 7 Guardians of the Galaxy 120415494.
## 8 Hulk 55414050
## 9 Iron Man 128122480
## 10 Spiderman 104803358.
## 11 Thor 85737841
#Mediana de la taquilla en la semana de estreno por franquicia
#Avengers fue la franquicia que más ganó en su semana de apertura
data %>%
filter(release_date >= "2014-01-01" & release_date <= "2017-12-31") %>%
count(franchise)
## franchise n
## 1 Ant-Man 1
## 2 Avengers 1
## 3 Captain America 2
## 4 Doctor Strange 1
## 5 Guardians of the Galaxy 2
## 6 Spiderman 1
## 7 Thor 1
#Películas estrenadas entre 2014 y 2017
#Guardians of the Galaxy y Captain America fueron las que más películas estrenaron, con 2
#películas cada una en este periodo
data %>%
filter(release_date >= "2017-01-01" & release_date <= "2019-12-31") %>%
arrange(desc(opening_weekend_us)) %>%
slice(1)
## movie length_hrs length_min release_date opening_weekend_us
## 1 Avengers: Endgame 3 1 2019-04-26 357115007
## gross_us gross_world franchise total_revenue
## 1 858373000 2797800564 Avengers 3656173564
#Franquicia con la película más taquillera en su semana de estreno entre 2017 y 2019
#Fue Avengers con 3656173564 dólares en su semana de estreno
#Para la realización de esta actividad utilicé herramientas de IA generativa
#para resolver dudas específicas de sintaxis y procedimientos.
#LINK DE CONVERSACIÓN:
#https://chatgpt.com/share/68b65128-98d0-800a-a46c-137cb4c4bd1b