Atividade 3 - Gráfico para variáveis quantitativas
Maysa Godoy de Abreu Cabral
01/12/2021
Importar dados
load("C:/Users/Maysa Godoy/Desktop/Base_de_dados-master/df_pokemon.RData")
View(df)Olhar a base de dados
str(df)## Classes 'tbl_df', 'tbl' and 'data.frame': 718 obs. of 22 variables:
## $ id : num 1 2 3 4 5 6 7 8 9 10 ...
## $ pokemon : chr "bulbasaur" "ivysaur" "venusaur" "charmander" ...
## $ species_id : int 1 2 3 4 5 6 7 8 9 10 ...
## $ height : int 7 10 20 6 11 17 5 10 16 3 ...
## $ weight : int 69 130 1000 85 190 905 90 225 855 29 ...
## $ base_experience: int 64 142 236 62 142 240 63 142 239 39 ...
## $ type_1 : chr "grass" "grass" "grass" "fire" ...
## $ type_2 : chr "poison" "poison" "poison" NA ...
## $ attack : int 49 62 82 52 64 84 48 63 83 30 ...
## $ defense : int 49 63 83 43 58 78 65 80 100 35 ...
## $ hp : int 45 60 80 39 58 78 44 59 79 45 ...
## $ special_attack : int 65 80 100 60 80 109 50 65 85 20 ...
## $ special_defense: int 65 80 100 50 65 85 64 80 105 20 ...
## $ speed : int 45 60 80 65 80 100 43 58 78 45 ...
## $ color_1 : chr "#78C850" "#78C850" "#78C850" "#F08030" ...
## $ color_2 : chr "#A040A0" "#A040A0" "#A040A0" NA ...
## $ color_f : chr "#81A763" "#81A763" "#81A763" "#F08030" ...
## $ egg_group_1 : chr "monster" "monster" "monster" "monster" ...
## $ egg_group_2 : chr "plant" "plant" "plant" "dragon" ...
## $ url_image : chr "1.png" "2.png" "3.png" "4.png" ...
## $ x : num 32.8 33.3 33.9 -24.4 -24.6 ...
## $ y : num 17.2 16.7 16.2 30.8 30.6 ...summary(df)## id pokemon species_id height
## Min. : 1.0 Length:718 Min. : 1.0 Min. : 1.00
## 1st Qu.:180.2 Class :character 1st Qu.:180.2 1st Qu.: 6.00
## Median :359.5 Mode :character Median :359.5 Median : 10.00
## Mean :359.5 Mean :359.5 Mean : 11.41
## 3rd Qu.:538.8 3rd Qu.:538.8 3rd Qu.: 14.00
## Max. :718.0 Max. :718.0 Max. :145.00
## weight base_experience type_1 type_2
## Min. : 1.0 Min. : 36.00 Length:718 Length:718
## 1st Qu.: 95.0 1st Qu.: 65.25 Class :character Class :character
## Median : 280.0 Median :147.00 Mode :character Mode :character
## Mean : 568.2 Mean :141.55
## 3rd Qu.: 609.5 3rd Qu.:177.00
## Max. :9500.0 Max. :608.00
## attack defense hp special_attack
## Min. : 5.00 Min. : 5.00 Min. : 1.00 Min. : 10.00
## 1st Qu.: 53.00 1st Qu.: 50.00 1st Qu.: 50.00 1st Qu.: 45.00
## Median : 73.00 Median : 65.00 Median : 65.00 Median : 65.00
## Mean : 74.85 Mean : 70.67 Mean : 68.37 Mean : 68.47
## 3rd Qu.: 95.00 3rd Qu.: 85.00 3rd Qu.: 80.00 3rd Qu.: 90.00
## Max. :165.00 Max. :230.00 Max. :255.00 Max. :154.00
## special_defense speed color_1 color_2
## Min. : 20.00 Min. : 5.00 Length:718 Length:718
## 1st Qu.: 50.00 1st Qu.: 45.00 Class :character Class :character
## Median : 65.00 Median : 65.00 Mode :character Mode :character
## Mean : 69.09 Mean : 65.72
## 3rd Qu.: 85.00 3rd Qu.: 85.00
## Max. :230.00 Max. :160.00
## color_f egg_group_1 egg_group_2 url_image
## Length:718 Length:718 Length:718 Length:718
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## x y
## Min. :-49.152 Min. :-45.793
## 1st Qu.:-17.695 1st Qu.:-17.293
## Median : 0.705 Median : -0.628
## Mean : 0.000 Mean : 0.000
## 3rd Qu.: 15.905 3rd Qu.: 18.155
## Max. : 53.142 Max. : 46.593summary(df$type_1)## Length Class Mode
## 718 character characterHistograma da variável quantitativa “peso”
hist(df$height,col ="#3fbfbd",main="Histograma da altura",
xlab = "Altura", ylab = "Frequência")
Conclusão do histograma
O histograma foi criado a partir da análise da variável quantitativa “height”, que indica a altura dos pokemons. A partir da análise do histograma, é possível perceber que as alturas com maior frequência ocorrem entre 1 e 20. De acordo com a visualização dos dados, é interessante afirmar que segundo a média da variável, que é 11,41, confirma-se a existência de mais pokemons com altura inferior a 20. A variável analisada é interpretada como uma quantitativa discreta, pois os números estão inteiros.
Há diferentes tipos de histograma e esse pode ser classificado como um histograma despenhadeiro, ou distorcido à direita, porque os valores mais altos estão localizados numa das extremidades e isso indica que eles ocorrem com baixa frequência. Além disso, o histograma vai diminuindo conforme percorremos o eixo “x”, indicando a diminuição da frequência.
Gráfico de barra de uma variável qualitativa
A variável qualitativa escolhida foi a “type_1”.
type1 <- table(df$type_1)
prop.table(type1)*100##
## bug dark dragon electric fairy fighting fire
## 8.7743733 3.8997214 3.3426184 5.0139276 2.3676880 3.4818942 6.4066852
## flying ghost grass ground ice normal poison
## 0.4178273 3.2033426 9.1922006 4.1782730 3.2033426 12.9526462 3.8997214
## psychic rock steel water
## 6.4066852 5.5710306 3.0640669 14.6239554type1 <- table(df$type_1)
barplot(type1,
legend = rownames(type1), horiz = TRUE,beside = TRUE,
col = c("green","red","yellow","purple","pink","green","lightblue","violet","darkorange","brown","#3cdea2","#bd2f89","#a5ed6d","#c285d6","#a3606f","#72a360","#f59f2f","#338059"),
xlab ="Frequência", ylab ="Tipo",
args.legend = list(x = "bottomright"))
Conclusão
Pokemons do tipo “water” e “normal” são os mais comuns.