mcu_films <-
structure(list(movie = c("Iron Man", "The Incredible Hulk", "Iron Man 2", 
"Thor", "Captain America: The First Avenger", "Marvel's The Avengers", 
"Iron Man 3", "Thor: The Dark World", "Captain America: The Winder Soldier", 
"Guardians of the Galaxy", "Avengers: Age of Ultron", "Ant-Man", 
"Captain America: Civil War", "Doctor Strange", "Guardians of the Galaxy Vol. 2", 
"Spiderman: Homecoming", "Thor: Ragnarok", "Black Panther", "Avengers: Infinity War", 
"Ant-Man and the Wasp", "Captain Marvel", "Avengers: Endgame", 
"Spiderman: Far from Home"), length_hrs = c(2, 1, 2, 1, 2, 2, 
2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 3, 2), length_min = c(6, 
52, 4, 55, 4, 23, 10, 52, 16, 1, 21, 57, 27, 55, 16, 13, 10, 
14, 29, 58, 3, 1, 9), release_date = c("5/2/2008", "6/12/2008", 
"5/7/2010", "5/6/2011", "7/22/2011", "5/4/2012", "5/3/2013", 
"11/8/2013", "4/4/2014", "8/1/2014", "5/1/2015", "7/17/2015", 
"5/6/2016", "11/4/2016", "5/5/2017", "7/7/2017", "11/3/2017", 
"2/16/2018", "4/27/2018", "7/6/2018", "3/8/2019", "4/26/2019", 
"7/2/2019"), opening_weekend_us = c(98618668, 55414050, 128122480, 
65723338, 65058524, 207438708, 174144585, 85737841, 95023721, 
94320883, 191271109, 57225526, 179139142, 85058311, 146510104, 
117027503, 122744989, 202003951, 257698183, 75812208, 153433423, 
357115007, 92579212), gross_us = c(319034126, 134806913, 312433331, 
181030624, 176654505, 623357910, 409013994, 206362140, 259766572, 
333718600, 459005868, 180202163, 408084349, 232641920, 389813101, 
334201140, 315058289, 700426566, 678815482, 216648740, 426829839, 
858373000, 390532085), gross_world = c(585796247, 264770996, 
623933331, 449326618, 370569774, 1518815515, 1214811252, 644783140, 
714421503, 773341024, 1402809540, 519311965, 1153561649, 677796076, 
863756051, 880166924, 853983829, 1347598739, 2048359754, 622674139, 
1128437854, 2797800564, 1131927996)), row.names = c(NA, -23L), class = c("tbl_df", 
"tbl", "data.frame"))