I will import the data base of Game_of_Thrones_Data
library(readxl)
Game_of_Thrones_Data <- read_excel("C:/Users/SHELTA/Downloads/Base_de_dados-master/Base_de_dados-master/Game of Thrones Data.xlsx")
#head(Game_of_Thrones_Data)
library(knitr)
kable(head(Game_of_Thrones_Data))
| Character | Idade | Morto (1 = morto) | Sexo (1=homem) | Affiliation | CASA |
|---|---|---|---|---|---|
| Sandor Clegan | 29 | 1 | 1 | 4 | Casa Lannister |
| Benjen Stark | 35 | 1 | 1 | 10 | Patrulha da Noite |
| Syrio Forel | 41 | 1 | 1 | 1 | Casa Stark |
| Tysha | 29 | 0 | 0 | 4 | Casa Lannister |
| Jeyne Pool | 12 | 1 | 0 | 1 | Casa Stark |
| Imry Florent | 35 | 1 | 1 | 2 | Casa Baratheom |
names(Game_of_Thrones_Data)
## [1] "Character" "Idade" "Morto (1 = morto)"
## [4] "Sexo (1=homem)" "Affiliation" "CASA"
names<-c( "Character","Idade","Morto (1 = morto)","Sexo (1=homem)","Affiliation","CASA")
summary(Game_of_Thrones_Data$CASA)
## Length Class Mode
## 369 character character
summary(Game_of_Thrones_Data$Character)
## Length Class Mode
## 369 character character
table(Game_of_Thrones_Data$CASA)
##
## Casa Arryn Casa Baratheom Casa Bolton Casa Florent
## 10 42 3 1
## Casa Grayjoy Casa Lannister Casa Martell Casa Stark
## 17 38 18 47
## Casa Targaryen Casa Tully Casa Tyrell desconhecido
## 59 25 13 22
## Dothraki Outros Patrulha da Noite Povo Livre
## 6 20 33 15
table(Game_of_Thrones_Data$`Morto (1 = morto)`)
##
## 0 1
## 176 193
table(Game_of_Thrones_Data$`Sexo (1=homem)`)
##
## 0 1
## 92 277
table(Game_of_Thrones_Data$`Morto (1 = morto)`,Game_of_Thrones_Data$`Sexo (1=homem)`)
##
## 0 1
## 0 54 122
## 1 38 155
According to the data collection from Game of Thrones, 369 characters were presented. - 277 were men and 92 were women - 193 men died and 176 were alive - there were 16 houses(families/groups /kingdoms)