Relatório Final

Professor: Steven Dutt-Ross

Aluna: Joyce Marques de Souza

1. Introdução

Quando se pensa em Disney, cada pessoa vai ter um objeto no pensamento. Alguns vão lembrar dos filmes clássicos, outros dos programas de TV e outros simplesmente vão pensar nos parques temáticos. O parque mais conhecido é o da Califórnia, o Disneyland. Foi criado por Walt Disney.

library(leaflet)
mapa <- leaflet() %>%
  addTiles() %>% # Add  default OpenStreetMap map titles
  addMarkers(lng=-117.9196072, lat=33.8122255, popup = 
               "Disneyland, Califórnia")
mapa

A grandiosidade da Disney é justamente essa, ela consegue causar uma sensação diferente em cada pessoa e em cada faixa etária. Ela se faz presente não só na infância, como na vida adulta, já que hoje ela possui o domínio de muitos sucessos como da Marvel e Star Wars.

A Walt Disney Company é uma empresa global que se expande em vários ramos, sendo eles o de mídia e entretenimento. Possui um vasto conteúdo de filmes infantis, possui itens de roupas e papelarias dos personagens de seus filmes, além de possuir seu próprio canal de TV por assinatura e uma rádio. A Disney tem seus parques temáticos e cada vez mais tem produzido conteúdos diversos, principalmente agora que ela também possui um streaming.

Ao longo dos anos, a Disney aumentou seu leque de sucessos e lançamentos em diversos tipo de gêneros que vai desde animação, passando por musical e chegando até no drama. Por razão de sua variedade, esse foi o tema escolhido para fazer uma pesquisa entre as datas de lançamento dos filmes e programas de TV e sua categoria.

2. Objetivos

O foco desse trabalho é avaliar seus lançamentos de filmes e programas de TV que a Disney tem produzido desde 1928 até 2021, para tentar entender o seu histórico ao longo do tempo e ter numa visão mais ampla do que a Disney costuma produzir mais.

3. Metodologia

A metodologia escolhida foi de usar as ferramentas realizadas em aula para a aplicação do banco de dados sobre as produções da Disney. Em tal banco de dados vem dividido os tipos de produções entre filmes e programas de TV, o nome do título, o diretor, elenco, duração da produção (que nesse caso deveria ser uma variável quantitativa, mas por possuir programas de TV, é uma variável qualitativa pois temporadas estão descritas nessa categoria), ano da produção, gênero, entre outros.

As variáveis escolhidas para fazer as análises são: tipo de produção, ano de lançamento e duração.

4. Análise de Resultados e Discussão

Importação do banco de dados

library(readr)
disney_plus_titles <- read_csv("C:/Users/Israel/Documents/OneDrive/Documentos/Joy/ADMP/7 Periodo/Estatistica/disney_plus_titles.csv")
## Rows: 1450 Columns: 12
## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (11): show_id, type, title, director, cast, country, date_added, rating,...
## dbl  (1): release_year
## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.
View(disney_plus_titles)

Tabela de Tipos de produção

tabela_prod <- table(disney_plus_titles$type)
tabela_prod
## 
##   Movie TV Show 
##    1052     398

Tabela ano de produção

tabela_ano <- table(disney_plus_titles$release_year)
tabela_ano
## 
## 1928 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 
##    1    3    3    4    4    6    6    5    5    7    7    6    2    1    1    2 
## 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1959 1960 1961 1962 1963 
##    5    5    5    6    4    8    6    4    9    4    4    5    3    5    3    3 
## 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 
##    3    3    2    2    1    4    1    3    3    2    4    4    4    6    4    5 
## 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 
##    4    3    2    2    4    8    7    6    6    7    5    6   10   14   14   13 
## 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 
##   17   17   20   22   26   18   21   29   28   32   32   23   33   35   39   52 
## 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 
##   41   32   50   46   61   69   65   99  114  125

Tabela de Duração

tabela_dur <- table(disney_plus_titles$duration)
tabela_dur
## 
##      1 min   1 Season     10 min 10 Seasons    100 min    101 min    102 min 
##          3        219          6          2          8         18          6 
##    103 min    104 min    105 min    106 min    107 min    108 min    109 min 
##         10         11         14         12         10          8          8 
##     11 min    110 min    111 min    112 min    113 min    114 min    115 min 
##          5          4          7          5          3          6          2 
##    116 min    117 min    118 min    119 min     12 min    120 min    121 min 
##          9          5          2          6          5          1          5 
##    122 min    123 min    124 min    125 min    126 min    127 min    128 min 
##          6          1          1          6          6          5          1 
##    129 min     13 min    130 min    131 min    132 min    134 min    135 min 
##          6          2          1          2          6          5          5 
##    136 min    137 min    138 min    139 min     14 min    140 min    142 min 
##          1          4          2          1          3          3          2 
##    143 min    144 min    145 min    147 min    148 min     15 min    150 min 
##          3          2          1          2          1          1          1 
##    151 min    152 min    154 min 16 Seasons    160 min    162 min    169 min 
##          1          3          1          1          1          1          1 
##    170 min    175 min     18 min    180 min    182 min    183 min     19 min 
##          1          1          1          1          1          1          1 
## 19 Seasons      2 min  2 Seasons     20 min     21 min     22 min     23 min 
##          1          8         82          1          2          6          8 
##     24 min     25 min     26 min     27 min      3 min  3 Seasons     30 min 
##          8          2          2          2          4         45          1 
##     31 min     32 min 32 Seasons     33 min      4 min  4 Seasons     41 min 
##          1          2          1          2         10         24          2 
##     42 min     43 min     44 min     45 min     46 min     47 min     48 min 
##          6          3         42         31          8         13          8 
##     49 min      5 min  5 Seasons     50 min     51 min     52 min     53 min 
##          2         12         11          1          2          2          4 
##     54 min     55 min     56 min     58 min     59 min      6 min  6 Seasons 
##          1          2          1          1          2         22          3 
##     60 min     61 min     62 min     63 min     64 min     65 min     66 min 
##          2          1          2          1          1          1          1 
##     67 min     68 min     69 min      7 min  7 Seasons     70 min     71 min 
##          2          1          3         42          5          6          4 
##     72 min     73 min     74 min     75 min     76 min     77 min     78 min 
##          4          6          3          8          6         11         14 
##     79 min      8 min  8 Seasons     80 min     81 min     82 min     83 min 
##         12         41          2          9         17         12         11 
##     84 min     85 min     86 min     87 min     88 min     89 min      9 min 
##         17         13         13         13         26         24         33 
##  9 Seasons     90 min     91 min     92 min     93 min     94 min     95 min 
##          2         27         22         16         27         28         17 
##     96 min     97 min     98 min     99 min 
##         12         15         17         13

Prop table

prop.table(tabela_prod)*100
## 
##    Movie  TV Show 
## 72.55172 27.44828
prop.table(tabela_ano)*100
## 
##       1928       1932       1933       1934       1935       1936       1937 
## 0.06896552 0.20689655 0.20689655 0.27586207 0.27586207 0.41379310 0.41379310 
##       1938       1939       1940       1941       1942       1943       1944 
## 0.34482759 0.34482759 0.48275862 0.48275862 0.41379310 0.13793103 0.06896552 
##       1945       1946       1947       1948       1949       1950       1951 
## 0.06896552 0.13793103 0.34482759 0.34482759 0.34482759 0.41379310 0.27586207 
##       1952       1953       1954       1955       1956       1957       1959 
## 0.55172414 0.41379310 0.27586207 0.62068966 0.27586207 0.27586207 0.34482759 
##       1960       1961       1962       1963       1964       1965       1966 
## 0.20689655 0.34482759 0.20689655 0.20689655 0.20689655 0.20689655 0.13793103 
##       1967       1968       1969       1970       1971       1972       1973 
## 0.13793103 0.06896552 0.27586207 0.06896552 0.20689655 0.20689655 0.13793103 
##       1974       1975       1976       1977       1978       1979       1980 
## 0.27586207 0.27586207 0.27586207 0.41379310 0.27586207 0.34482759 0.27586207 
##       1981       1982       1983       1984       1985       1986       1987 
## 0.20689655 0.13793103 0.13793103 0.27586207 0.55172414 0.48275862 0.41379310 
##       1988       1989       1990       1991       1992       1993       1994 
## 0.41379310 0.48275862 0.34482759 0.41379310 0.68965517 0.96551724 0.96551724 
##       1995       1996       1997       1998       1999       2000       2001 
## 0.89655172 1.17241379 1.17241379 1.37931034 1.51724138 1.79310345 1.24137931 
##       2002       2003       2004       2005       2006       2007       2008 
## 1.44827586 2.00000000 1.93103448 2.20689655 2.20689655 1.58620690 2.27586207 
##       2009       2010       2011       2012       2013       2014       2015 
## 2.41379310 2.68965517 3.58620690 2.82758621 2.20689655 3.44827586 3.17241379 
##       2016       2017       2018       2019       2020       2021 
## 4.20689655 4.75862069 4.48275862 6.82758621 7.86206897 8.62068966
prop.table(tabela_dur)*100
## 
##       1 min    1 Season      10 min  10 Seasons     100 min     101 min 
##  0.20689655 15.10344828  0.41379310  0.13793103  0.55172414  1.24137931 
##     102 min     103 min     104 min     105 min     106 min     107 min 
##  0.41379310  0.68965517  0.75862069  0.96551724  0.82758621  0.68965517 
##     108 min     109 min      11 min     110 min     111 min     112 min 
##  0.55172414  0.55172414  0.34482759  0.27586207  0.48275862  0.34482759 
##     113 min     114 min     115 min     116 min     117 min     118 min 
##  0.20689655  0.41379310  0.13793103  0.62068966  0.34482759  0.13793103 
##     119 min      12 min     120 min     121 min     122 min     123 min 
##  0.41379310  0.34482759  0.06896552  0.34482759  0.41379310  0.06896552 
##     124 min     125 min     126 min     127 min     128 min     129 min 
##  0.06896552  0.41379310  0.41379310  0.34482759  0.06896552  0.41379310 
##      13 min     130 min     131 min     132 min     134 min     135 min 
##  0.13793103  0.06896552  0.13793103  0.41379310  0.34482759  0.34482759 
##     136 min     137 min     138 min     139 min      14 min     140 min 
##  0.06896552  0.27586207  0.13793103  0.06896552  0.20689655  0.20689655 
##     142 min     143 min     144 min     145 min     147 min     148 min 
##  0.13793103  0.20689655  0.13793103  0.06896552  0.13793103  0.06896552 
##      15 min     150 min     151 min     152 min     154 min  16 Seasons 
##  0.06896552  0.06896552  0.06896552  0.20689655  0.06896552  0.06896552 
##     160 min     162 min     169 min     170 min     175 min      18 min 
##  0.06896552  0.06896552  0.06896552  0.06896552  0.06896552  0.06896552 
##     180 min     182 min     183 min      19 min  19 Seasons       2 min 
##  0.06896552  0.06896552  0.06896552  0.06896552  0.06896552  0.55172414 
##   2 Seasons      20 min      21 min      22 min      23 min      24 min 
##  5.65517241  0.06896552  0.13793103  0.41379310  0.55172414  0.55172414 
##      25 min      26 min      27 min       3 min   3 Seasons      30 min 
##  0.13793103  0.13793103  0.13793103  0.27586207  3.10344828  0.06896552 
##      31 min      32 min  32 Seasons      33 min       4 min   4 Seasons 
##  0.06896552  0.13793103  0.06896552  0.13793103  0.68965517  1.65517241 
##      41 min      42 min      43 min      44 min      45 min      46 min 
##  0.13793103  0.41379310  0.20689655  2.89655172  2.13793103  0.55172414 
##      47 min      48 min      49 min       5 min   5 Seasons      50 min 
##  0.89655172  0.55172414  0.13793103  0.82758621  0.75862069  0.06896552 
##      51 min      52 min      53 min      54 min      55 min      56 min 
##  0.13793103  0.13793103  0.27586207  0.06896552  0.13793103  0.06896552 
##      58 min      59 min       6 min   6 Seasons      60 min      61 min 
##  0.06896552  0.13793103  1.51724138  0.20689655  0.13793103  0.06896552 
##      62 min      63 min      64 min      65 min      66 min      67 min 
##  0.13793103  0.06896552  0.06896552  0.06896552  0.06896552  0.13793103 
##      68 min      69 min       7 min   7 Seasons      70 min      71 min 
##  0.06896552  0.20689655  2.89655172  0.34482759  0.41379310  0.27586207 
##      72 min      73 min      74 min      75 min      76 min      77 min 
##  0.27586207  0.41379310  0.20689655  0.55172414  0.41379310  0.75862069 
##      78 min      79 min       8 min   8 Seasons      80 min      81 min 
##  0.96551724  0.82758621  2.82758621  0.13793103  0.62068966  1.17241379 
##      82 min      83 min      84 min      85 min      86 min      87 min 
##  0.82758621  0.75862069  1.17241379  0.89655172  0.89655172  0.89655172 
##      88 min      89 min       9 min   9 Seasons      90 min      91 min 
##  1.79310345  1.65517241  2.27586207  0.13793103  1.86206897  1.51724138 
##      92 min      93 min      94 min      95 min      96 min      97 min 
##  1.10344828  1.86206897  1.93103448  1.17241379  0.82758621  1.03448276 
##      98 min      99 min 
##  1.17241379  0.89655172

Gráfico de Pizza

pie(tabela_prod, main = "Gráfico de Tipos de Produção",
    col=c ("red","purple"))

Gráfico em barras com variáveis qualitativas

barplot(tabela_prod, col = c("#bf3671", "#eb86b1"),
        main = "Tipos de Produções", horiz = T)

barplot(tabela_dur, col = c("#0d90e0","#40a7e6","#5083c7","#3573c4","#1e5fb3",
                            "#1e48b3"),
        main = "Duração de Produções")

Histograma só pode ser com variável quantitativa

hist(disney_plus_titles$release_year, col= c("skyblue"),
     main = "Histograma dos Anos de Produções",
     xlab = "Ano da Produção", ylab = "Frequência")

o HISTOGRAMA POSSUI UMA MODA E É ASSIMÉTRICO A ESQUERDA

Tabela do Tipo de Produção X Ano de Produção

tabela_anop <- table(disney_plus_titles$type, disney_plus_titles$release_year)
tabela_anop
##          
##           1928 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944
##   Movie      1    3    3    4    4    6    6    5    5    7    7    6    2    1
##   TV Show    0    0    0    0    0    0    0    0    0    0    0    0    0    0
##          
##           1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1959
##   Movie      1    2    5    5    5    6    4    8    6    4    7    4    4    5
##   TV Show    0    0    0    0    0    0    0    0    0    0    2    0    0    0
##          
##           1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973
##   Movie      3    5    3    3    3    3    2    2    1    4    1    3    3    1
##   TV Show    0    0    0    0    0    0    0    0    0    0    0    0    0    1
##          
##           1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987
##   Movie      4    4    3    6    4    4    4    3    1    2    4    5    7    6
##   TV Show    0    0    1    0    0    1    0    0    1    0    0    3    0    0
##          
##           1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001
##   Movie      5    4    4    4    7   12   10   12   11   13   17   19   22   16
##   TV Show    1    3    1    2    3    2    4    1    6    4    3    3    4    2
##          
##           2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015
##   Movie     20   28   23   28   29   20   25   32   30   35   29   20   34   23
##   TV Show    1    1    5    4    3    3    8    3    9   17   12   12   16   23
##          
##           2016 2017 2018 2019 2020 2021
##   Movie     30   33   32   61   74   70
##   TV Show   31   36   33   38   40   55

Os programas de Tv foram feitos a partir do ano 1988, o que veio anteriormente é considerado como outlier, mas seu número de produções só cresceu mesmo a partir do ano de 2010. Enquanto que os filmes foram aumentando as produções a partir de 1993.

Média, Desvio Padrão e Mediana dos Anos de Produção

library(reactable)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(flextable)

disney_plus_titles %>% select(release_year,type) %>%
  group_by(type) %>%
  summarise(Média = round(mean(release_year), 2),
            Desvio_Padrao=round(sd(release_year),2),
            Mediana= median(release_year)) %>% 
  flextable() %>% theme_box()

Boxplot

boxplot(release_year~type, data=disney_plus_titles,
        col=c("red","royalblue"),
        horizontal =F,
        main=" Boxplot Ano de Produção por tipo de Produção")

Os pontos fora dos traços são chamados de Outliers e nos mostra que os filmes antes dos anos 60 foram poucos em relação a distribuição. Enquanto que nos programas de TV, só vão ser considerados um pouco antes dos anos 2000. Os dois são assimétricos, possuem apenas o máximo em comum, mas os quartis, medianas, e mínima são diferentes entre eles. O que dá para concluir é que a produção de filmes foi superior a produção de programas de TV.

5. Conclusão

A partir da análise dos dados, concluimos que o número de filmes produzidos foi superior ao número de programas de TV. A partir de aproximadamente 2010 teve um aumento dos dois tipos de produções, mas a Disney produziu mais filmes. Isso pode ser pelo fator de que a Disney comprou outros estúdios de filmes como a Marvel e Lucas Films (responsável pelo Star Wars), além de que com o avanço da tecnologia, fez com que as produções de animações e live action fossem feitos de forma mais rápida.

Mesmo a Disney tendo seu próprio canal, os programas exibidos muitas das vezes são conteúdos criados anteriormente, mas que continuam em exibição, além de exibir seus próprios filmes. A tendência é de que a Disney continue produzindo cada vez mais filmes e programas de TV. Pode ser que um dia o número de programas se iguale ao número de filmes, já que agora a Disney possui um streaming próprio. Mas de uma coisa é certa, a Disney continuará crescendo e ampliando seu ramo de produções e de grandes sucessos.