Mundo Cinematográfico

Análises e Curiosidades para futuros investimentos

Embora não seja claro onde realmente começou a história do cinema, a primeira exibição de um filme de curta duração aconteceu no Salão Grand Café, em Paris, em 28 de dezembro de 1895. Nesta data, os Irmãos Lumière fizeram uma apresentação pública dos produtos de seu invento ao qual chamaram de Cinematógrafo. O evento causou comoção nos 30 e poucos presentes, a notícia se alastrou e, em pouco tempo, este fazer artístico conquistaria o mundo e faria nascer uma indústria multibilionária.

O cinema baseia-se em projeções públicas de imagens animadas. O cinema nasceu de várias inovações que vão desde do domínio fotográfico até a síntese do movimento. A esta foi atribuída como causa a persistência da visão ou “persistência retiniana”, por teóricos renomados e importantes.

O intuito desse trabalho é esclarecer aos sócios Athos e Fernando todas as dúvidas e curiosidades para um possível investimento futuro nesse ramo de entretenimento.Para fins de estudo, foi utilizada a base IMDB.

Sucesso Financeiro

library(tidyverse)

## -- Attaching packages --------------------------------------------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.0
## v tidyr   1.1.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0

## Warning: package 'tibble' was built under R version 4.0.2

## -- Conflicts ------------------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

imdb <- read_rds("../dados/imdb.rds")

imdb %>% 
  mutate(lucro = receita - orcamento) %>%
  mutate(lucrou = ifelse(lucro <= 0, "Não", "Sim")) %>%
  ggplot() +
  geom_point(aes(x = orcamento, y = receita, color = lucrou))

Figura 1. Qtd. de filmes que deram lucro.

Verificando o gráfico, vimos que a maior parte dos filmes deram lucro e que muitos filmes mesmo com pouco orçamento no fim deram algum tipo de retorno.

Melhor gênero de filme

imdb %>% 
  mutate(lucro=receita-orcamento) %>% 
  group_by(generos) %>% 
  summarise(media_lucro = mean(lucro, na.rm = TRUE),qtd = n()) %>% 
  filter(qtd>15) %>% 
  arrange(desc(media_lucro))

## `summarise()` ungrouping output (override with `.groups` argument)

Vimos que os filmes que trazem uma média com maior lucro são os gêneros: aventura / animação / comédia / família.

Melhores filmes no genero escolhido

imdb %>% 
  mutate(lucro=receita-orcamento) %>%
  filter(generos == "Adventure|Animation|Comedy|Family|Fantasy" | generos == "Adventure|Animation|Comedy|Family") %>% 
  group_by(titulo) %>% 
  summarise(media_lucro = mean(lucro, na.rm = TRUE), qtd = n()) %>%
  arrange(desc(media_lucro))

## `summarise()` ungrouping output (override with `.groups` argument)

Ficou bem nítido que os filmes que trazem maior retorno são os filmes com desenho animado que conseguem atingir praticamente todas as idades e principalmente as crianças que sempre precisam de algum responsável para leva-las.

Duração de Filmes

imdb %>% 
  mutate(lucro=receita-orcamento) %>%
    filter(generos == "Adventure|Animation|Comedy|Family|Fantasy" | generos == "Adventure|Animation|Comedy|Family") %>% 
  group_by(duracao) %>% 
  summarise(media_lucro = mean(lucro, na.rm = TRUE),qtd = n()) %>%
  arrange(desc(media_lucro))

## `summarise()` ungrouping output (override with `.groups` argument)

Apesar de achar que a duração do filme não influencia tanto na escolha, a recomendação seria algo em torno de 100 minutos, para não ficar cansativo para as crianças.

Classificaçãao Etária

imdb %>% 
  mutate(lucro=receita-orcamento) %>% 
  group_by(classificacao) %>% 
  summarise(media_lucro = mean(lucro, na.rm = TRUE),qtd = n()) %>% 
  arrange(desc(media_lucro))

## `summarise()` ungrouping output (override with `.groups` argument)

A classificação etária que dá mais lucro é a LIVRE.

Melhores Diretores

imdb %>% 
mutate(lucro=receita-orcamento) %>%
group_by(diretor) %>% 
summarise(media_lucro = mean(lucro, na.rm = TRUE), qtd = n()) %>% 
  filter(qtd>10) %>% 
arrange(desc(media_lucro))

## `summarise()` ungrouping output (override with `.groups` argument)

O melhor Diretor é o Steven Spielberg que é um especialista em filmes de ficção cientifica.

Melhores Atores

imdb %>% 
mutate(lucro=receita-orcamento) %>%
group_by(ator_1) %>% 
summarise(media_lucro = mean(lucro, na.rm = TRUE), qtd = n()) %>% 
  filter(qtd>5) %>% 
arrange(desc(media_lucro))

## `summarise()` ungrouping output (override with `.groups` argument)

Os atores que trazem mais retorno são Steve Carell e Jennifer Lawrence.

Quanto precisariam desembolsar

imdb %>% 
  filter(generos == "Adventure|Animation|Comedy|Family|Fantasy" | generos == "Adventure|Animation|Comedy|Family") %>% 
  ggplot() +
  geom_histogram(
    aes(x = orcamento), 
    binwidth = 100000000,
    color = "white"
  )

## Warning: Removed 1 rows containing non-finite values (stat_bin).

Conclusão

Todas as analises foram feitas em cima do lucro. O futuro investimento no ramo cinematográfico, deve ser feito nas seguintes características:

• Desenho Animado - aventura / animação / comédia / família
• Duração de Filmes - 100 minutos
• Classificação - Etária Livre
• Diretor - Entrar em contato com a produtora que faz animação.
• Ator - Não vai existir gasto com atores e sim com dubladores, dessa forma barateando o orçamento.
• Orçamento - Aproximadamente R$120.000.000