Primeira: Quantas vezes incidiu de o melhor ator ou melhor atriz estar no melhor filme do ano de 1963 a 2020 e compará-los separadamente. // Segunda: Quantos filmes de animação ganhadores do oscar não eram da Pixar ou Disney. // Terceira: Quantos negros ganharam oscar de melhor ator de 1928. // Quarta: Quantas das mulheres ganhadoras do oscar de melhor atriz que coincidiram com o melhor filme do ano interpretavam o personagem principal do filme. // Quinta: Quantos dos homens ganhadoras do oscar de melhor ator que coincidiram com o melhor filme do ano interpretavam o personagem principal do filme. // Sexta: Das mulheres ganhadoras de oscar propor uma relação com o teste de bechdel.

Análise: Com base nos dados analisados propor uma relação sociocultural da época com os ganhadores.

As bases de dados

library(readr)
the_oscar_award <- read_csv("D:/aula estatistica/Base de dados trabalho final/the_oscar_award.csv")
## 
## -- Column specification --------------------------------------------------------
## cols(
##   year_film = col_double(),
##   year_ceremony = col_double(),
##   ceremony = col_double(),
##   category = col_character(),
##   name = col_character(),
##   film = col_character(),
##   winner = col_logical()
## )
Oscars_demographics <- read_csv("D:/aula estatistica/Base de dados trabalho final/Oscars-demographics-DFE.csv")
## 
## -- Column specification --------------------------------------------------------
## cols(
##   .default = col_character(),
##   `_unit_id` = col_double(),
##   `_golden` = col_logical(),
##   `_trusted_judgments` = col_double(),
##   `birthplace:confidence` = col_double(),
##   `date_of_birth:confidence` = col_double(),
##   `race_ethnicity:confidence` = col_double(),
##   `religion:confidence` = col_double(),
##   `sexual_orientation:confidence` = col_double(),
##   year_of_award = col_double(),
##   `year_of_award:confidence` = col_double(),
##   year_of_award_gold = col_double()
## )
## i Use `spec()` for the full column specifications.
Bechdel_Test <- read_csv("D:/aula estatistica/Base de dados trabalho final/movies.csv")
## 
## -- Column specification --------------------------------------------------------
## cols(
##   year = col_double(),
##   imdb = col_character(),
##   title = col_character(),
##   test = col_character(),
##   clean_test = col_character(),
##   binary = col_character(),
##   budget = col_double(),
##   domgross = col_character(),
##   intgross = col_character(),
##   code = col_character(),
##   `budget_2013$` = col_double(),
##   `domgross_2013$` = col_character(),
##   `intgross_2013$` = col_character(),
##   `period code` = col_double(),
##   `decade code` = col_double()
## )

Conhecendo as bases de dados

summary(the_oscar_award)
##    year_film    year_ceremony     ceremony      category        
##  Min.   :1927   Min.   :1928   Min.   : 1.0   Length:10395      
##  1st Qu.:1951   1st Qu.:1952   1st Qu.:24.0   Class :character  
##  Median :1974   Median :1975   Median :47.0   Mode  :character  
##  Mean   :1974   Mean   :1975   Mean   :47.5                     
##  3rd Qu.:1998   3rd Qu.:1999   3rd Qu.:71.0                     
##  Max.   :2019   Max.   :2020   Max.   :92.0                     
##      name               film             winner       
##  Length:10395       Length:10395       Mode :logical  
##  Class :character   Class :character   FALSE:8038     
##  Mode  :character   Mode  :character   TRUE :2357     
##                                                       
##                                                       
## 
View(the_oscar_award)


summary(Oscars_demographics)
##     _unit_id          _golden        _unit_state        _trusted_judgments
##  Min.   :670454353   Mode :logical   Length:441         Min.   : 3.000    
##  1st Qu.:670454463   FALSE:416       Class :character   1st Qu.: 3.000    
##  Median :670454573   TRUE :25        Mode  :character   Median : 3.000    
##  Mean   :670482470                                      Mean   : 7.637    
##  3rd Qu.:670454683                                      3rd Qu.: 3.000    
##  Max.   :670972898                                      Max.   :95.000    
##                                                                           
##  _last_judgment_at   birthplace        birthplace:confidence date_of_birth     
##  Length:441         Length:441         Min.   :0.6571        Length:441        
##  Class :character   Class :character   1st Qu.:1.0000        Class :character  
##  Mode  :character   Mode  :character   Median :1.0000        Mode  :character  
##                                        Mean   :0.9953                          
##                                        3rd Qu.:1.0000                          
##                                        Max.   :1.0000                          
##                                                                                
##  date_of_birth:confidence race_ethnicity     race_ethnicity:confidence
##  Min.   :0.6562           Length:441         Min.   :0.6571           
##  1st Qu.:1.0000           Class :character   1st Qu.:1.0000           
##  Median :1.0000           Mode  :character   Median :1.0000           
##  Mean   :0.9966                              Mean   :0.9991           
##  3rd Qu.:1.0000                              3rd Qu.:1.0000           
##  Max.   :1.0000                              Max.   :1.0000           
##                                                                       
##    religion         religion:confidence sexual_orientation
##  Length:441         Min.   :0.3333      Length:441        
##  Class :character   1st Qu.:1.0000      Class :character  
##  Mode  :character   Median :1.0000      Mode  :character  
##                     Mean   :0.9894                        
##                     3rd Qu.:1.0000                        
##                     Max.   :1.0000                        
##                                                           
##  sexual_orientation:confidence year_of_award  year_of_award:confidence
##  Min.   :0.6571                Min.   :1927   Min.   :0.3333          
##  1st Qu.:1.0000                1st Qu.:1953   1st Qu.:1.0000          
##  Median :1.0000                Median :1973   Median :1.0000          
##  Mean   :0.9924                Mean   :1973   Mean   :0.9901          
##  3rd Qu.:1.0000                3rd Qu.:1994   3rd Qu.:1.0000          
##  Max.   :1.0000                Max.   :2014   Max.   :1.0000          
##                                                                       
##     award              biourl          birthplace_gold    date_of_birth_gold
##  Length:441         Length:441         Length:441         Length:441        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##     movie              person          race_ethnicity_gold religion_gold     
##  Length:441         Length:441         Length:441          Length:441        
##  Class :character   Class :character   Class :character    Class :character  
##  Mode  :character   Mode  :character   Mode  :character    Mode  :character  
##                                                                              
##                                                                              
##                                                                              
##                                                                              
##  sexual_orientation_gold year_of_award_gold
##  Length:441              Min.   :1942      
##  Class :character        1st Qu.:1964      
##  Mode  :character        Median :1977      
##                          Mean   :1977      
##                          3rd Qu.:1997      
##                          Max.   :2006      
##                          NA's   :430
View(Oscars_demographics)


summary(Bechdel_Test)
##       year          imdb              title               test          
##  Min.   :1970   Length:1794        Length:1794        Length:1794       
##  1st Qu.:1998   Class :character   Class :character   Class :character  
##  Median :2005   Mode  :character   Mode  :character   Mode  :character  
##  Mean   :2003                                                           
##  3rd Qu.:2009                                                           
##  Max.   :2013                                                           
##                                                                         
##   clean_test           binary              budget            domgross        
##  Length:1794        Length:1794        Min.   :     7000   Length:1794       
##  Class :character   Class :character   1st Qu.: 12000000   Class :character  
##  Mode  :character   Mode  :character   Median : 28000000   Mode  :character  
##                                        Mean   : 44826463                     
##                                        3rd Qu.: 60000000                     
##                                        Max.   :425000000                     
##                                                                              
##    intgross             code            budget_2013$       domgross_2013$    
##  Length:1794        Length:1794        Min.   :     8632   Length:1794       
##  Class :character   Class :character   1st Qu.: 16068918   Class :character  
##  Mode  :character   Mode  :character   Median : 36995786   Mode  :character  
##                                        Mean   : 55464608                     
##                                        3rd Qu.: 78337905                     
##                                        Max.   :461435929                     
##                                                                              
##  intgross_2013$      period code    decade code   
##  Length:1794        Min.   :1.00   Min.   :1.000  
##  Class :character   1st Qu.:1.00   1st Qu.:1.000  
##  Mode  :character   Median :2.00   Median :2.000  
##                     Mean   :2.42   Mean   :1.937  
##                     3rd Qu.:3.00   3rd Qu.:2.000  
##                     Max.   :5.00   Max.   :3.000  
##                     NA's   :179    NA's   :179
View(Bechdel_Test)

Informações das bases de dados

Base de dados “the_oscar_award”: Esta base de dados possui todos os ganhadores do oscar desde 1927, incluindo atores, atrizes, atores coadjuvantes e etc. // Esta base de dados possui 10395 observações em 7 variáveis.

Base de dados “Oscars_demographics”: Esta base de dados possui todos os ganhadoes do oscar em relação a sua etinia oi raça ou religião. // Esta base de dados possui 441 observações em 27 variáveis.

Base de dados “Bechdel_Test”: Esta base de dados possui os filmes protagonizados por mulheres que passaram no teste de bechdel. A coluna “binary” trata exatamente se os respectivos filmes passaram no teste ou não dependendo de suas categorias da coluna “test”. // Esta base de dados possui 1794 observações em 15 variáveis.