Introdução

Harry Potter é uma série de sete romances de fantasia escrita pela autora britânica J. K. Rowling. A série narra as aventuras de um jovem chamado Harry James Potter, que descobre aos 11 anos de idade que é um bruxo ao ser convidado para estudar na Escola de Magia e Bruxaria de Hogwarts. O arco de história principal diz respeito às amizades de Harry com outros bruxos de sua idade, como Ronald Weasley e Hermione Granger, e também com o diretor de Hogwarts Albus Dumbledore, considerado o maior dos magos, e seus conflitos com o bruxo das trevas Lord Voldemort, que pretende se tornar imortal, conquistar o mundo dos bruxos, subjugar as pessoas não-mágicas e destruir todos aqueles que estão em seu caminho, especialmente Harry Potter, a quem ele considera seu maior rival.

Objetivo do trabalho

O objetivo do trabalho é trazer informações sobre a série Harry Potter analisando os dados sobre personagens, duração, custo dos filmes e etc, através de códigos no Rstudio como: Gráficos de pizza, de barra, boxplot, histograma, entre outros.

Carregar a base

Characters <- read.csv("C:/Users/jheni/Downloads/Characters.csv")
Movies <- read.csv("C:/Users/jheni/Downloads/Movies.csv")

library(readxl)
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.1.1
## 
## 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)
## Warning: package 'flextable' was built under R version 4.1.2
library(reactable)
## Warning: package 'reactable' was built under R version 4.1.2
summary(Characters) 
##   Character.ID    Character.Name       Species             Gender         
##  Min.   :  1.00   Length:166         Length:166         Length:166        
##  1st Qu.: 42.25   Class :character   Class :character   Class :character  
##  Median : 83.50   Mode  :character   Mode  :character   Mode  :character  
##  Mean   : 83.50                                                           
##  3rd Qu.:124.75                                                           
##  Max.   :166.00                                                           
##     House             Patronus         Wand..Wood.        Wand..Core.       
##  Length:166         Length:166         Length:166         Length:166        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
## 
str(Characters)
## 'data.frame':    166 obs. of  8 variables:
##  $ Character.ID  : int  1 2 3 4 5 6 7 8 9 10 ...
##  $ Character.Name: chr  "Harry Potter" "Ron Weasley" "Hermione Granger" "Albus Dumbledore" ...
##  $ Species       : chr  "Human" "Human" "Human" "Human" ...
##  $ Gender        : chr  "Male" "Male" "Female" "Male" ...
##  $ House         : chr  "Gryffindor" "Gryffindor" "Gryffindor" "Gryffindor" ...
##  $ Patronus      : chr  "Stag" "Jack Russell Terrier" "Otter" "Phoenix" ...
##  $ Wand..Wood.   : chr  "Holly" "" "Vine" "Elder" ...
##  $ Wand..Core.   : chr  "Phoenix Feather" "" "Dragon Heartstring" "Thestral Tail Hair" ...
summary(Movies) 
##   ï..Movie.ID   Movie.Title         Release.Year     Runtime     
##  Min.   :1.00   Length:8           Min.   :2001   Min.   :130.0  
##  1st Qu.:2.75   Class :character   1st Qu.:2004   1st Qu.:141.0  
##  Median :4.50   Mode  :character   Median :2006   Median :149.0  
##  Mean   :4.50                      Mean   :2006   Mean   :147.4  
##  3rd Qu.:6.25                      3rd Qu.:2009   3rd Qu.:154.0  
##  Max.   :8.00                      Max.   :2011   Max.   :161.0  
##     Budget           Box.Office       
##  Length:8           Length:8          
##  Class :character   Class :character  
##  Mode  :character   Mode  :character  
##                                       
##                                       
## 
str(Movies)
## 'data.frame':    8 obs. of  6 variables:
##  $ ï..Movie.ID : int  1 2 3 4 5 6 7 8
##  $ Movie.Title : chr  "Harry Potter and the Philosopher's Stone" "Harry Potter and the Chamber of Secrets" "Harry Potter and the Prisoner of Azkaban" "Harry Potter and the Goblet of Fire" ...
##  $ Release.Year: int  2001 2002 2004 2005 2007 2009 2010 2011
##  $ Runtime     : int  152 161 142 157 138 153 146 130
##  $ Budget      : chr  "$125,000,000 " "$100,000,000 " "$130,000,000 " "$150,000,000 " ...
##  $ Box.Office  : chr  "$1,002,000,000 " "$880,300,000 " "$796,700,000 " "$896,400,000 " ...

Gráfico de pizza

Nesse gráfico em formato de pizza podemos ver as casas de Hogwarts e sua distrubuição de acordo com cada pensonagem. Na grifinória (Gryffindor), lar dos bravos e cavalheiros, podemos considerar a presença de 31 personagens, entre eles Harry Potter. Já na Sonserina (Slytherin), lar da ambição e a busca pela grandeza, podemos considerar a presença de 20 personagens. Na Corvinal (Ravenclaw), lar dos que se destacam por sua exímia inteligência, podemos considerar 12 personagens. Na Lufa-lufa (Hufflepuff), las dos dedicados, pacientes e honestos, podemos considerar 8 personagens. E nas demais escolas, Durmstrang e Beauxbatons, 4 personagens.

table (Characters$House)
## 
##                              Beauxbatons Academy of Magic 
##                           91                            2 
##         Durmstrang Institute                   Gryffindor 
##                            2                           31 
##                   Hufflepuff                    Ravenclaw 
##                            8                           12 
##                    Slytherin 
##                           20
pie (table (Characters$House),main = "Gráfico 1 - Casas",col = c("#f7e3c3", "#efc3f7", "#f7f5c3", "#f7310a" ,"yellow", "blue", "green"))

Gráfico de barras qualitativo

Nesse gráfico, podemos ver que a maioria dos personagens são da raça humana, e aqueles que não são, são dividido em elfos, lobisomens, gigantes, fantasmas, duendese centauros.

barplot(table(Characters$Species),
        col=c("#b2ed85","#ed85c9","#85edb4"),
        main="meu gráfico de barras")

Gráfico de barras quantitativo

Nesse gráfico podemos ver as despesas gastas em cada um dos oito filmes produzidos. Harry Potter e a Câmara Secreta (2002) sendo o filme com menos despesas ($100,000,000) e Harry Potter e as Relíquias da Morte - Parte 2 (2011) e Harry Potter e o Enigma do Príncipe (2009) os filmes com mais despesas ($250,000,000). Resulatndo em uma média de quase $170,000,000.

barplot(table(Movies$Budget),
        col=c("#b2ed85","#ed85c9","#85edb4"),
        main="meu gráfico de barras")

Histograma e Boxplot - duração de cada filme

Aqui podemos ver dois gráficos sobre a duração de cada filme. No histograma é possivel ver suas durações e suas frequências. O filme com duração mais longa é Harry Potter e a Câmara Secreta (2002) e o com a duração mais curta é o Harry Potter e as Relíquias da Morte - Parte 2 (2011), que como vimos anteriormente, o mais longo é o de maior custo e o mais longo é o de menos custo. No boxplot, podemos ver que não há discrepância. O primeiro quartil começa em 140 min e o terceiro quartil em 155 min, obtendo uma mediana de 149 min e média de 147 min.

 hist(Movies$Runtime, col = c("#99e0cd"), main = "Gráfico Histograma")

table(Characters$House)
## 
##                              Beauxbatons Academy of Magic 
##                           91                            2 
##         Durmstrang Institute                   Gryffindor 
##                            2                           31 
##                   Hufflepuff                    Ravenclaw 
##                            8                           12 
##                    Slytherin 
##                           20
table(Characters$Gender)
## 
##        Female  Human   Male 
##     41     42      1     82
par(bg="#f2d5f2") 
boxplot(Movies$Runtime, data = Movies,
        col=c("#9a72cf"), main="Boxplot - tempo de cada filme")

summary(Movies$Runtime)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   130.0   141.0   149.0   147.4   154.0   161.0

Conclusão

O mundo de Harry ensina mais que magia, mostrou como uma escola pode ensinar para a vida. Ensina sobre o amor e a amizade, ensina a liberdade e a quebra do preconceito como uma profecia que deve ser ouvida e quebrada, ensina o que é imortal e como perder essa mesma imortalidade. Harry Potter já ganhou diversos prêmios e mesmo depois de anos de lançamento continua fazendo muito sucesso entre os mais diversos públicos.